Fejl

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e07'

[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.

/mode/nyheder/kommentar.asp, linje 25

Med denne URL: http://jacob/mode/nyheder/kommentar.asp?mode=view&id=114

Og denne kildekode:

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("/mode/db/community.mdb")
    Conn.Open DSN
%>
<%
If Request.Querystring("mode") = "add" Then
    %><table><tr><td>Overskrift</td><td><input type="text" name="overskrift"></td></tr><tr><td>Besked</td><td><TEXTAREA NAME="besked" ROWS="10" COLS="75%"></TEXTAREA></td></tr><tr><td><input type="submit" value="Tilføj"></td></tr></table><%
Elseif Request.Querystring("mode") = "save" Then

    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM kommentarer WHERE ID=0", conn,1,3
    rs.AddNew
    rs("navn") = Session("mode")
    rs("dato") = Now
    rs("overskrift") = Request.Form("overskrift")
    rs("besked") = Request.Form("besked")
    rs.Update
    rs.Close
Elseif Request.Querystring("mode") = "view" Then
    %><table><tr><td><%
    strId = Request.Querystring("id")
    strSQL = "SELECT * FROM kommentarer WHERE ID='" & strId & "' ORDER BY ID DESC"
    Set rs = Conn.Execute(strSQL)

    If rs.EOF OR rs.BOF Then
        Response.write "Ingen kommentarer"
    Else
        Do
        overskrift = rs("overskrift")
        dato = rs("dato")
        navn = rs("navn")
        %>
        <table>
        <tr><td>SV: <%=overskrift%></td></tr>
        <tr><td><%=dato%> af <%=navn%></td></tr>
        <tr><td><%=besked%></td></tr>
        <br>
        <br>
        <tr><td><a href="/mode/nyheder/kommentar.asp?mode=add">Tilføj kommentar</a></td></tr>
        </table>
        <%
    rs.MoveNext
    Loop While Not rs.EOF
    End if
    Set rs = Nothing
    rs.Close
    %></td></tr></table><%
End if
%>
<%
Conn.Close
Set Conn = Nothing
%>

Hvad er der galt?