jMail problem

Heysa, jeg kan ikke få denne kode til at virke, jeg ved ikke om det er det rigtige script at bruge, hvis i har et der er bedre så sig endelig til, eller hvis i kan se hvad fejlen er:

strSQL1 = "SELECT * FROM kunder WHERE kundetype = " &request.querystring("id") & ""
Set rs = Conn.Execute(strSQL1)

do while not rs.eof

session("bruger") = rs("brugernavn")
email = rs("demail")
pwd = rs("password")
bruger = rs("brugernavn")

emne = request.form("emne")

body = request.form("besked")

set jMail = server.createobject("JMAIL.SMTPMail")

    jMail.ServerAddress = "10.0.0.4"
    jMail.Sendername = request.form("afsender")
    jMail.Sender = "auto@acomma.com"
    jMail.AddRecipient email
    jMail.Subject = emne
    jMail.Body = tekst
    jMail.HTMLBody = body

jMail.execute

Set jMail = Nothing

rs.movenext
loop

response.redirect("admin.asp?mode=msendt")


på forhånd tak
med venlig hilsen
Wulff.JJ