Cascade Raft and Kayak

<% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr(cStr(Request.Form("Name"))) & "|WA|" & cStr(cStr(Request.Form("Email"))) & "" MailSubject = "Contact Us" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("mail.cascaderaft.com","25","tren@cascaderaft.com","heednoww") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries 'CC Entries 'Character Set 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Cascade Raft Contact Us
" & vbCrlf & "" MailBody = MailBody & "Name:" MailBody = MailBody & cStr(Request.Form("Name")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Email:" MailBody = MailBody & cStr(Request.Form("Email")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Phone:" MailBody = MailBody & cStr(Request.Form("Phone")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Prefered contact:" MailBody = MailBody & cStr(Request.Form("Contact Method")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Qustions Comments:" MailBody = MailBody & cStr(Request.Form("text")) MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((cStr(Request.Form("Submit")) <> "")) then 'WA Universal Email object="AspEmail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("tren@cascaderaft.com") 'Send Mail All Entries if ("contactsucess.html"<>"") then Response.Redirect("contactsucess.html") end if end if %> Cascade Raft and Kayak - Gift Cards

Give the gift of whitewater excitement! Perfect for all occasions--birthdays, holidays, graduations, weddings--any time you want to give an unforgettable experience. Our gift cards do not expire and can be used toward rafting trips, kayak lessons, photos or merchandise from our gift shop.

Please use the form below to order your Cascade Raft Gift Card!

updated December 10, 2012