Find fejlen tak ;-)

Hejsa.. jeg sidder her og gnaver over et stykke kode..

Den kommer med fejlen:
Microsoft JET Database Engine fejl \'80040e07\'

Datatyperne stemmer ikke overens i kriterieudtrykket.

/vis.asp, linje 94



Linie 94:

    strSQL = \"SELECT * FROM svar WHERE SpmID =\" & Request.QueryString(\"spmID\")
          Set rs = Conn.Execute(strSQL)  <--- linie 94



Og ellers er det andet her:



<%
  If Request.QueryString(\"gem\") = \"\" Then
    strSQL = \"SELECT * FROM Spm WHERE SpmID =\" & Request.QueryString(\"spmID\")
          Set rs = Conn.Execute(strSQL)
%>

<table id=\"plantekst\" bgcolor=\"<%= farve1 %>\" class=\"ramme\" width=\"100%\">
<tr>
  <td><b><%= rs(\"brugernavn\") %></b> - <b>Point</b> <%= rs(\"point\") %></td>
  <td align=\"right\"><%= rs(\"spmDato\") & \" \\ \" & rs(\"spmTid\") %></td>
</tr>
<tr>
  <td colspan=\"2\"><u><%= rs(\"emne\") %></u></td>
</tr>
<tr>
  <td colspan=\"2\"><%= Replace(Server.HTMLEncode(rs(\"spm\")),vbCrLf,\"<br>\") %></td>
</tr>
</table>
<br>
<%
    If rs(\"svarTjek\") = True Then
    Set rs = Nothing
%>
<%
    Set rs = Nothing
    strSQL = \"SELECT * FROM svar WHERE SpmID =\" & Request.QueryString(\"spmID\")
          Set rs = Conn.Execute(strSQL)
    While NOT rs.EOF
%>

<table id=\"plantekst\" bgcolor=\"<%= farve1 %>\" class=\"ramme\" width=\"100%\">
<tr>
  <td><b><%= rs(\"brugernavn\") %></b></td>
  <td align=\"right\"><%= rs(\"svarDato\") & \" \\ \" & rs(\"svarTid\") %></td>
</tr>
<tr>
  <td colspan=\"2\"><%= Replace(Server.HTMLEncode(rs(\"svar\")),vbCrLf,\"<br>\") %></td>
</tr>
</table>

<%
    rs.MoveNext
    Wend
    Set rs = Nothing
    End If
%>