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.

Gift cards are available for any amount. To purchase on line click the link below then you can enter any denomination and charge it to a credit card, or call our friendly reservation professionals for assistance.
208.793.2221 800.292.7238

updated July 29, 2010