HTML body vil ikke vise indhold rigtigt.

Hej Alle!

Jeg har nedenstående udemærket script.

Jeg skriver et html indhold i feltet "html", der således sendes til e-mail adresserne. Problemet er dog bare, at teksten vises uden html tags, og jeg derfor bare får almindelig tekst.

Hvad skal der ændres for, at den rigtige tekst bliver sendt ud?

#### SCRIPT ####

<%
Response.Buffer = True

strMode = Request.QueryString("mode")

If Request.Form("Send") <> "" Then
    '// Her putter vi værdien af de indtastede felter i en variabel
    strSender = Request.Form("Afsender")
    strSubject = Request.Form("Emne")
    strMessage = Request.Form("Html")
    strMailServer = Request.Form("Mailserver")

    '// Her åbner vi databasen, og trækker alle email adresse ud i et array
    Set myConn = Server.CreateObject("ADODB.Connection")
    myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("afront.mdb")

    strSQL = "SELECT email FROM nyhedsbrev"
    Set rs = myConn.Execute(strSQL)
    arrEmail = rs.GetRows()
    myConn.Close
    Set myConn = Nothing

    '// Her laver vi et loop igennem vore e-mail array og sender beskeden til alle de tilmeldte
    Select Case Request.Form("MailKomponent")
    Case "JMail"
        Response.Write "<p><font face=verdana size=1><b>Der udsendes brev</b><br><br>"
        Set objMail = Server.CreateObject("JMail.SMTPMail")
        objMail.Silent = True
        objMail.ServerAddress = strMailserver
        objMail.Sender = strSender
        objMail.Subject = strSubject
        objMail.HTMLBody = strMessage
        For num = 0 to Ubound(arrEmail,2)
            objMail.AddRecipient arrEmail(0, num)
            If objMail.Execute Then
                Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") Sendt!</font><br>"
            Else
                Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") Fejl</font><br>"
            End If
            objMail.ClearRecipients
        Next
        Set objMail = Nothing
    Case "ASPMail"
        Response.Write "<p><font face=arial size=2><b>Udsender med ASPMail</b><br><br>"
        Set objMail = Server.CreateObject("SMTPsvg.Mailer")
        objMail.FromAddress = strSender
        objMail.RemoteHost = strMailserver
        objMail.Subject = strSubject
        objMail.BodyText = strMessage
        For num = 0 to Ubound(arrEmail,2)
            objMail.AddRecipient "Nyhedsmodtager", arrEmail(0, num)
            If objMail.SendMail Then
                Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
            Else
                Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
            End If
            objMail.ClearRecipients
        Next
        Set objMail = Nothing
    Case "OCXMail"
        Response.Write "<p><font face=arial size=2><b>Udsender med OCXMail</b><br><br>"
        Set objMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")
        For num = 0 to Ubound(arrEmail,2)
            strResult = objMail.SendMail(strMailserver, arrEmail(0, num), strSender, strSubject, strMessage)
            If strResult = "" Then
                Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>"
            Else
                Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>"
            End If
        Next
        Set objMail = Nothing
    End Select
    Response.Write "<br><font color=blue><b>Nyhedsbrevet er nu udsendt!</b></font></font></p>"
    Response.End
End If
%>


På forhånd tak!