Onderwerp: regeleinden vbCrLf + CDONTS.NewMail

Ik wil voor een Ecard de volgende code gebruiken. Op zich werkt de
onderstaande code.
Echter bij & Request.Form("bericht") worden alle regeleinden genegeerd.

Weet er iemand wat ik precies moet toevoegen om alle regeleinden te tonen in
een e-mailbericht.
Ik heb reeds gezocht op vbCrLf + CDONTS.NewMail, maar helaas ik kom er niet
uit.

Thanks

<%@LANGUAGE="VBSCRIPT"%>


<%

If Request.ServerVariables("CONTENT_LENGTH") > 0 Then
Dim objCDO, HTML
Set objCDO = Server.CreateObject("CDONTS.NewMail")

HTML= "<html><head><title>Een kaartje van </title>"
HTML = HTML & "<meta http-equiv=""Content-Type"" content=""text/html;
charset=iso-8859-1"">"
HTML = HTML & "</head><body bgcolor=""#CCCCCC"" text=""#000000"">"
HTML = HTML & " <table width=""640"" border=""1"" cellspacing=""0""
cellpadding=""10"" bordercolor=""#999999"">"
HTML = HTML & " <tr> "
HTML = HTML & " <td height=""29"" valign=""top"">"
HTML = HTML & " <p><font size=""2"" face=""Verdana, Arial, Helvetica,
sans-serif""><i>" & Request.Form("afzender_naam") & " heeft het volgende
bericht voor je gemaakt:<br><br></i><font color=""#CC0000""> " &
Request.Form("bericht") & "</font></font></p>"
HTML = HTML & " </td>"
HTML = HTML & " </tr>"
HTML = HTML & " <tr> "
HTML = HTML & " <td height=""29"" valign=""top"">"
HTML = HTML & " <p><font size=""2"" face=""Verdana, Arial, Helvetica,
sans-serif""><img src=""URL""><b> Deze kerstkaart is verstuurd vanaf <a
href=""URL </a></b></font></p></td>"
HTML = HTML & " </tr>"
HTML = HTML & "</table>"


HTML = HTML & "</body>"
HTML = HTML & "</html>"

objCDO.BodyFormat = 0
objCDO.Mailformat = 0
objCDO.From = Request.Form("afzender").Item

objCDO.To = Request.Form("ontvanger").Item
objCDO.CC = ""
objCDO.Subject = "Een kaartje van " & Request.Form("afzender_naam") & " "
objCDO.Body = HTML
objCDO.Send()

Set objCDO = Nothing

Response.Redirect("URL")
End If


%>

Jabalili schreef:
> Ik wil voor een Ecard de volgende code gebruiken. Op zich werkt de
> onderstaande code.
> Echter bij & Request.Form("bericht") worden alle regeleinden genegeerd.
>
> Weet er iemand wat ik precies moet toevoegen om alle regeleinden te tonen in
> een e-mailbericht.
> Ik heb reeds gezocht op vbCrLf + CDONTS.NewMail, maar helaas ik kom er niet
> uit.
>

Zoek eens op 'VBScript +nl2br'.

> objCDO.From = Request.Form("afzender").Item
>

Deze afzender laat je script kwetsbaar voor Email Injection:
http://www.ngssoftware.com/papers/aspmail.pdf

> objCDO.Body = HTML
> objCDO.Send()

Iets dergelijks als:

Function nl2br(text)
text = replace(text, vbCrLf, "<br />")
End Function

objCDO.Body = nl2br(HTML)

--
Met vriendelijke groet / Best regards,

Jan Reilink
VEVIDA Nederland B.V., janreilink@vevida.com
Postbus 329, 9700 AH GRONINGEN, +31(0)50 - 5492234