<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
' 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 EmailFrom
Dim EmailTo
Dim Subject
Dim FirstName
Dim LastName
Dim Address
Dim City
Dim State
Dim PostCode
Dim Tel
Dim Equipment
Dim Other
' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom"))
EmailTo = "mary.owen@sungard.com"
Subject = "New Member"
FirstName = Trim(Request.Form("FirstName"))
LastName = Trim(Request.Form("LastName"))
Address = Trim(Request.Form("Address"))
City = Trim(Request.Form("City"))
State = Trim(Request.Form("State"))
PostCode = Trim(Request.Form("PostCode"))
Tel = Trim(Request.Form("Tel"))
Equipment = Trim(Request.Form("Equipment"))
Other = Trim(Request.Form("Other"))
' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)
' prepare email body text
Dim Body
Body = Body & "FirstName: " & FirstName & VbCrLf
Body = Body & "LastName: " & LastName & VbCrLf
Body = Body & "Address: " & Address & VbCrLf
Body = Body & "City: " & City & VbCrLf
Body = Body & "State: " & State & VbCrLf
Body = Body & "PostCode: " & PostCode & VbCrLf
Body = Body & "Tel: " & Tel & VbCrLf
Body = Body & "Equipment: " & Equipment & VbCrLf
Body = Body & "Other: " & Other & VbCrLf
' send email
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send
' redirect to success page
Response.Redirect("ok.htm?" & EmailFrom)
%>
Hardwood Hills Hunting Club
