<% 'CONDITION TEST If Request("a") = "b" Then Call Confirm Else Call FillForm End If %> <%sub FillForm%>

Forest Pond Cottage 8994 Number Four Road Lowville, NY 13367 ph. (315) 376-4433 fax (315) 376-8022 mail@forestpondcottage.com * Required information * Your name or other contact name: * Your email address: * Telephone with area code: Specific Arrival Date (Ex. May 3, 2004): Length of Stay (Nights/Weeks/Months): Number in Party (Adults & Childern): Pets joining you? (Number & Description): Enter specific questions and/or comments you may have: <%End Sub%> <%Sub Confirm%> <% 'VARIABLES name = Request.Form("admin_name") email = Request.Form("admin_email") phone = Request.Form("admin_phone") arrival = Request.Form("admin_arrival") length = Request.Form("admin_length") number = Request.Form("admin_number") pets = Request.Form("admin_pets") text = Request.Form("admin_text") %> Forest Pond Cottage 8994 Number Four Road Lowville, NY 13367 ph. (315) 376-4433 fax (315) 376-8022 mail@forestpondcottage.com Your message has been sent to Forest Pond Cottage. Thank You! Your name or other contact name: <% = name %> Your email address: <% = email %> Telephone with area code: <% = phone %> Specific Arrival Date (Ex. May 3, 2004): <% = arrival %> Length of Stay (Nights/Weeks/Months): <% = length %> Number in Party (Adults & Childern): <% = number %> Pets joining you? (Number & Description): <% = pets %> Message: <% = text %> <% dim messagetxt messagetxt = "This message is from the Contact page of ForestPondCottage.com" & vbCrLf messagetxt = messagetxt & "Name: " & name & vbCrLf messagetxt = messagetxt & "Email: " & email & vbCrLf messagetxt = messagetxt & "Phone: " & phone & vbCrLf messagetxt = messagetxt & "Arrival: " & arrival & vbCrLf messagetxt = messagetxt & "Length of Stay: " & length & vbCrLf messagetxt = messagetxt & "Number of Guests: " & number & vbCrLf messagetxt = messagetxt & "Pets?: " & pets & vbCrLf messagetxt = messagetxt & "Message: " & text & vbCrLf dim objmail set objmail = Server.CreateObject("CDONTS.NewMail") objmail.Send "contact@forestpondcottage.com","davidmattimore@yahoo.com, mail@forestpondcottage.com","Message from Contact Page of ForestPondCottage",messagetxt %> <%End Sub%>