Postkort script hjælp

Hej Eksperter hvad er der galt med det her script den kommer en fejl:

Din besked er blevet sendt.
Microsoft VBScript runtime error \'800a000d\'

Type mismatch: \'sendemail\'

/post/postkort.asp, line 214

Sådan her ser scriptet ud:

<%
\'© Svend H. Bang Henriksen, smbang@mail1.stofanet.dk, svend_bh@hotmail.com
\'opsaetning:
\'----------------------------------------------
\'Internetstien til \"login.html\":
homepage = \"http://www.urgh.dk/post/login.html\"

\'Det navn der skal staa under \"venlig hilsen\" sidst i en email (nu linie med \"VbCrLf\"):
Navn = \"Morten\" & VbCrLf & \"webmaster@Urgh.dk\"

\'Din mailhost:
Mailhost = \"smtp.mail.dk\"

\'Det navn der skal komme frem i feltet \"fra\" i emailprogrammet hos modtagerne:
Fromname = \"Urgh\'s Fucking postkort!\"

\'Afsenderens navn:
Sender = \"Morten\"

\'Den tekst der skal komme frem i feltet subject i emailprogrammet:
Subject = \"Et postkort fra Urgh\'s Fucking postkort service!\"

\'----------------------------------------------


sub login()


set conn = server.createobject(\"ADODB.connection\")

conn.Open \"DBQ=\" & server.mappath(\"../../db/postkort.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)}\"

Sql = \"SELECT * FROM postkort where til=\'\" & request.form(\"Brugernavn\") & \"\' and password=\'\" & request.form(\"password\") & \"\' order by til\"


set RS = conn.execute( SQL )

if request.form(\"password\") = rs(\"password\") then

session(\"inde\") = True
session(\"brugernavn\") = request.form(\"brugernavn\")

call wiew()

else

response.redirect \"login.html\"

end if



conn.close
set conn = Nothing
set rs = Nothing



end sub


sub wiew()

if session(\"inde\") = True then

set conn = server.createobject(\"ADODB.connection\")

conn.Open \"DBQ=\" & server.mappath(\"../../db/postkort.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)}\"

Sql = \"SELECT * FROM postkort where til=\'\" & session(\"brugernavn\") & \"\' and password=\'\" & request.form(\"password\") & \"\' order by til\"


set RS = conn.execute( SQL )



%>

<html>
<head>
<title>
<%=rs(\"Titel\") %>
</title>
</head>
<body bgcolor=\"<%=rs(\"Baggrundsfarve\") %>\" text=\"<%=rs(\"Textfarve\") %>\">
<div align=\"center\">
<h1>
<%=rs(\"Fra\") %> har sendt dig et postkort.
</h1>
<br>
<h2>
Du kan svare ved at klikke <a href=\"mailto:<%=rs(\"Fraemail\") %>\">her</a>.
</h2>
<img src=\"<%=rs(\"Billede\") %>\">
</div>
<p>
<h4>
<%=rs(\"Besked\") %>
</h4>
<br>
<br>
<br>
<br>
<div align=\"right\">
<h3>
<%=rs(\"Underskrift\") %>
</h3>
</div>
</body>
</html>

<%


conn.close
set conn = Nothing
set rs = Nothing

else

response.redirect \"login.html\"

end if

end sub

sub indset()


Bogstaver = Array(\"a\",\"b\",\"c\",\"d\",\"e\",\"f\",\"g\",\"h\",\"i\",\"j\",\"k\",\"l\",\"m\",\"n\",\"o\",\"p\",\"q\",\"r\",\"s\",\"t\",\"u\",\"v\",\"w\",\"x\",\"y\",\"z\",1,2,3,4,5,6,7,8,9,0)

Password = \"\"

for i=0 to 6

Randomize
Nummer = Int(Rnd*36)

Password = Password & Bogstaver(Nummer)

next



set my_conn = server.createobject(\"ADODB.connection\")

my_conn.Open \"DBQ=\" & server.mappath(\"../../db/postkort.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)}\"
set rs = Server.CreateObject(\"ADODB.Recordset\")




Til = request.form(\"recip_name\")
Tilemail = request.form(\"recip_email\")
Fra = request.form(\"Sender_name\")
Fraemail = request.form(\"Sender_email\")
Billede = request.form(\"pic_select\")
Textfarve = request.form(\"Text_color\")
Baggrundsfarve = request.form(\"Back_color\")
Titel = request.form(\"the_title\")
Besked = request.form(\"the_message\")
Underskrift = request.form(\"sig_line\")

    strSql = \"insert into postkort (Password, Til, Tilemail, Fra, Fraemail, Billede, Textfarve, Baggrundsfarve, Titel, Besked, Underskrift) values (\'\"
    strSql = StrSql & Password & \"\', \'\"
    strSql = StrSql & Til & \"\', \'\"
    strSql = StrSql & Tilemail & \"\', \'\"
    strSql = StrSql & Fra & \"\', \'\"
    strSql = StrSql & Fraemail & \"\', \'\"
    strSql = StrSql & Billede & \"\', \'\"
    strSql = StrSql & Textfarve & \"\', \'\"
    strSql = StrSql & Baggrundsfarve & \"\', \'\"
    strSql = StrSql & Titel & \"\', \'\"
    strSql = StrSql & Besked & \"\', \'\"
    strSql = StrSql & Underskrift & \"\')\"

my_conn.Execute (StrSql)
my_conn.Close
set my_conn = nothing
set rs = Nothing

Response.write(\"<h3>Din besked er blevet sendt.</h3>\")



      Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
     
      JMail.ServerAddress  = Mailhost
      JMail.Sender          = Sender
      JMail.Sendername      = Fromname
      JMail.AddRecipient    ( Tilemail )

      JMail.Priority        = 1

      JMail.Subject        = Subject
      JMail.body            = \"Fra \" & \" har d. \" & date & \" kl. \" & time & \" sendt dig et digitalt postkort.\" & VbCrLf & VbCrLf & \"Du kan hente det ved at gå ind på \"& homepage & \" og indtaste følgende som brugernavn og password.\" & VbCrLf & VbCrLf & \"Brugernavn:\" & Navn & VbCrLf & \"Password:\" & Password & VbCrLf & VbCrLf & VbCrLf & \"Med venlig hilsen\" & VbCrLf & VbCrLf & \"ditnavn\"
      JMail.AddHeader        \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
      JMail.ContentType    = \"text/html\"
      JMail.Charset        = \"iso-8859-1\"
      JMail.ContentTransferEncoding = \"8bit\"


end sub


if not ikkeok then

if request.querystring(\"mode\") = \"wiew\" then
call wiew()
elseif request.querystring(\"mode\") = \"login\" then
call login()
else
call indset()
call sendemail()
end if

end if
%>

-Nuki