Hvor for virker dette ikke??

jeg sidder og arbejder med følgende kode:

<%
Option Explicit
dim cn, constr, connectionstring, sql, strPath, send, navn, emne, besked, svarid
%>

<form method="post" action="tilfojsvar.asp?send=true">
<input type=text name=navn>
<input type=text name=emne>
<textarea name=besked></textarea>
<input type=submit value=send>
</form>

<%
strpath=Server.MapPath("gem.mdb")
set cn = server.createobject("ADODB.connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & strPath
cn.connectionstring = constr
cn.open

send = request.querystring("send")
navn = request.form("navn")
emne = request.form("emne")
besked = request.form("besked")
svarid = request.querystring("page")

if send="true" then
if (len(navn) > 0) and (len(emne) > 0) and (len(besked) > 0) then

cn.execute("INSERT INTO tekst(svarid,navn,emne,besked) values('" & svarid & "' , '" & navn & "' , '" & emne & "' , '" & besked & "')")

else

response.write("Du har ikke skrevet noget i tekst felterne")

cn.close
set cn=nothing
end if
end if
%>

men når jeg afvikler det får jeg følgende fejl:

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/elev/99-agh/medie/test/tilfojsvar.asp, line 29

er der nogen som ved hvad der er galt???