Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

No char returns

Status
Not open for further replies.

Leeus

Programmer
Sep 10, 2001
40
GB
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
 
Use
Bodytext = &quot;Name: &quot; & Request.Form(&quot;Name&quot;) & &quot;<br>&quot;

instead of

Bodytext = &quot;Name: &quot; & Request.Form(&quot;Name&quot;) & Chr(13) & Chr(10)


Or Derren may help you out ! Rushi Shroff Rushi@emqube.com
&quot;Life is beautiful.&quot;
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top