HTML-mail med CDONTS

 <%
titel = request.querystring("titel")
bild = request.querystring("bild")

set fso = createobject("scripting.filesystemobject") 
set act = fso.opentextfile(server.mappath("mail.htm")) 

for i = 1 to 20
html = html & act.readline
next

html = replace(html, "%titel%", titel)
html = replace(html, "%bild%", bild)

if request.querystring("send") = 1 then

Set ObjSendMail = CreateObject("CDONTS.NewMail")

With ObjSendMail
.From = "no-reply@shapelab.org"
.To = "wiberg@ingen.info"
.BodyFormat = cdoBodyFormatHTML
.subject = "hej hopp"
.Body = html
.Send
End With

response.write("done")

Set ObjSendMail = Nothing

end if
%>

Mailet skickas men inte som HTML utan bara som vanlig text.