on-line Booking Form

<% @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

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%>