| |
zarathustra
Posts: 1
Score: 0
Joined: 10/26/2004
From:
Status: offline
|
I have a client who is using an ASP file written with VBS (if that is correct). It a form that emails him results from his webpage. He wants some fields to be bolded....how do I do that....Here is the script.
<%@language="VBscript"%>
<%
dim EmailTo,EmailFrom,EmailSubject,EmailBody,crlf,Mail
EmailTo = "rogerself@bellsouth.net" ' Make sure this is the proper recipient's email address - rogerself@bellsouth.net
EmailSubject = "Background Check Submission Request" ' Make this whatever the desired subject line is
EmailFrom = Request.Form("submitter_name")
if Len(Request.Form("email")) > 0 then EmailFrom = EmailFrom & " <" & Request.Form("email") & ">"
crlf = chr(13) & chr(10)
EmailBody = "You have a NEW Background Check Submission Request from your web site, slossmanagement.com!" & crlf
EmailBody = EmailBody & "From " & Request.Form("Contact Person") & " of " & Request.Form("Company Name") & crlf
EmailBody = EmailBody & "Company Name: " & Request.Form("Company Name") & crlf
EmailBody = EmailBody & "Billing Address 1: " & Request.Form("Billing Address 1") & crlf
EmailBody = EmailBody & "Billing Address 2: " & Request.Form("Billing Address 2") & crlf
EmailBody = EmailBody & "City: " & Request.Form("City") & crlf
EmailBody = EmailBody & "State: " & Request.Form("State") & crlf
EmailBody = EmailBody & "Zip Code: " & Request.Form("Zip Code") & crlf
EmailBody = EmailBody & "Contact Person: " & Request.Form("Contact Person") & crlf
EmailBody = EmailBody & "Email Address: " & Request.Form("Email Address") & crlf
EmailBody = EmailBody & "Phone: " & Request.Form("Phone") & crlf
EmailBody = EmailBody & "Fax: " & Request.Form("Fax") & crlf
EmailBody = EmailBody & "Submit To: " & Request.Form("submit_to") & crlf & crlf
EmailBody = EmailBody & "Submitter Authorized?: " & Request.Form("submitter_authorized") & crlf
EmailBody = EmailBody & "Applicants LAST Name: " & Request.Form("Applicants LAST Name") & crlf & crlf
EmailBody = EmailBody & "Applicants FIRST Name: " & Request.Form("Applicants FIRST Name") & crlf & crlf
EmailBody = EmailBody & "Applicant's Date of Birth: " & Request.Form("Applicant's Date of Birth") & crlf & crlf
EmailBody = EmailBody & "Applicant's Social Security Number: " & Request.Form("Applicant's Social Security Number") & crlf & crlf
EmailBody = EmailBody & "Applicant's Address 1: " & Request.Form("Applicant's Address 1") & crlf & crlf
EmailBody = EmailBody & "Applicant's City: " & Request.Form("Applicant City") & crlf & crlf
EmailBody = EmailBody & "Applicant's State: " & Request.Form("Applicant State") & crlf & crlf
EmailBody = EmailBody & "Applicant's Zip Code: " & Request.Form("Applicant Zip Code") & crlf & crlf
EmailBody = EmailBody & "Type of Research: " & Request.Form("type") & crlf & crlf
EmailBody = EmailBody & "Please contact "
if Request.Form("Contact Person") = "Me" then
EmailBody = EmailBody & Request.Form("Contact Person")
else
EmailBody = EmailBody & Request.Form("Contact Person")
end if
EmailBody = EmailBody & " at " & Request.Form("Phone") & " regarding this request." & crlf & crlf
on error resume next
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = EmailFrom
Mail.To = EmailTo
'Mail.BCC = EmailCC
Mail.Subject = EmailSubject
Mail.Value("X-Sender") = EmailTo
Mail.Body = EmailBody
Mail.BodyFormat=1
Mail.MailFormat=1
Mail.Importance=2
Mail.Send
if err.number <> 0 then
Response.Write(err.source & " " & err.number & ": " & err.description)
Response.Write("<br>Hit the Back button on your browser and try again.")
else
Response.Redirect("thankyou.asp")
end if
%>
|
|
Printable Version
VBS noob. - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread