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

E-mail Address

Name
Date Tour Required
Telephone Number
Number in Group

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.
Suggested places to visit: Urquhart Castle, Loch Ness, Fort Augustus, Inverness City, Culloden Battlefield, Fort George, Moray Firth Dolphins, Cawdor Castle, House of Beauly, Dunrobin Castle, Inverewe Gardens, Loch Maree, Gairloch, Eilean Donan Castle, Isle of Skye, Tomatin Distillery, Cairngorm National Park, Highland Wildlife Park, Black Isle Wildlife, Cromarty,

·

<% ' 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 = "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 %>