% 'Form submission by Aspemail 'Change these values to test the form '------------------------------------- Dim toAddress, subject 'toAddress = "info@yourbreakthrough.org" toAddress = "spencey1@yahoo.com" subject = "Booking Form Submission From Yourbreakthrough.org!" '------------------------------------- 'Check to see if the form was submitted if request.form("submit") <> "" Then 'if it was then send the email Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "64.39.14.226" ' Specify a valid SMTP server Mail.From = request.form("email") ' Specify sender's address Mail.FromName = request.form("email") ' Specify sender's name Mail.AddAddress toAddress Mail.AddReplyTo request.form("email") Mail.Subject = subject 'Add the form fields to the message body Mail.Body = "Results From Yourbreakthrough: " & vbcrlf & _ "------------------------" & vbcrlf & vbcrlf & _ "First name: " & request.form("firstname") & vbcrlf & vbcrlf & _ "Last name: " & request.form("lastname") & vbcrlf & vbcrlf & _ "Address 1: " & request.form("address1") & vbcrlf & vbcrlf & _ "Address 2: " & request.form("address2") & vbcrlf & vbcrlf & _ "City: " & request.form("city") & vbcrlf & vbcrlf & _ "State: " & request.form("state") & vbcrlf & vbcrlf & _ "Zip: " & request.form("zip") & vbcrlf & vbcrlf & _ "Country: " & request.form("country") & vbcrlf & vbcrlf & _ "Phone 1: " & request.form("phone1") & vbcrlf & vbcrlf & _ "Phone 2: " & request.form("phone2") & vbcrlf & vbcrlf & _ "Fax: " & request.form("fax") & vbcrlf & vbcrlf & _ "Email: " & request.form("email") & vbcrlf & vbcrlf & _ "Event Type: " & request.form("eventtype") & vbcrlf & vbcrlf & _ "Method of Contact: " & request.form("contactmethod") & vbcrlf & vbcrlf & _ "Ideal Date Month: " & request.form("imonth") & vbcrlf & vbcrlf & _ "Ideal Date Day: " & request.form("iday") & vbcrlf & vbcrlf & _ "Ideal Date Year: " & request.form("iyear") & vbcrlf & vbcrlf & _ "Ideal Date Hour: " & request.form("ihour") & vbcrlf & vbcrlf & _ "Ideal Date Minute:" & request.form("iminute") & vbcrlf & vbcrlf & _ "Ideal Date AM or PM: " & request.form("iampm") & vbcrlf & vbcrlf & _ "Alternate Date Month: " & request.form("amonth") & vbcrlf & vbcrlf & _ "Alternate Date Day: " & request.form("aday") & vbcrlf & vbcrlf & _ "Alternate Date Year: " & request.form("ayear") & vbcrlf & vbcrlf & _ "Alternate Date Hour: " & request.form("ahour") & vbcrlf & vbcrlf & _ "Alternate Date Minute:" & request.form("aminute") & vbcrlf & vbcrlf & _ "Alternate Date AM or PM: " & request.form("aampm") & vbcrlf & vbcrlf & _ "Message: " & request.form("message") & vbcrlf On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description Else Response.Redirect "thank_you.asp" End If Else 'if the form was not submitted then output the form html %>
|
||||||||||||||||||||||||||||||
![]() | ||||||||||||||||||||||||||||||
|
Stop waiting until this, and until that. Your "until this and that" is "right now"!
|
||||||||||||||||||||||||||||||
![]() | ||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||
|
All Rights Reserved. Copyright © 2009 www.yourbreakthrough.org
Website Design by Butler New Media, LLC. |