<% @LANGUAGE = VBScript %> <% Option Explicit %> on-line Booking Form <% Dim htmlText, strpartyleader, straddress, strphone, stremail, strarrival, strdeparture, strcot, strcotnum, strcomments, strsingle, strdouble, strfamily, strt1, strt2, strt3, strt4, strt5, strt6, stri1, stri2, stri3, stri4, stri5, stri6, strs1, strs2, strs3, strs4, strs5, strs6, stra1, stra2, stra3, stra4, stra5, stra6 strpartyleader = Trim(Request.Form("partyleader")) straddress = Trim(Request.Form("address")) strphone = Trim(Request.Form("phone")) stremail = Trim(Request.Form("email")) strarrival = Trim(request.Form("arrival")) strdeparture = Trim(request.Form("departure")) strcot = Trim(request.Form("cot")) strcotnum = Trim(request.Form("cotnum")) strcomments = Trim(request.Form("comments")) strsingle = Trim(request.Form("single")) strdouble = Trim(request.Form("double")) strfamily = Trim(request.Form("family")) strt1 = Trim(Request.Form("t1")) strt2 = Trim(Request.Form("t2")) strt3 = Trim(Request.Form("t3")) strt4 = Trim(Request.Form("t4")) strt5 = Trim(Request.Form("t5")) strt6 = Trim(Request.Form("t6")) stri1 = Trim(Request.Form("i1")) stri2 = Trim(Request.Form("i2")) stri3 = Trim(Request.Form("i3")) stri4 = Trim(Request.Form("i4")) stri5 = Trim(Request.Form("i5")) stri6 = Trim(Request.Form("i6")) strs1 = Trim(Request.Form("s1")) strs2 = Trim(Request.Form("s2")) strs3 = Trim(Request.Form("s3")) strs4 = Trim(Request.Form("s4")) strs5 = Trim(Request.Form("s5")) strs6 = Trim(Request.Form("s6")) stra1 = Trim(Request.Form("a1")) stra2 = Trim(Request.Form("a2")) stra3 = Trim(Request.Form("a3")) stra4 = Trim(Request.Form("a4")) stra5 = Trim(Request.Form("a5")) stra6 = Trim(Request.Form("a6")) htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "

" htmlText = htmlText & " Booking form:" & "

" htmlText = htmlText & "Party Leader : " & strpartyleader & "
" htmlText = htmlText & "Address : " & straddress & "

" htmlText = htmlText & "Telephone Number : " & strphone & "
" htmlText = htmlText & "E-mail : " & stremail & "
" htmlText = htmlText & "Arrival Date : " & strarrival & "
" htmlText = htmlText & "Departure Date : " & strdeparture & "
" htmlText = htmlText & "Single Room : " & strsingle & "
" htmlText = htmlText & "Double Room : " & strdouble & "
" htmlText = htmlText & "Family Room : " & strfamily & "
" htmlText = htmlText & "Comments : " & strcomments & "
" htmlText = htmlText & "Party Members :" & "
" htmlText = htmlText & strt1 & " " & stri1 & " " & strs1 & " " & stra1 & "
" htmlText = htmlText & strt2 & " " & stri2 & " " & strs2 & " " & stra2 & "
" htmlText = htmlText & strt3 & " " & stri3 & " " & strs3 & " " & stra3 & "
" htmlText = htmlText & strt4 & " " & stri4 & " " & strs4 & " " & stra4 & "
" htmlText = htmlText & strt5 & " " & stri5 & " " & strs5 & " " & stra5 & "
" htmlText = htmlText & strt6 & " " & stri6 & " " & strs6 & " " & stra6 & "
" htmlText = htmlText & "" htmlText = htmlText & "" If (strpartyleader <> "") Then Dim objMail, aRecipients Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = stremail objMail.To = "honeypotcottage@lycos.com" objMail.Subject = "Booking form from web site " objMail.BodyFormat = 0 objMail.MailFormat = 0 aRecipients = Array("honeypotcottage@lycos.com") objMail.BCC = Join(aRecipients, ";") objMail.Body = htmlText objMail.Send Response.Write "Thank you for your Booking! - Use browser back arrow key to return to web site" Set objMail = Nothing Else %>

 

 

Booking Form
  Full Name* (Party leader)
  Full
Postal
Address
*
*must be completed
 
Phone Number*
E-mail*
 
  Party Members (Inc Party Leader)
  Mr./Mrs./Miss Initial Surname Age if under 21
1
2
3
4
5
6
   
 
Rooms
Single
 
Dates Required
 
Double
Arrival*
Family
Departure*
inclusive
 
 
 
 
 
Comments
Clear form


We would love to have you stay with us at HONEY POT COTTAGE. To avoid disappointment we advise you to check availability.

To help us arrange your stay, please complete the form below and we will contact you shortly to confim that the dates you require are currently avaialble.
We will also ask you for a deposit of £10 per room per night when we make confirmation of your booking.

If you wish to book by telephone, please call us on 01304 813374



 


<%End If%>