<% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") ' Debugging lines: 'Response.Write strThisPage & "
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = "reservations@epicfishing.com" strSubject = "Reservation Form - Goodnews River Lodge" strAddress = Trim(Request.Form("txtAddress")) strCity = Trim(Request.Form("txtCity")) strState = Trim(Request.Form("txtState")) strZip = Trim(Request.Form("txtZip")) strHomePhone = Trim(Request.Form("txtHomePhone")) strWorkPhone = Trim(Request.Form("txtWorkPhone")) strFax = Trim(Request.Form("txtFax")) strPreferredWeek = Trim(Request.Form("txtPreferredWeek")) strPreferredSpecies = Trim(Request.Form("txtPreferredSpecies")) strAngler1 = Request.Form("txtAngler1") strAngler2 = Request.Form("txtAngler2") strAngler3 = Request.Form("txtAngler3") strAngler4 = Request.Form("txtAngler4") strAngler5 = Request.Form("txtAngler5") strAngler6 = Request.Form("txtAngler6") strAngler7 = Request.Form("txtAngler7") strAngler8 = Request.Form("txtAngler8") ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And strAddress <> "" bValidInput = bValidInput And strCity <> "" bValidInput = bValidInput And strState <> "" bValidInput = bValidInput And strZip <> "" bValidInput = bValidInput And strHomePhone <> "" bValidInput = bValidInput And strPreferredWeek <> "" bValidInput = bValidInput And strPreferredSpecies <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject MyBody = "Name: " & strFromName & vbCrLf MyBody = MyBody & "Address: " & strAddress & vbCrLf MyBody = MyBody & "City: " & strCity & vbCrLf MyBody = MyBody & "State: " & strState & vbCrLf MyBody = MyBody & "Zip: " & strZip & vbCrLf MyBody = MyBody & "Home Phone: " & strHomePhone & vbCrLf MyBody = MyBody & "Work Phone: " & strWorkPhone & vbCrLf MyBody = MyBody & "Fax: " & strFax & vbCrLf MyBody = MyBody & "Email: " & strFromEmail & vbCrLf MyBody = MyBody & "Preferred Week: " & strPreferredWeek & vbCrLf MyBody = MyBody & "Preferred Species: " & strPreferredSpecies & vbCrLf MyBody = MyBody & "Angler 1: " & strAngler1 & vbCrLf MyBody = MyBody & "Angler 2: " & strAngler2 & vbCrLf MyBody = MyBody & "Angler 3: " & strAngler3 & vbCrLf MyBody = MyBody & "Angler 4: " & strAngler4 & vbCrLf MyBody = MyBody & "Angler 5: " & strAngler5 & vbCrLf MyBody = MyBody & "Angler 6: " & strAngler6 & vbCrLf MyBody = MyBody & "Angler 7: " & strAngler7 & vbCrLf MyBody = MyBody & "Angler 8: " & strAngler8 & vbCrLf objCDONTS.Body = MyBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message Response.Redirect "../htmlfile/a_thanks.html" Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Redirect "../htmlfile/a_fail.html" End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strAddress, strCity, strState, strZip, strHomePhone, strWorkPhone, strFax, strPreferredWeek, strPreferredSpecies, strAngler1, strAngler2, strAngler3, strAngler4, strAngler5, strAngler6, strAngler7, strAngler8 End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strAddress, strCity, strState, strZip, strHomePhone, strWorkPhone, strFax, strPreferredWeek, strPreferredSpecies, strAngler1, strAngler2, strAngler3, strAngler4, strAngler5, strAngler6, strAngler7, strAngler8) ' I use script_name so users can rename this script witout having to change the code. %> <% '

The Message to be sent:

'

Subject: < %= strSubject % >

'

Body: < %= strBody % >

End Sub %> Contact Us

Binoculars For your convenience we have included two forms below: a reservation form and a comment form. If you would like to reserve a week for a fishing adventure, email the completed reservation form to us and call to confirm availability.

 Another great day of fishing comes to a close...
Another great day of fishing comes to a close...
We also appreciate any comments, questions, or concerns you might have about GRL. Simply type your response into the Comment textfield and click the Send Comments button.
Goodnews River Lodge
4066 Wolf Lake Dr.
Lewiston, MI 49756
Phone: (800) 274 - 8371
Fax: (989) 786-9946
Email: reservations@epicfishing.com
NOTE: Be sure to call us at 1-800-274-8371 after you email this reservation form to verify open dates and vacancy. Goodnews River Lodge cannot guarantee your specified dates without a confirmation call. Thank you for choosing Goodnews River Lodge as your fishing-adventure destination!

Camaderie between guide and guest Father/son bonding Forming friendships that last forever
Besides the fishing and rustic living, Goodnews River Lodge offers things that can't be measured - except maybe over time... camaraderie between guide and guest; father/son bonding; and friendships that will last forever.

Fishing Adventure Reservation Form

RED labels indicate a required field

Name: Home Phone:
Street: Work Phone:
City: Fax Phone:
State: Zip: Email:
Request Week of:
Preferred catch* :
* Hold the "Ctrl" key to select multiple species

Names of Anglers in Party (Specify up to 8 names)
Angler 1: Angler 5:
Angler 2: Angler 6:
Angler 3: Angler 7:
Angler 4: Angler 8:

Comments Form

Please take a moment and tell us where you heard about Goodnews River Lodge. Any other comments are encouraged as well. Thank you.

Introduction | Accommodations | Early To Rise | Cast Your Line | Adventure Pricing
Plan Your Journey | Contact Us | Our Guides | Related Links | Photo Album

Go to Reservation Form

Comments about this website...e-mail the Webmaster.