<% '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 Section_of_River= Request("Section_of_River") Guides_Name = Request("Guides_Name") Date_Rafted = Request("Date_Rafted") Group_Organizers_Name = Request ("Group_Organizers_Name") name = Request("name") address = Request("address") city = Request("city") state = Request("state") zip = Request("zip") phone = Request("phone") email = Request("email") other_information = Request("other_information") 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 & "Guides Name" & Guides_Name & vbcrlf msgbody = msgbody & "River Section" & Section_of_River & vbcrlf msgbody = msgbody & "Date Rafted" & Date_Rafted & vbcrlf msgbody = msgbody & "Group Organizers Name" & Group_Organizers_Name & 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 & "Additional Information: " & other_information msgbody = msgbody & "Please contact me by: " & contact_by %> Purchase Your Trip Video | Songer Whitewater Rafting
Whitewater Rafting Videos

Purchase Your Trip Video

Songer Whitewater has its own in-house video service and makes every effort to video each rafting trip, although this is not always possible. To guarantee your rafting trip is videotaped, prepaid arrangements can be added to your reservation. Videos will be shown after your trip and will be available for sale at that time. If enough copies are not available, prepaid copies will be mailed to you. Since large groups generally constitute entire trips, groups of 20 or more who would like their rafting trip videotaped will be required to arrange for a guaranteed video. For more information, including prices on group videos, please visit our group discounts page.

If you have already rafted with Songer Whitewater and did not purchase a video, but would like to purchase one now, please visit our video request page.

Videos
River Section DVD VHS
Lower New River $40 $45
Upper Gauley River $40 $45
Lower Gauley River $50 $55
<% Select Case action Case "" %>

Video Inquiry Form
River You Rafted
Your Guides Name
Date You Rafted
(mm/dd/yy)
Group Organizers Name
Name
Address
City
State or Province
Zip Code
Email
Phone
Please provide any other information that you think might help us locate your video
Contact By:
Email
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 "webmarket@songerwhitewater.com" Mail.subject="Video Form" 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 we will be in contact with you very soon about your video. Feel free to call us toll-free anytime, 1.800.356.7238, we are always glad to hear from you and happy to help in any way we can.

Thanks for choosing Songer Whitewater!

 

<% End Select %>