Contact Us at the Eagle Harbor Inn

<% dim strAddress strAddress=Application("EmailAddress") dim strSubject strSubject="Message from Eagle Harbor Website" dim strAsk strAsk=request("Ask") if strAsk="on" then dim strName,strAddress1, strAddress2, strCity, strState, strZip, strPhone, strEmail,strFax, strContact,strCountry, strService, strCompany strName=request("Name") strCompany=request("company") & "" strAddress1=request("Address1") strAddress2=request("Address2") & "" strCity=request("City") strState=request("State") strZip = request("Zip") strPhone=request("Phone") & "" strEmail=request("Email") & "" strFax=request("Fax") & "" dim strComments strComments = request("Comments") & "" strContact = request("Contact") & "" strCountry=request("Country") & "" strService=request("Service") dim strMonth strMonth=request("Month") dim strDay strDay=request("Day") dim strYear strYear=request("Year") dim strLength strLength=request("Length") dim strRooms strRooms=request("Rooms") dim strAdults strAdults=request("Adults") dim strChildren strChildren=request("Children") dim strBrochure strBrochure=request("Brochure") & "" dim strPlannerkit strPlannerkit=request("Plannerkit") & "" dim strOutput strOutput = strName strOutput = strOutput & vbNewline if trim(strCompany)<>"" then strOutput=strOutput & "of " & strCompany & vbNewLine end if if Trim(strAddress1)<>"" then strOutput = strOutput & strAddress1 & vbNewLine end if if Trim(strAddress2) <>"" then strOutput=strOutput & strAddress2 & vbNewLine end if if Trim(strCity)<>"" then strOutput = strOutput & strCity & ", " & strState & " " & strZip end if if trim("strCountry") <> "" then strOutput = strOutput & " " & strCountry end if strOutput=strOutput & vbNewLine if Trim(strPhone)<>"" then strOutput = strOutPut & "Phone " & strPhone & vbNewLine end if if Trim(strFax)<>"" then strOutput = strOutPut & "Fax " & strFax & vbNewLine end if if trim("Email") <> "" then strOutput = strOutput & "Email " & strEmail & vbNewLine end if strOutput = strOutput & "Please contact by " & strContact & vbNewLine strOutput = strOutput & "Requests " & strService & vbNewLine if strService ="Reservation Request-Lodging" then strOutput = strOutput & "Arrival Date: " & strMonth & " " & strDay & ", " & strYear & vbNewLine strOutput = strOutput & "Staying: " & strLength & " nights, needs " & strRooms & " rooms " & vbNewLine strOutput = strOutput & "For " & strAdults & " adults and " & strChildren & " children " & vbNewLine if strBrochure<>"" or strPlannerkit<>"" then strOutput=strOutput & "Please send " if strBrochure <> "" then strOutput=strOutput & "a brochure " if strPlannerkit<>"" then strOutput= strOutput & "and " end if end if if strPlannerkit<>"" then strOutput = strOutput & "a planner kit" end if strOutput=strOutput & vbNewLine end if end if if Trim(strComments) <> "" then strOutput = strOutPut & "Comments: " & strComments & vbNewLine end if dim objMail if Application("Email") then Set objMail = CreateObject("CDONTS.Newmail") objMail.From = strEmail objMail.To = strAddress objMail.Subject =strSubject objMail.Body = strOutput objMail.Send Set objMail = Nothing 'close the mail object else %>

<% =strOutput%>

<% end if %>

Thank you for your request. We will send you an answer by email.

<%else%>

Call us at 800-324-5427, or e-mail us.

Or, request information regarding a reservation by filling in the boxes below. A reservation is only valid after confirmation from our reservation department. We will reply via e-mail or fax with the confirmation. Please give us your e-mail address and/or fax number. Required fields (*).

Please select your service: Reservation Request-Lodging Comments (use comments field) Choose
First Night: <% dim strMonth1(12) strMonth1(1)="January" strMonth1(2)="February" strMonth1(3)="March" strMonth1(4)="April" strMonth1(5)="May" strMonth1(6)="June" strMonth1(7)="July" strMonth1(8)="August" strMonth1(9)="September" strMonth1(10)="October" strMonth1(11)="November" strMonth1(12)="December" %> <%dim intCount for intCount=1 to 12%> selected<% end if%>><% =strMonth1(intCount)%> <% next%> <% for intCount = 1 to 31%> SELECTED <% end if%>><% =intCount%> <% next%> <% =Year(now)%> <% =(Year(now) + 1)%>		Number of Nights: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
Number of Inn Rooms or Suites Needed: 1 2 3 4 More		There are 1 2 3 4 5 6 7 8 9 10 adults and 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 children
Contact Information
*Name		Zip Code
Company		Country
Street Address		Phone Number
Address 2		Fax Number
City		*Email Address
State		Contact Me By: Select One Phone Fax E-Mail Mail
Please send me a colorful brochure with rates		Comments:
Please send me a Meeting Planner's Kit   Please note approximate size & date of event in comments

<% end if%>

9914 Water Street    PO Box 588    Ephraim, WI 54211    Ph. 920.854.2121    T. 800.324.5427            GIFT CERTIFICATES