udarbejde HTML nyhedsbrev

Hej alle

Jeg skal igang med at lave et nyhedsbrev i HTML, jeg har surfet meget rundt og kan ikke umiddelbart finde en tutorial. Jeg har tidligere lavet et nyhedsbrev i tekst form, og dette har virker upåklageligt... kan jeg ikke bruge nogle af de koder igen ?

<% @language="VBscript" %>
<% option explicit %>
<% session.LCID = 1030 %>
<!--#include file="session_check.asp"-->
<!--#include virtual="common/adovbs.inc"-->
<!--#include file="../connect.asp"-->
<link rel="stylesheet" type="text/css" href="../css/styles.css">
<%
'---opbygger body tekst -- start --


Dim modtager, subject, JMail, afsender, afsendermail, smtpserver, BodyText, Element, modtager2, tjek, query_form, tabelnavn, opdatering, query

if request.servervariables("CONTENT_LENGTH") <> 0 then 'spørger om der bliver data tilsendt


'For each Element in Request.form

'BodyText=BodyText & Element & ": " & Request.form(element) & vbCrLf & vbCrLf
'Next


BodyText = BodyText & "Nyhedsbrev : " & Request.form("titel") & vbCrLf & vbCrLf

BodyText = BodyText & "" & Request.form("tekst") & vbCrLf & vbCrLf


'---opbyger body tekst--slut--

'---jmail sendes--start--
smtpserver = "mailserverens navn"
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = smtpserver


set query_form =connect.execute("select navn, email from maillist order by id desc")

do until query_form.EOF

modtager = query_form("email")
subject = "Kontaktformular"
afsendermail = request.form("email")
afsender = request.form("navn")
if afsendermail = "" then
afsendermail = modtager
afsender = afsender & "Nyhedsbrev fra ContentManagementSystem"
end if

JMail.SenderName = afsender
    JMail.Sender = afsendermail
    JMail.Subject = subject
    JMail.AddRecipient modtager

if modtager2 <> "" then
    JMail.AddRecipientbcc modtager2
end if

    JMail.Body = BodyText

    JMail.Priority = 3
    JMail.LazySend = true
    'JMail.Execute

        If JMail.Execute then
        tjek = "Nyhedsbrevet er sendt"

        else
        tjek = "<font color=red>Der er sket en fejl - prøv igen!"

end if

    response.write "Mail er sendt til: " & query_form("email") & "<BR>"

    JMail.ClearRecipients

query_form.movenext
loop

'---jmail sendes--slut--
response.write tjek



tabelnavn ="nyhedsbrev"

'laver recordsættet til db
set opdatering = server.createobject("ADODB.recordset")
query ="select * from "& tabelnavn &""
opdatering.open query, connect, adopenstatic, adlockoptimistic

'opretter ny linie i db og indskriver tilsendt data
opdatering.addnew
opdatering("dato") = date
opdatering("titel") = trim(request.form("titel"))
opdatering("tekst") = trim(request.form("tekst"))
opdatering.update
opdatering.close


else

%>
<br><br><br>
<table cellspacing="0" border="0" cellpadding="5" width="550" align="center">
<form method="post" action="opret_nyhedsbrev.asp">
    <tr>
        <td>Titel</td>
        <td align="right"><input name="titel" type="text" class="formfeltnyh"></td>   
    </tr>
    <tr>
        <td valign="top">Tekst</td>
        <td align="right" valign="top"><textarea name="tekst" cols="50" rows="15" class="formfeltnyh"></textarea></td>
    </tr>
    <tr>
        <td>&nbsp;</td>
        <td align="right"><input type="submit" value="Send nyhedsbrev" class="knap"></td>
    </tr>
</form>

</table>

<% end if %>

Forventningsfulde hilsner

Niels