Woodberry Down Activity and Field Studies Centre

<%@ Language=VBScript %> <%option explicit%> <% dim stage stage = Request.Form ("stage") dim theFullName, theOrganisation, theAddress1 dim theStreet, theTown, theCounty dim thePostcode, theTel, theMobile, theEmail dim Id Id = request("Id") theFullName = Request.Form ("FullName") theOrganisation = Request.Form ("Organisation") theAddress1 = Request.Form ("Address1") theStreet = Request.Form ("Street") theTown = Request.Form ("Town") theCounty = Request.Form ("County") thePostcode = Request.Form ("Postcode") theTel = Request.Form ("Tel") theMobile = Request.Form ("Mobile") theEmail = Request.Form ("Email") if stage = 2 then dim theActivityPackages, theFieldStudies, theINSET dim Advertising Advertising = Request.Form ("Advertising") theActivityPackages = Request.Form ("ActivityPackages") theFieldStudies = Request.Form ("FieldStudies") theINSET = Request.Form ("INSET") 'Response.Write ("theActivityPackages: " & theActivityPackages & "
") 'Response.Write ("theFieldStudies: " & theFieldStudies & "
") 'Response.Write ("theINSET: " & theINSET & "
") 'Response.Write ("Advertising: " & Advertising & "
") end if %> Woodberry Down Activity and Field Studies Centre - Request an information pack <% if stage = "" or isnull(stage) then stage = 0 if stage = 0 then %> <% end if %>

<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'stage one if stage = 0 then %>

Info-pack request > Stage 1

Step One - Contact details

Full Name
School/Organisation
Address
Street
Town
County
Postcode

Tel
Mobile
Email

<% elseif stage = 1 then %>

Info-pack request > Stage 2

Please check that your contact details are correct:-

<% Response.Write ("" & theFullName & "
") Response.Write (theOrganisation & "
") if theAddress1 <> "" then Response.Write (theAddress1 & "
") end if Response.Write (theStreet & "
") Response.Write (theTown & "
") Response.Write (theCounty & "
") Response.Write (thePostcode & "

") if theTel <> "" then Response.Write ("Tel: " & theTel & "
") end if if theMobile <> "" then Response.Write ("Mob:" & theMobile & "
") end if if theEmail <> "" then Response.Write ("Email: " & theEmail & "") end if %>

If they are incorrect please click BACK.

I am interested in the following information:-

activity packages
field studies

<% Response.Write ("") %> INSET/CPD training

Where did you hear about us?

<% elseif stage = 2 then Response.Write ("

Info-pack request confirmation

") if theEmail <> "" then 'e-mail confirmation e-mail to centre dim Mail Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.wiss.co.uk" Mail.Priority = 1 Mail.IsHTML = false Mail.From = "website@woodberrydown.co.uk" Mail.FromName = "web server" Mail.AddAddress "info@woodberrydown.co.uk" Mail.Priority = 1 Mail.Subject = "Customer info-pack Request" dim message message = theFullName & chr(10) & theOrganisation & chr(10) & theAddress1 & chr(10) message = message & theStreet & chr(10) & theTown & chr(10) & theCounty & chr(10) message = message & thePostcode & chr(10) & chr(10) & "Tel: " & theTel & chr(10) if theMobile <> "" then message = message & "Mobile: " & theMobile & chr(10) end if if theEmail <> "" then message = message & "Email: " & theEmail & chr(10) end if message = message & chr(10) & chr(10) & "And is interested in the following:-" & chr(10) & chr(10) if theActivityPackages = 1 then message = message & "Activity Packages" & chr(10) end if if theFieldStudies = 1 then message = message & "Field Studies" & chr(10) end if if theINSET = 1 then message = message & "INSET/CPD Training" & chr(10) end if message = message & chr(10) & "Heard of us via: " & Advertising & chr(10) & chr(10) message = message & "Do not reply to this e-mail as it has been automatically generated." 'debug 'Response.Write message Mail.Body = message Mail.Send If (Err.number <> 0) Then Response.Write "Error encountered: " & Err.Description End If set Mail = nothing Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.wiss.co.uk" Mail.Priority = 1 Mail.IsHTML = true Mail.From = "info@woodberrydown.co.uk" Mail.FromName = "Woodberry Down" Mail.AddAddress theEmail Mail.Priority = 1 Mail.Subject = "Information request" 'e-mail to customer if theEmail <> "" then message = "" message = "" message = message & "

Thank you " & theFullName & ", we have received your request and will be sending you an information pack shortly." message = message & "

" message = message & "" message = message & "" message = message & "
Woodberry Down
" message = message & "Activity and Field Studies Centre
Colway Lane, Lyme Regis, Dorset, DT7 3HF. Tel 01297 444 655 Email info@woodberrydown.co.uk Web www.woodberrydown.co.uk" message = message & "

" 'debug 'Response.Write message Mail.Body = message Mail.Send end if set Mail = Nothing Response.Write ("

Thankyou, " & theFullName & " we have sent a confirmation e-mail to " & theEmail & ".") end if Response.Write ("

We will send an information pack including:-

Activity Packages
Field Studies Courses
INSET/CPD Training

") end if %>