Hvad er der galt med dette jmail udtræk

<%
id = Request.QueryString( \"id\" )

if request.form(\"navn\") = \"\" then
for each item in request.form
session(item) = request.form(item)
next
session(\"fejl\") = \"Skriv venligst dit navn\"
response.redirect(\"default.asp?side=medlem&subside=info.asp\")
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
Set rs = Conn.execute(\"SELECT * FROM brugere WHERE id=\" & id & \"\'\")
if rs.eof then
for each item in request.form
session(item) = request.form(item)
next
session(\"fejl\") = \"Der er ingen brugere med det angivet id nr.\"
response.redirect(\"default.asp?side=medlem&subside=info\")
else
navn = request.form(\"navn\")
email = request.form(\"email\")
angaaende = request.form(\"andgaaende\")
besked = request.form(\"besked\")
til = rs(\"til\")

on error resume next
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ISOEncodeHeaders = False
JMail.ServerAddress = \"mail.sejs.dk\"
JMail.FromName = navn
JMail.Sender = \"admin@sejs.dk\"
JMail.Subject = angaaende
JMail.AddRecipient = til
JMail.Priority = 1
JMail.Body = besked & vbcrlf & \"\" & vbcrlf & \"---------------------------------------------\" & vbcrlf & \"sejs.dk\" & vbcrlf & \"www.sejs.dk/bond\"
JMail.Execute

response.write (\"Din mail er nu afstendt<BR><BR>\")
end if
set rs = nothing
conn.close
set conn = nothing
else %>
<p align=\"center\"><% if session(\"fejl\") <> \"\" then
response.write \"<B>\" & session(\"fejl\") & \"</B><BR>\"
end if %>