Cdonts

Harj alle sammen..

Burde det her ikke virke ?

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"/nyhedsbrev.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
    SQL = \"SELECT * from maillingliste\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
        importance = 1       
        Set mailObj = CreateObject(\"CDONTS.NewMail\")
   
        email, til email, header, besked, importance
       
htmltext = \"<html>\"
htmltext = htmltext & \"<br>request(tekst1)<br>\"

mailobj.from = \"kum@ingermann.dk\"
mailobj.to = \"send(email)\"
mailobj.subject = \"request(header)\"
mailobj.bodyformat = 0
mailobj.mailformat = 0

mailobj.body = htmltext

mailObj.Send

        Set mailObj = Nothing
end if

response.write \"<FONT FACE=\'Arial\' SIZE=\'2\' COLOR=\'#000000\'><STRONG>E-mail er sendt til : \"& send(\"email\") &\"</STRONG></FONT><BR>\"
send.movenext
loop
conn.close %>

Har en form side inde med felterne tekst1 og header

Den siger mailen er sendt.. men der sker intet...