submit fra email til asp???????

woops glemte en kode.

modtagerbesked = \"<!DOCTY0PE HTML PUBLIC \'-//W3C//DTD HTML 4.0 Transitional//EN\'><META content=3D\'MSHTML 5.00.2919.6307\' name=3DGENERATOR><html><body>Du har bestilt følgende varer; tryk venligst på knappen \'Bekræft min ordre\', for at bekræfte ordren. Ønsker du at rette i din ordre, så gå ind på www.bbec.dk under menupunktet \'Vis mine ordrer\'<br><br><table cols=3d4><tr><td>Varenavn :</td><td>Bestilt antal</td><td>Stk. pris</td><td>Samlet pris</td></tr>\"
    pris = 0
    index = 0
   
    LocalArrayVare = Session(\"MyArrayVare\")
    LocalArrayPris = Session(\"MyArrayPris\")
    LocalArrayAntal = Session(\"MyArrayAntal\")
       
    Set MyORS1 = DB.execute(\"select * from kunder where e_mail = \'\"&cstr(modtageradresse)&\"\'\")
    modtagernavn = MyORS1(\"navn\")
    \'Response.Write(\"insert into ordrer(kundenummer, dato, bestillingsform) values (\"&cint(MyORS1(\"kundenummer\"))&\", \"&formatdateTime(Now(),vbshortdate)&\", \"&cint(Bestillingsform)&\")\")
   
    SQL = \"insert into ordrer(kundenummer, dato, bestillingsform) values( \"&cint(MyORS1(\"kundenummer\"))&\", \'\"&formatDateTime(now(), vbshortdate)&\"\',\"&cint(Bestillingsform)&\" )\"
    DB.execute(SQL)
   
    Set DB2 = Server.Createobject(\"ADODB.Recordset\")
    DB2.Source = \"select * from ordrer\"
    DB2.ActiveConnection = DB
    DB2.Cursortype = 2
    DB2.Open
    DB2.Movelast   
    ordrenummer = DB2(\"ordrenummer\")
    Set DB2 = Nothing
   
    do while cint(count) > index
        \'pris = replace(LocalArrayPris(index), \",\", \".\")
    \'    Response.Write(\"Linie : \"&index&\" : \"&LocalArrayVare(index)&\"\', \"&LocalArrayAntal(index)&\", \"&LocalArrayPris(index))
        SQL = \"Insert into varelinie(ordrenummer, varenummer, bestilt_antal, bestilt_pris) values (\"&ordrenummer&\", \'\"&LocalArrayVare(index)&\"\', \"&LocalArrayAntal(index)&\", \"&pris&\")\"
        DB.execute(SQL)
        samlet = cint(LocalArrayPris(index))* cint(LocalArrayAntal(index))
        Set svar=DB.Execute(\"Select navn from vare where varenummer = \'\" + LocalArrayVare(index) + \"\'\")
        modtagerbesked = modtagerbesked + \"<tr><td>\" + svar(\"Navn\") + _
                                        \"</td><td>\" + LocalArrayAntal(index) + \"</td><td>\" + LocalArrayPris(index) + \"</td><td>\" + cstr(samlet)
        pris = pris + clng(LocalArrayPris(index)*LocalArrayAntal(index))
        index = index + 1
    loop
    modtagerbesked = modtagerbesked + \"</table>Samlet pris : \"&clng(pris)&\"<br><br>Vi siger tak for ordren, og håber at se dem snart i vor butik igen<br><br>Med venlig hilsen<br><br>BB Electronics Center<br>Bo Bennedsen<form name=\'confirm\' action=\'http://www.bbec.dk/cgi-bin/websidetest/confirm.asp\' method=\'post\'><input type=\'hidden\' value=\'\"&ordrenummer&\"\' name=\'ordrenummer\'><input type=\'hidden\' value=\'\"&modtageradresse&\"\' name=\'email\'><input type=\'submit\' value=\'Bekræft min ordre\'></form></body></html>\"
    Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
    Mailer.RemoteHost = \"smtp.mail.dk\"
    Mailer.FromName = \"natkaffe\"
    Mailer.FromAddress = \"natkafe@natkaffe.dk\"
    Mailer.AddRecipient modtagernavn, modtageradresse
    Mailer.Subject = \"Ordrebekræftelse\"
    Mailer.BodyText = modtagerbesked
    Mailer.ContentType = \"text/html\"
    Mailer.CharSet = 2

lukkes??