<%@LANGUAGE="VBSCRIPT"%> <% option explicit %> <% Response.Buffer = True %> <% 'Declaring Variables Dim smtpserver,youremail,yourpassword,recptmail,mailsub,Multisport_FName,Multisport_LName,Multisport_Email,Multisport_Drive,Multisport_Phone,Multisport_Length Dim Multisport_Dates,Multisport_Body,Action,IsError ' Edit these 3 values accordingly smtpserver = "mail.mainemultisport.com" recptmail = "bob@rfsharp.com" mailsub = "Independent Traveler Program Inquiry" youremail = "web@mainemultisport.com" yourpassword = "webweb" ' Grabbing variables from the form post Multisport_FName = Request("Multisport_FName") Multisport_LName = Request("Multisport_LName") Multisport_Dates = Request("Multisport_Dates") Multisport_Email = Request("Multisport_Email") Multisport_Phone = Request("Multisport_Phone") Multisport_Drive = Request("Multisport_Drive") Multisport_Body = Request("Multisport_Body") Multisport_Length = Request("Multisport_Length") Action = Request("Action") ' Used to check that the email entered is in a valid format Function IsValidEmail(Email) Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1 ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> MultiSport Trips

Independent Traveler Program

Here's how it works: You tell us the activities, type of accommodations, and number of days you want to vacation in Maine. We plan an itinerary that fits all the criteria that you provide. After you review and agree to the package we have put together we will book all the activities and accommodations for your multisport adventure. (You will be responsible for air travel and car rental bookings.)

When you arrive in Maine we will either meet with you in person and provide all the information you need for your trip, or have it waiting for you on your arrival: Maps and information as you travel around the state, detailed information about each of the activities, who your outfitter will be, when and where to meet.

We take care of all the logistical details. We know Maine, and we have great relationships with our guiding partners who provide the leadership and equipment to assure that you have a wonderful outdoor adventure experience. Each activity that you do will be with a licensed guide who is an expert in their sport.

We can be reached 24/7 while you are on your trip in case you have any questions. Yes, there is a charge for this service. We are able to get very competitive rates for many of the activities and accommodations, and then we include a 20% fee for our services. We are very explicit about all the expenses, what is and is not covered. When we present the detailed itinerary for your review it will indicate exactly what to expect.

Please let us know if you might be interested in the Independent Traveler Program.

<% If Action = "SendEmail" Then ' Here we quickly check/validate the information entered ' These checks could easily be improved to look for more things If IsValidEmail(Multisport_Email) = "False" Then IsError = "Yes" Response.Write("You did not enter a valid email address.
") End If If Multisport_FName = "" Then IsError = "Yes" Response.Write("You did not enter a First Name.
") End If If Multisport_LName = "" Then IsError = "Yes" Response.Write("You did not enter a Last Name.
") End If If Multisport_tmno = "" Then IsError = "Yes" Response.Write("You did not enter your T/M Number.
") End If If Multisport_Phone = "" Then IsError = "Yes" Response.Write("You did not enter your Phone Number.
") End If If Multisport_Body = "" Then IsError = "Yes" Response.Write("You did not enter a Comment.
") End If End If ' If there were no input errors and the action of the form is "SendEMail" we send the email off If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody ' Here we create a nice looking html body for the email strBody = strBody & "Independent Traveler Form submitted at " & Now() & vbCrLf & "

" strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "

" strBody = strBody & "First Name:" & " " & Replace(Multisport_FName,vbCr,"
") & "
" strBody = strBody & "Last Name:" & " " & Replace(Multisport_LName,vbCr,"
") & "
" strBody = strBody & "E-mail:" & " " & Replace(Multisport_Email,vbCr,"
") & "
" strBody = strBody & "Phone:" & " " & Replace(Multisport_Phone,vbCr,"
") & "
" strBody = strBody & "
Comment:" & " " & Replace(Multisport_Body,vbCr,"
") & "
" strBody = strBody & "
Contact Requested?" & " " & Replace(Multisport_contact,vbCr,"
") & "
" strBody = strBody & "" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 ObjSendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.blueone.net" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. ' ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ' ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ' ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = recptmail ObjSendMail.Subject = mailsub ObjSendMail.From = Multisport_Email ' we are sending a html email.. simply switch the comments around to send a text email instead ObjSendMail.HTMLBody = strBody 'ObjSendMail.TextBody = strBody ObjSendMail.Send Set ObjSendMail = Nothing ' change the success messages below to say or do whatever you like ' you could do a response.redirect or offer a hyperlink somewhere.. etc etc %>

Your message has been sent.

A representative of Maine Path & Paddle Guides & Outfitters, Inc. will be in touch with you shortly.

Thank You.

<% Else %>

Contact Us:

<% End If %>

Home • About Us • Reservations • MultiSport Trips • Independent Travelers
Planning & Preparation • Dates & Rates • Menus • Gear • Detailed Itinerary
FAQ • Ethics • Guides • Maine • Site Map • Links • Contact

	Maine Path & Paddle Guides & Outfitters, Inc. 60 Easter Ave. Windham, Maine 04062 877-632-2663 contact us
© 2003-2007 Maine Path & Paddle Guides & Outfitters, Inc.