<% '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 %> Booking Information
home
author
events
booking
newsletter
online store
contact
register

Your Breakthrough
On The Other Side

cover

 

 

single mother breakthrough
December 2010 Book Release of "Your Breakthrough on the Other Side"
Inspiration, Motivation, Empowerment
    

If you would like to request Lashell Williams to speak at an event, please contact us by calling or e-mailing us and we'll get back to you as soon as possible. We look forward to hearing from you.

Lashell Williams
Phone: 877-907-FUTURE (877-907-3888)
E-mail us: lwbreakthrough@aol.com

 

 

Online Request Form
First Name:
Last Name:
Address 1:
Address 2:
City:
State:
Zip:
Country:
Phone 1:
Phone 2:
Fax:
Email:
Event Type:
Method of Contact:
Ideal Date:  
Alternate Date:  
Message:

 
 
 

 


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.
<% End If %>