|
Otto Berg On-Line Park
Reservation Form The following request form is for the reservation of the Stillwater Township "Pat Bantli" Pavillion Shelter, and other facilities located at Otto Berg Park. In addition, limited time permits are available for the Athletic areas (ex. baseball & soccer field) and facilities if available by special arrangement. There is a $25.00 reservation fee for every 4 hour block of time held. <% ' Website Contact Form Generator ' http://www.tele-pro.co.uk/scripts/contact_form/ ' This script is free to use as long as you ' retain the credit link ' declare variables Dim FirstName Dim LastName Dim Address Dim City Dim State Dim Zip Dim Phone Dim email Dim RequestDate Dim StartTime Dim EndTime Dim EstPeople Dim EstCars Dim RequestReason Dim EastEndPicnicArea Dim Basketball Dim Playground Dim WestEndPicnicArea Dim Baseball Dim SoccerFootball Dim Volleyball Dim comments Dim Terms Dim Submit ' get posted data into variables EmailFrom = Trim(Request.Form("email")) EmailTo = "feedback@stillwatertownship.com" Subject = "Township Park Request" FirstName = Trim(Request.Form("FirstName")) LastName = Trim(Request.Form("LastName")) Address = Trim(Request.Form("Address")) ' validation Dim validationOK validationOK=true If (validationOK=false) Then Response.Redirect("RecreationInformation.htm" & EmailFrom) ' prepare email body text Dim Body Body = Body & "FirstName: " & FirstName & " LastName: " & LastName& VbCrLf Body = Body & "Address: " & Address & VbCrLf Body = Body & "City: " & City & " State:" & State & " Zip: " & Zip & VbCrLf Body = Body & "Phone: " & Phone & VbCrLf Body = Body & "eMail: " & email & VbCrLf Body = Body & "Request Date: " & RequestDate & VbCrLf Body = Body & "Start Time: " & StartTime & " to " & "End Time: " & EndTime & VbCrLf ' send email Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = EmailTo mail.From = "Stillwater Township Resident" mail.Subject = Subject mail.Body = Body mail.Send ' redirect to success page Response.Redirect("RecreationInformation.htm" & EmailFrom) close ("OttobergParkReservation.htm") %> |
||
| © Copywright 2006 Stillwater Township, Stillwater, MN | ||