Fejl i ASP kode
Hej...Jeg er i gang med at lave et lille script... Jeg kan bare ikke få det til at virke helt... Der er vist en fejl i denne her kode... Jeg ved bare ikke hvad. Fejlmeddelelsen er:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/znuggle_com/new/system/refinfo.asp, line 37
Og koden er:
<html>
<head>
<title>Znuggle</title>
<link href="../styles.css" type="text/css" rel="stylesheet">
</head>
<body>
<p><b>Referencer</b></p>
<p>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN
strSQL = "Select * from Ref Where ID = " & Request("ID")
Set rs = Conn.Execute(strSQL)
Response.Write "<u>" & rs("Name") & "</u><br>"
Response.Write rs("Text")
Conn.Close
Set Conn = Nothing
%>
</p>
<hr width="75%">
<p><u>Kommentarer</u></p>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN
strSQL = "Select * from Comments Where RefID = " & Request("ID")
Set rs = Conn.Execute(strSQL)
Do
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">Skrevet af <i><%=rs("Name")%></i>, <i><%=rs("Date")%></i></td>
</tr>
<tr>
<td width="100%"><%=Comment%></td>
</tr>
</table>
<%
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
