Advertisement
Advertisement
| 07.17.2008 at 08:46AM PDT, ID: 23573664 | Points: 500 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: |
And on the form orderconf.asp
I add this line to have the file.
<%
DIM strEmail, strName, strComments, objMail
strName = Request.Form("TxtFName")
strComments = Request.Form("TxtTitle")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "info@caf-fca.org"
objMail.Subject = "Reports Survey - Online Transaction " & Request.Form("TxtFName")
objMail.To = "elie_azzi@caf-fca.org"
objMail.cc = "elie_azzi@caf-fca.org"
objMail.Body = "Email: " & strEmail & vbCrLf & _
"Name: " & strName & vbCrLf & _
"Title: " & vbCrLf & strComments
objMail.BodyFormat=0
objMail.MailFormat=0
objMail.Importance = 2
objMail.body="<html>" & VBCrLF & "<Title></Title>" & VBCrLf & "<Head></Head>" & VBCrLf & "<Body>" & vbCrLf & _
"<h3><center><font color=red>Making it work! - Online Order</font></center></h3>" & VBCrLf & _
"<p><strong>Date Submitted:</strong> " & Now() & VBCrLf & VBCrLf & _
"<h3><font color=Blue>Billing Address:</font></h3>" & VBCrLf & _
"<p><strong>Name:</strong> " & Request.Form("salutation") & " " & Request.Form("TxtFName") & " " & Request.Form("TxtMName") & " " & Request.Form("TxtLName")& VBCrLf & VBCrLf & _
"<h4><font color=red>Quantity and Description</font></h4>" & VBCrLf & _
"<p><strong>Title:</strong> " & Request.Form("txtTitle") & VBCrLf & VBCrLf & _
"<p><strong>Department:</strong> " & Request.Form("TxtDepartment") & VBCrLf & VBCrLf & _
"<p><strong>Organization:</strong> " & Request.Form("TxtOrganization") & VBCrLf & VBCrLf & _
"<p><strong>Address:</strong> " & Request.Form("TxtAddress") & VBCrLf & VBCrLf & _
"<p><strong>City:</strong> " & Request.Form("TxtCity") & VBCrLf & VBCrLf & _
"<p><strong>Email:</strong> " & Request.Form("email") & VBCrLf & VBCrLf & _
"<p><strong>Province:</strong> " & Request.Form("Province") & VBCrLf & VBCrLf & _
"<p><strong>File:</strong> " & Request.Form("file") & VBCrLf & VBCrLf & _
"<p><strong>Postal Code:</strong> " & Request.Form("txtPostalCode1") & " - " & Request.Form("txtPostalCode2") & VBCrLf & VBCrLf & _
"<p><strong>Telephone:</strong> " & "(" & Request.Form("phone1") & ") " & Request.Form("phone2") & "-" & Request.Form("phone3") & " Ext. " & Request.Form("phone4") &VBCrLf & VBCrLf & _
"<p><strong>Fax:</strong> " & "(" & Request.Form("fax1") & ") " & Request.Form("fax2") & "-" & Request.Form("fax3") &VBCrLf & VBCrLf & _
"<p><strong>Name of report / resource:</strong> Apprenticeship Labour Market Outcomes in Canada since 2000 " & VBCrLf & VBCrLf & _
"<p><strong>User Category:</strong> " & Request.Form("UserCategory") & VBCrLf & VBCrLf & _
"<p><strong>The purpose for downloading the information:</strong> " & Request.Form("purpose") & VBCrLf & VBCrLf & _
"<p><strong>Any more information and/or to receive our newsletters and other communications:</strong> " & Request.Form("specialreq") & VBCrLf & VBCrLf & _
"<p><strong>Please provide your email address:</strong> " & Request.Form("NewslettersEmail") & VBCrLf & VBCrLf & _
"</body>" & VBCrLf & "</html>"
objMail.Send
Set objMail = nothing
%>
|