<% Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" DIM myMail, thisPage, email1,name1,address1,city1,province1,postalcode1,country1,phone1,pet1 name1=Ucase(TRIM(Request("name"))) address1=Ucase(TRIM(Request("address"))) city1=Ucase(TRIM(Request("city"))) province1=Ucase(TRIM(Request("province"))) postalcode1=Ucase(TRIM(Request("postalcode"))) country1=Ucase(TRIM(Request("country"))) email1=TRIM(Request("email")) phone1=Ucase(TRIM(Request("phone1"))) partynum=Ucase(TRIM(Request("partynum"))) arrivalmonth=Ucase(TRIM(Request("arrivalmonth"))) arrivalday=Ucase(TRIM(Request("arrivalday"))) departmonth=Ucase(TRIM(Request("departmonth"))) departday=Ucase(TRIM(Request("departday"))) altarrivalmonth=Ucase(TRIM(Request("altarrivalmonth"))) altarrivalday=Ucase(TRIM(Request("altarrivalday"))) altdepartmonth=Ucase(TRIM(Request("altdepartmonth"))) altdepartday=Ucase(TRIM(Request("altdepartday"))) reservation=Ucase(TRIM(Request("reservation"))) equipment=Ucase (TRIM(Request ("equipment"))) to1="serpent@hiawathafn.ca" BodyText = " Camp Site Request

" & chr(10) & "=====================================" & chr(10) & "
" BodyText = BodyText & "From: " & name1 & chr(10) & "
Address: " & address1 & chr(10) & "
" BodyText = BodyText & "City: " & city1 & chr(10) & "
Province: " & province1 & chr(10) & "
" BodyText = BodyText & "Postal Code: " & postalcode1 & chr(10) & "
Country: " & country1 & chr(10) & "
" BodyText = BodyText & "Email: " & email1 & chr(10) & "
Phone Number:" & phone1 & chr(10) & "
" BodyText = BodyText & "Phone Number: " & phone1 & chr(10) & "
" BodyText = BodyText & "Number in Party: " & partynum & chr(10) & "
" BodyText = BodyText & "Preferred Date of Arrival: " & arrivalmonth & " " & arrivalday & chr(10) & "
" BodyText = BodyText & "Preferred Date of Departure: " & departmonth & " " & departday & chr(10) & "
" BodyText = BodyText & "Alternate Date of Arrival: " & altarrivalmonth & " " & altarrivalday & chr(10) & "
" BodyText = BodyText & "Alternate Date of Departure: " & altdepartmonth & " " & altdepartday & chr(10) & "
" BodyText = BodyText & "Reservation Type: " & reservation & chr(10) & "
" BodyText = BodyText & "Camping Equipment: " & equipment & chr(10) & "
" BodyText = BodyText & "=====================================" IF email1 <> "" THEN Dim iMsg Dim iConf Dim Flds Dim strHTML Dim strSmartHost Const cdoSendUsingPort = 2 StrSmartHost = "smtp.nexicom.net" set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' set the CDOSYS configuration fields to use port 25 on the SMTP server With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With ' build HTML for message body strHTML = "" strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & " This is the test HTML message body from serpentmoundspark.com
" strHTML = strHTML & "" strHTML = strHTML & "" ' apply the settings to the message With iMsg Set .Configuration = iConf .To = "serpent@hiawathafn.ca" .From = email1 .Subject = "Request Camp Site" .HTMLBody = BodyText .Send End With ' cleanup of variables Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing END IF %> Camping and More at Serpent Mounds Park


Serpent Mounds Park

For more information about Serpent Mounds Park or to make Reservations you can contact us in the following ways:

Serpent Mounds Park
c/o Hiawatha First Nation
RR 2, Keene Ontario, Canada
K0L 2G0  

Telephone:  705-295-6879
Toll free:   866-223-3332
Fax:  705-295-6877
E-mail:  serpent@hiawathafn.ca

Fill and Submit Reservation form below and we will call you to confirm availability and to obtain reservation fees and deposit.
Campsite Reservation Request Form
Name:
Address:
City:
Prov/State:
Country:
Postal/Zip:
E-mail:
Phone Number:
Number of People in Party:
Arrival Date:
Departure Date:
Alternate Arrival Date:
Alternate Departure Date:
Type of Reservation:
Camping Equipment:

Note: Reservations are not required for Day Use activities or boat launching.

banner artwork by David A. Johnson



owned and operated by : HIAWATHA FIRST NATION R.R.#2 Keene Ontario K0L 2G0