Mail formatting problem

[Andy]

I'm using this code below. It sends the emails ok but none ofthe body
isformatted.

Any ideas?

Thanks
Andy

<%
Dim BodyString
Dim arrFormFields
FormFields = "name~email~message~whereFrom"
If FormFields <> "" Then
arrFormFields = split(FormFields,"~")
End If
Set jmail = Server.CreateObject("JMail.Message")

jmail.AddRecipient "you@work.com", "Andy"
jmail.From = "me@work.com"

jmail.Subject = "jmail test"
BodyString = Replace("","~",chr(13) & chr(10) )& chr(13)
If FormFields <> "" Then
For Each item In arrFormFields
BodyString = BodyString & item & ": " & Request.Form(item) & chr(13)
Next
End If
jmail.HTMLBody = BodyString
jmail.Send( "mxhost-1.vi.net" )


%>

[Bren]

Hi Andy

Could it be the missing parenthesis at the end of your replace statement?

>>BodyString = Replace("","~",chr(13) & chr(10) )& chr(13)

BodyString = Replace("","~",chr(13) & chr(10) )& chr(13))

Just a thought.
Regards
Bren

/**********************************************
Why do I climb mountains?
Because they are there!
[url]www.3peakschallenge.co.uk[/url]
*********************************************/