<% ' 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 EmailTo Dim Subject Dim Title Dim FirstName Dim LastName Dim Address Dim City Dim County Dim PostCode Dim Tel Dim Email Dim Comments Dim Seafarer Dim Rank Dim DoB Dim Find ' get posted data into variables EmailTo = "webmaster@carlisleseacadets.org" Subject = "Website Message" Title = Trim(Request.Form("cbTitle")) FirstName = Trim(Request.Form("tbFirstName")) LastName = Trim(Request.Form("tbLastName")) Address = Trim(Request.Form("tbAddress")) City = Trim(Request.Form("tbCity")) County = Trim(Request.Form("tbCounty")) PostCode = Trim(Request.Form("tbPostCode")) Tel = Trim(Request.Form("tbTelephone")) Email = Trim(Request.Form("tbEmail")) Comments = Trim(Request.Form("tbComments")) Seafarer = Trim(Request.Form("cbSeafarer")) Rank = Trim(Request.Form("tbRank")) DoB = Trim(Request.Form("TbDob")) Find = Trim(Request.Form("cbHowFindUs")) ' validation ' prepare email body text Dim Body Body = Body & "Title: " & cbTitle & VbCrLf Body = Body & "FirstName: " & tbFirstName & VbCrLf Body = Body & "Surname: " & tbSurname & VbCrLf Body = Body & "Address: " & tbAddress & VbCrLf Body = Body & "City: " & tbCity & VbCrLf Body = Body & "County: " & tbCounty & VbCrLf Body = Body & "PostCode: " & tbPostCode & VbCrLf Body = Body & "Tel: " & tbTelephone & VbCrLf Body = Body & "Email: " & tbEmail & VbCrLf Body = Body & "Comments: " & tbComments & VbCrLf Body = Body & "Seafarer: " & cbSeafarer & VbCrLf Body = Body & "Rank: " & tbRank & VbCrLf Body = Body & "DoB: " & TbDob & VbCrLf Body = Body & "How You Found Us: " & cbHowFindUs & VbCrLf ' send email Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = EmailTo mail.From = Trim(Request.Form("tbEmail")) mail.Subject = Subject mail.Body = Body mail.Send ' redirect to success page Response.Redirect("index.htm?" & EmailFrom) %>