Not getting character returns on the following code, help!!!
Bodytext = "Name: " & Request.Form("Name" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Job Title: " & Request.Form("Job_Title" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Company Name: " & Request.Form("Company_Name" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Company Activity: " & Request.Form("Company_Activity" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 1: " & Request.Form("Address_Line_1" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 2: " & Request.Form("Address_Line_2" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 3: " & Request.Form("Address_Line_3" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 4: " & Request.Form("Address_Line_4" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Post/ZipCode: " & Request.Form("Post/ZipCode" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Telephone: " & Request.Form("Telephone" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Fax: " & Request.Form("Fax" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Email: " & Request.Form("Email" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Request1: " & Request.Form("Please_Telephone" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Request2: " & Request.Form("Please_Send_Brochure" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Request3: " & Request.Form("Request_Representative" & Chr(13) & Chr(10)
Bodytext = Bodytext & "We currently buy from: " & Request.Form("We_currently_buy_from" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Goods used in manufacture of: " & Request.Form("Goods_used_in_manufacture_of" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Specific Requirements: " & Request.Form("Specific_Requirements" & Chr(13) & Chr(10)
Set objCDOMessage = Server.CreateObject("CDONTS.NewMail"
objCDOMessage.From = "sales@bion.co.uk"
objCDOMessage.To = "sales@bion.co.uk"
objCDOMessage.Subject = "Bion Website Enquiry"
objCDOMessage.BodyFormat = 0
objCDOMessage.MailFormat = 0
objCDOMessage.Body = Bodytext
objCDOMessage.Send
set objCDOMessage = nothing
Bodytext = "Name: " & Request.Form("Name" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Job Title: " & Request.Form("Job_Title" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Company Name: " & Request.Form("Company_Name" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Company Activity: " & Request.Form("Company_Activity" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 1: " & Request.Form("Address_Line_1" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 2: " & Request.Form("Address_Line_2" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 3: " & Request.Form("Address_Line_3" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Address Line 4: " & Request.Form("Address_Line_4" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Post/ZipCode: " & Request.Form("Post/ZipCode" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Telephone: " & Request.Form("Telephone" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Fax: " & Request.Form("Fax" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Email: " & Request.Form("Email" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Request1: " & Request.Form("Please_Telephone" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Request2: " & Request.Form("Please_Send_Brochure" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Request3: " & Request.Form("Request_Representative" & Chr(13) & Chr(10)
Bodytext = Bodytext & "We currently buy from: " & Request.Form("We_currently_buy_from" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Goods used in manufacture of: " & Request.Form("Goods_used_in_manufacture_of" & Chr(13) & Chr(10)
Bodytext = Bodytext & "Specific Requirements: " & Request.Form("Specific_Requirements" & Chr(13) & Chr(10)
Set objCDOMessage = Server.CreateObject("CDONTS.NewMail"
objCDOMessage.From = "sales@bion.co.uk"
objCDOMessage.To = "sales@bion.co.uk"
objCDOMessage.Subject = "Bion Website Enquiry"
objCDOMessage.BodyFormat = 0
objCDOMessage.MailFormat = 0
objCDOMessage.Body = Bodytext
objCDOMessage.Send
set objCDOMessage = nothing