<% page_title = "contact" page_heading = "Contact Us" dim action dim fullname dim email dim message action = request("action") fullname = request("fullname") email = request("email") message = request("message") subject = request("subject") %>
<% if action = "sendmail" then %> <% call mail_send() %> <% end if %>
" method="post" id="form1" name="form1" onSubmit="return submitIt(this)">
SEND US AN EMAIL
» Please check our FAQ page before you send us an email.
Name*
Email*
Subject*
Message*
 
Phone/Fax: 707 775-BIKE (2453)

SOULCRAFT
PO Box 2631
Petaluma CA 94953
<% function mail_send() %> <% ' TO ME select case subject case "newframe" emailSubject = "New Frame Inquiry" case "tech" emailSubject = "Tech Question" case "general" emailSubject = "General Question" case "site" emailSubject = "Soulcraftbikes.com Web Issue/Question" case "waste" emailSubject = "Waste of Time" end select Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= email if subject = "site" then MyCDONTSMail.To = "mitch@mitchkline.com" else 'MyCDONTSMail.To= "info@soulcraftbikes.com" 'MyCDONTSMail.To= "seanwalling@comcast.net" MyCDONTSMail.To = "mitchkline@yahoo.com" end if MyCDONTSMail.Subject= emailSubject MyBody = "The following message was sent from soulcraftbikes.com" & vbCrLf &vbCrLf MyBody = MyBody & "Time: " & Now() & vbCrLf MyBody = MyBody & "Name: " & fullname & vbCrLf MyBody = MyBody & "Email: " & email & vbCrLf & vbCrLf MyBody = MyBody & "Message: " & vbCrLf & message MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing ' TO SENDER Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= "info@soulcraftbikes.com" MyCDONTSMail.To= email MyCDONTSMail.Subject="Thanks from Soulcraft!" MyBody = "Thank you for your interest in Soulcraft! We have received your email and will reply as soon as possible. " MyBody = MyBody & "While you're waiting for a reply, take a moment and sign up for the Soulcraft Newsletter at http://www.soulcraftbikes.com/corn.asp" & vbCrLf & vbCrLf MyBody = MyBody & "Sincerely," & vbCrLf & "Sean" & vbCrLf & "www.soulcraftbikes.com" & vbCrLf & "info@soulcraftbikes.com" & vbCrLf & vbCrLf MyBody = MyBody & "This is an automated reply. We apologize if you have received this email in error!" MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing %>
Thanks for your interest in Soulcraft!
Your message has been received.
<% end function %>