<% 'if a new field is added to the form copy the next line and replace both instances of name with 'the new field name, name on the left becomes your variable holding the value submitted in the name field name = Request("name") address = Request("address") city = Request("city") state = Request("state") zip = Request("zip") phone = Request("phone") email = Request("email") Group_Size = Request("Group_Size") Raft_Date = Request("Raft_Date") newsletter = Request("newsletter") brochure = Request("brochure") found = Request("found") organizer_kit = Request("organizer_kit") CD = Request("CD") VHS = Request("VHS") comments = Request("comments") past_customer = Request("past_customer") contact_by = Request("contact_by") action = Request("action") ' Section below formats the email sent to reservation staff ' text inside " " is hard coded text for the email and can be changed ' when new fields are added, add the variable, if following the advice above it will be same as field name, ' to the email message text below ' order of fields in message not important msgbody = "Brochure Request Made By: " & vbcrlf & vbcrlf msgbody = msgbody & name & vbcrlf msgbody = msgbody & address & vbcrlf msgbody = msgbody & city & ", " msgbody = msgbody & state & " " msgbody = msgbody & zip & vbcrlf & vbcrlf msgbody = msgbody & "Phone Number: " & phone & vbcrlf msgbody = msgbody & "email address: " & " " & email & vbcrlf & vbcrlf msgbody = msgbody & "Group Size: " & Group_Size & vbcrlf msgbody = msgbody & "Date I would like to raft: " & Raft_Date & vbcrlf msgbody = msgbody & "I would like to recieve a newsletter: " & newsletter & vbcrlf msgbody = msgbody & "How I found Songer: " & found & vbcrlf msgbody = msgbody & "I am also interested in: " & vbcrlf & " " & brochure & vbcrlf & " " & organizer_kit & vbcrlf & " " & CD & vbcrlf & " " & VHS & vbcrlf & vbcrlf msgbody = msgbody & "Please contact me by: " & contact_by & vbcrlf msgbody = msgbody & "Past Songer customer: " & past_customer & vbcrlf msgbody = msgbody & "comments: " & comments %> Brochure Request | Songer Whitewater Rafting
Whitewater Rafting Videos

Receive Our Free Adventure Vacation Catalog

 

<% Select Case action Case "" %>

Request a Free Brochure
Name :
Address :
City :
State or Province :
Zip Code :
Phone :
E-mail :
Group Size :
Dates You Wish to Raft :

Would You Like to Receive Our Monthly E-Newsletter?
Yes No
How Did You Find Us? :
Internet Search
I Was Referred By a Friend
I Am a Previous Songer Guest
Picked Up a Rack Card
Interested In :
Receiving a Brochure
Group Organizer Kit
Informational DVD
Informational VHS Tape
Comments or Suggestions :
Have You Rafted with Songer Before?
No
Yes
Preferred Contact :
E-mail
Phone
Postal

<% Case "Submit" If email = "" Then email = "none@none.com" End IF 'the From,to,cc,and bcc addresses can be added or changed here. seperate email addresses with a ; 'subject on email sent to reservation staff can also be changed here 'raft@songerwhitewater.com Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.citynet.net" Mail.from= email Mail.fromname= name Mail.addaddress "raft@songerwhitewater.com" Mail.subject="Songer Whitewater 2007 Brochure Request" Mail.Body=msgbody Mail.send set mail=nothing '/////////////// ' section of html below gets returned to web users after submitting form ' this takes the place of the additional thank you page normally required with cgi scripts ' a server side redirect can also be placed here if desidered %>

<% 'name below is a variable that inserts the users name into the thank you message %> <%=name%>,

Thank you for your interest in Songer Whitewater. Your information has been received and your brochure will arrive soon.

If you have questions or would like to make a reservation, please call us toll-free, 1.800.356.7238. We are always glad to hear from you and happy to help you plan your next trip.

We look forward to seeing you on the river!

 download our 2007 catalog
<% End Select %>