No char returns

[Leeus]

Not getting character returns on the following code, help!!!

Bodytext = "Name: " & Request.Form("Name&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Job Title: " & Request.Form("Job_Title&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Company Name: " & Request.Form("Company_Name&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Company Activity: " & Request.Form("Company_Activity&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 1: " & Request.Form("Address_Line_1&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 2: " & Request.Form("Address_Line_2&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 3: " & Request.Form("Address_Line_3&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 4: " & Request.Form("Address_Line_4&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Post/ZipCode: " & Request.Form("Post/ZipCode&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Telephone: " & Request.Form("Telephone&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Fax: " & Request.Form("Fax&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Email: " & Request.Form("Email&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Request1: " & Request.Form("Please_Telephone&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Request2: " & Request.Form("Please_Send_Brochure&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Request3: " & Request.Form("Request_Representative&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "We currently buy from: " & Request.Form("We_currently_buy_from&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Goods used in manufacture of: " & Request.Form("Goods_used_in_manufacture_of&quot & Chr(13) & Chr(10)
Bodytext = Bodytext & "Specific Requirements: " & Request.Form("Specific_Requirements&quot & Chr(13) & Chr(10)


Set objCDOMessage = Server.CreateObject("CDONTS.NewMail&quot
objCDOMessage.From = "bob@bob.com"
objCDOMessage.To = "bob@bob.com""
objCDOMessage.Subject = "Bion Website Enquiry"
objCDOMessage.BodyFormat = 0
objCDOMessage.MailFormat = 0
objCDOMessage.Body = Bodytext
objCDOMessage.Send

set objCDOMessage = nothing

 

[derren]

Hi

Normally it is chr(10) chr(13), but this shouldn't make a difference. Use

vbCrLf

instead. That will work every time. Derren
[Mediocre talent - spread really thin]