Forkert kode (tror jeg *S*)

Jeg har den her kode:
mailertype = 1

\'**********************************************

Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\mailing.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"
    SQL = \"SELECT * from mailingliste\"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
if mailertype = 1 then
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        \' This is my local SMTP server
        JMail.ServerAddress = \"localhost\"
   
        \' mail config settings
        JMail.Charset = \"iso-8859-1\"
        JMail.ContentTransferEncoding = \"8bit\"
       
        JMail.Sender = \"din.mail.afsender\"
        JMail.Subject = request(\"header\")
        JMail.AddRecipient send(\"email\"), \"Navn på modtager\"  \'Kunne værer equest(\"navn\")  hvis der er et felt der hedder navn i db\'en
        JMail.HTMLBody = request(\"tekst\")
       
        \' 1 - highest priority (Urgent)
        \' 3 - normal
        \' 5 - lowest
       
        JMail.Priority = 1
       
        \' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then

        \' importance = 0        \' lav
        importance = 1        \' normal
        \' importance = 2        \' høj

        Set mailObj = CreateObject(\"CDONTS.NewMail\")
   
        \' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send \"afsenders emailadresse\", send(\"email\"), request(\"header\"), request(\"tekst\"), importance

        \' slet reference til CDONTS object
        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
else %>
<CENTER>
<TABLE BORDER=\"0\">
<form action=\"write_send.asp\" METHOD=\"POST\">
<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"send\">
  <TR>
    <TD ALIGN=\"LEFT\">
    <FONT FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\"><STRONG>
    Overskrift:&nbsp;
    </STRONG></FONT>
    </TD>
    <TD ALIGN=\"LEFT\">
    <INPUT TYPE=\"TEXT\" NAME=\"header\" SIZE=\"50\">
    </TD>
  </TR>
  <TR>
    <TD ALIGN=\"RIGHT\" VALIGN=\"TOP\">
    <FONT FACE=\"Arial\" SIZE=\"2\" COLOR=\"#000000\"><STRONG>
    Tekst:&nbsp;
    </STRONG></FONT>
    </TD>
    <TD ALIGN=\"LEFT\">
    <TEXTAREA COLS=\"45\" ROWS=\"15\" NAME=\"tekst\"></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD ALIGN=\"LEFT\">
    &nbsp;
    </TD>
    <TD ALIGN=\"RIGHT\">
        <input type=\"submit\" value=\"-- SEND --\">
    </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>


Ok her er så mit problem.. Den mailingsliste skal sende ud i HTML.. Dvs. jeg skriver mailingslisten i HTML kode.. samt den skal kunne skrive et afsender navn sammen med emailen som folk kan svare tilbage til.. Jeg fik hjælp af en som har rimelig forstand på det... Og han mente den skulle være der nu.. Men selvom scriptet siger den har afsendt en mail, så kommer det aldrig frem til modtageren!
Hvordan skal kilden se ud hvis den skal lave nav på afsender samt at man kan skrive det i HTML!

Glæder mig til jeres svar :)