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 - Contact Us

Thank you for your interest in Cascade Raft and Kayak, Idaho's premier whitewater rafting and kayaking center. Our friendly reservation professionals can provide you with all the information you need to schedule your Idaho whitewater adventure.

Please do not hesitate to use the form below to contact us with any questions or comments. You can also call our office any time at 800-292-7238 or 208-793-2221.

July 29, 2010

Extend Studio