<%
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. :(