<%@ Language=VBScript %> <% Option Explicit Response.Buffer = true Response.Expires = -1000 Dim JMail, emailmsg, thing, msg %> Reusable Form

E-mail Address *

Group Leader's Name *
Group Name
Number in Group
Cruise Ship Name *
Date Tour Required *
Passenger Number
Telephone Number
Nationality
* required field

Locations or attractions you wish to visit?

Any other comments or questions?
Costs based on 1-4 passengers in vehicle are £35.00 per hour.
Costs based on 5-8 passengers in vehicle are £40.00 per hour.

·

<% ' Amend the Recipient, Subject and redirected page below. if (Request.Form("Submit")) = "Submit Request" then emailmsg = "" for each thing in request.form emailmsg = emailmsg & trim(thing) & ": " & trim(request.form(thing)) & vbcrlf next set msg = Server.CreateOBject( "JMail.Message" ) msg.Logging = true msg.silent = false msg.From = request.form("email") msg.AddRecipient "chimabeauly@btinternet.com" 'Recipient of emailed form msg.Subject = "Cruise ship tour enquiry from website." 'Subject of Email msg.Body = cstr(EmailMsg) msg.Send( "www17.redstation.co.uk" ) 'Change this to www2, www3 etc response.redirect "thankyou.htm" 'address of thank you page end if %>