<% if request("process") = "yes" then interest = request("interest") hearabout = request("hearabout") salesrep = request("salesrep") emailaddress = request("emailaddress") ' mail the info Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.AddAddress "Philippe@FlippingWings.com" Mail.From = "info@flippingwings.com" Mail.FromName = "SysAdmin" Mail.Subject = "Flipping Wings Pre-Purchase Info" Mail.Body = "The following is a Pre-Purchase info request sent from FlippingWings.com" & chr(10) & chr(13) Mail.Body = Mail.Body & "*****************************************************************************" & chr(10) & chr(13) Mail.Body = Mail.Body & "Interest/Reason for Purchase: " & interest & chr(10) & chr(13) Mail.Body = Mail.Body & " How heard about: " & hearabout & chr(10) & chr(13) Mail.Body = Mail.Body & " Sale Rep (if any): " & salesrep & chr(10) & chr(13) Mail.Body = Mail.Body & " Email Address: " & emailaddress & chr(10) & chr(13) Mail.Send Mail.reset() Set Mail = Nothing 'redirect response.redirect "products2.asp" end if %>
Before continuing, please answer these 2 simple questions:
Why/What is your interest in Flipping Wings?
Please Select
Fun
Fitness
Teaching
Coaching
Fund Raising
How did you hear about us?
Please Select
Sales Rep
Mailing List from Patti Komara
Internet
Newsletter
From Friends
Your Email Address:
If From Sales Rep, Please enter their name:
Continue
2008 © FlippingWings.com