Data type mismatch in criteria expression.
Er der nogen som kan se, hvorfor nedenstående script ikke virker? Jeg får fejlen[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
<%
dato=FormatDateTime(Now-7, vbLongDate)
strSQL = "SELECT tekst,startdato,id FROM ugebrev WHERE meddeler='" & session("brugernavn") & "' AND startdato>'" & dato & "'"
Set rs = Conn.Execute(strSQL)
' Hvis der er fundet poster på søgningen
'asp herfra------------------------
'hvis session("brugerID") er tom så er man ikke logget ind.
if session("brugerID") = "" then
Response.write"<tr><td width='100%'><p align=center><font face=Verdana color=#000000><b>Du er ikke logget ind!</b></font></td></tr>"
Else
Response.write"<tr><td width='100%'><p align=center><font face=Verdana color=#000000><b>Meddelelser fra "&session("brugernavn")&"</b></font><br></td>"
Response.write"<br>"
Response.Write "<table width=80% border=0 align=center cellpadding=5 cellspacing=0>"
Response.Write "<tr bgcolor=#98C4B8><th><font color=black face=verdana size=2>Tekst</font></th><th><font color=black face=verdana size=2>Startdato</font></th><th><font color=black face=verdana size=2>Slet </font></th></tr>"
intCount = 0
Do while NOT (rs.EOF or rs.BOF)
if (intCount MOD 2 = 0) then
bgColor = "#cccccc" 'Første farve
else
bgColor = "#999999" 'Anden farve
end if
intCount = intCount + 1
Response.Write "<tr>"
Response.Write "<td width=25% align=left bgcolor='" & bgColor & "'><font color=black face=verdana size=2>" & rs("tekst") & "</td>"
Response.Write "<td width=25% align=center bgcolor='" & bgColor & "'><font color=black face=verdana size=2>" & rs("startdato") & "</td>"
Response.Write "<td width=25% align=center bgcolor='" & bgColor & "'><font color=black face=verdana size=2><a class=speciel3 href='slet_meddelelse.asp?Id="&rs("Id")&"'>slet</a></td>"
rs.MoveNext
Loop
Response.Write "</table>"
end if
Conn.Close
Set Conn = Nothing
%>
