Hej!
Har följnade kod som summerar värden från ett fält..
If request.Form("taskNr") <> "" Then
Dim objRS, objConn, strSQL, dtStartDate, dtStopDate, strTaskNr, strWorkTime, strOverTime, strDetails, strUser
strTaskNr = request.Form("taskNr")
dtStartDate = request.Form("startDate")
dtStopDate = request.Form("stopDate")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=uppdragNu"
objConn.Open
strSQL = "SELECT iif (SUM(Time) IS NULL, 0, SUM(Time)) As totalTime " &_
"FROM tblTask " &_
"INNER JOIN tblTime ON tblTask.Id = tblTime.TaskId " &_
"WHERE tblTask.TaskNr = '" & strTaskNr & "' AND tblTime.startDate > #" & dtStartDate & "# AND tblTime.StopDate < #" & dtStopDate & " 23:59:59# "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 3, 1
If objRS.EOF then
response.write "Det fanns inga uppdrag!"
Else
do until objRS.EOF
Response.write objRS("totalTime")
objRS.Movenext
Loop
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
End If
när jag skriver ett uppdragsnummer (strTaskNr) som inte finns så visas inget.. Jag vill att texten: "Det fanns inga uppdrag!" ska visas... Men det gör den inte... Vad gör jag för fel? denna fråga kanske ska vara i sql.. då får ni flytta den..
Mvh
Henrik