html brev i nyhetsbrev

Håller på med ett nyhetsbrev som jag nu fått o fungera, saken är den bara att jag skulle vilja att jag skickade mejlen i html istället, går det att göra, kan någon hjälpa mig med det hur jag ska göra i sådana fall? tack på förhand!

Här är koden på sidan som skickar iväg mejlet:

<%
' Declaring variables
Dim rs, mail, subject, message, data_source, sql_select, no
no = 0
subject = Request.Form("subject")
message = Request.Form("message")
' Adding a link to all messages by which users can delete their
' emails if they would want later
message = message & ""
message = message & vbcrlf & vbcrlf
message = message & "Avsluta prenumerationen av Magazinos nyhetsbrev genom att klicka på länken nedan:"
message = message & vbcrlf
message = message & "http://www.andestyle.se/tidningsguiden/newsletter3/del.asp?email="
sql_select = "select email from users"
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _

Server.MapPath("mail.mdb")

' Check to see if you have not pressed the 'send' button mistakenly
If Len(message) Then
' If you have written some message then lets send it
' You can use ASP Email component of your choice, here I will
' stick with CDO
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql_select, data_source
While Not rs.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = "gunnarkarlsson@telia.com"
mail.To = rs("email")
mail.Subject = subject
mail.Body = message & rs("email")
mail.Send
Set mail = Nothing
no = no + 1
rs.MoveNext
Wend
' When messages have been sent to all the users, exit
Response.Write "Emails sent to " & no & " users."
rs.Close
Set rs = Nothing
' Had you pressed the button mistakenly with text area empty, then
' redirect back to the HTML Form
Else
Response.Redirect "admin.htm"
End If
%>