Tomt Recordset
Jeg har lavet et script hvor jeg forsøger at udtrække et recordset på baggrund af to datoer, men lige meget hvordan jeg vender og drejer datoen kommer der et tomt recordset. Noget af mit script ser sådan her ud:If Request.Querystring("WhatWasChosen") = "WeekChosen" Then
Set objConn = Server.Createobject("ADODB.Connection")
strConnString = "Provider=SQLOLEDB;" & _
"Persist Security Info=FALSE;" & _
"User ID=sa;" & _
"Password=pb16950;" & _
"Initial Catalog=WorkStatistics;" & _
"Initial File Name = C:\Programmer\Microsoft SQL Server\MSSQL\" & _
"DATA\WorkStatistics_Data.mdf;"
objConn.Open strConnString
Set objRS = Server.Createobject("ADODB.Recordset")
startDate = Request.Querystring("startDate")
endDate = Request.Querystring("endDate")
strSQL = "SELECT * FROM WorkProjects_T WHERE Dags_Dato_DT BETWEEN " & _
startDate & " AND " & endDate & " ORDER BY Dags_Dato_DT"
objRS.Open strSQL, objConn, adOpenForwardOnly, adLockReadOnly, adCmdText
Response.Write "<CENTER><TABLE BORDER='1'></CENTER><TR><TD><H4>Dato:</H4></TD>"
Response.Write "<TD><H4>Projekt Navn:</H4></TD><TD><H4>Arbejdstimer:</H4></TD>"
Response.Write "<TD><H4>Læst Fra:</H4></TD><TD><H4>Læst Til:</H4></TD>"
Response.Write "<TD><H4>Læste Sider:</H4></TD></TR>"
Do While Not objRS.EOF
Response.Write "<TR><TD ALIGN='CENTER'>" & objRS("Dags_Dato_DT") & "</TD>"
Response.Write "<TD ALIGN='CENTER'>" & objRS("Projekt_Navn_VC") & "</TD>"
Response.Write "<TD ALIGN='CENTER'>" & objRS("Arbejdstimer_IN") & "</TD>"
Response.Write "<TD ALIGN='CENTER'>" & objRS("Læst_Fra_IN") & "</TD>"
Response.Write "<TD ALIGN='CENTER'>" & objRS("Læst_Til_IN") & "</TD>"
Response.Write "<TD ALIGN='CENTER'>" & objRS("Læste_Sider_IN") & "</TD></TR>"
objRS.Movenext
Loop
Response.Write "</TABLE>"
Response.Write strSQL
objRS.close
Set objRS = Nothing
objConn.close
Set objConn = Nothing
End If
Hvis jeg udskriver min sql streng ser det f.eks. sådan her ud:
SELECT * FROM WorkProjects_T WHERE Dags_Dato_DT BETWEEN 6-03-2002 AND 12-03-2002 ORDER BY Dags_Dato_DT
Hvad er der galt?
