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