File: D:/web/secure/itpplates/from bam/booking.asp
<%Option Explicit%>
<!--#include file="dbfunctions.asp"-->
<!--#include file="commonutils.asp"-->
<!--#include file="apputils.asp"-->
<html>
<%
' (SS,31/08/11) removed Non Smoking tick box as requested by Ruth
' (SS,04/04/13) replaced reference to GBP with call to new routine called CurrencyAmount in apputils.asp
' also replaced cancellation text with Application("CancellationMessage")
' (SS,05/12/13) changed max rooms from 20 to 10, also adjusted widths of tables to ensure stage 2 isn't too far to the left.
' (SS,18/04/14) added Application("TotalCostSuffix")
Dim strStage, strError, i, n, blnShowHiddenPersonal, blnShowHiddenAccommodation, blnShowSubmitButton, dblTotalCost, intBookingNo
strStage = Request.Form("Stage")
blnShowSubmitButton = True
blnShowHiddenPersonal = False
blnShowHiddenAccommodation = False
%>
<head>
<title>Accommodation Booking</title>
<link href="cslaccom.css" rel="stylesheet" type="text/css">
<script language="javascript" type="text/javascript" src="creditcardcheck.js"></script>
<script language="javascript" type="text/javascript" src="javascript.js"></script>
</head>
<%
' (SS,19/5/14) new application variable added to close the site if set to true
If Application("SiteClosed") = True Then
Response.Write("<body><h1>Site is closed</h1></body></html>")
Response.End
End If
' (SS,5/12/14) determine logo file, try PNG first, if it doesn't exist assume JPG
Dim LLogoFileNameNoExt, LLogoFileName
LLogoFileNameNoExt = "bam-logos/logo-" & Application("BookingNoPrefix")
LLogoFileName = LLogoFileNameNoExt + ".png"
If Not FileExists(Server.MapPath(LLogoFileName)) Then LLogoFileName = LLogoFileNameNoExt + ".jpg"
' (SS,5/12/14) below replaced logo.png with LLogoFileName
%>
<body LEFTMARGIN=0 TOPMARGIN=0 BGCOLOR="#FFFFFF" LINK="#000000" TEXT="#000000">
<br>
<img src="<%=LLogoFileName%>" border="0">
<TABLE width="859" cellpadding="0" cellspacing="0">
<tr>
<td width="18"></td>
<td width="839">
<TABLE width="837" cellpadding="0" cellspacing="0">
<TR>
<TD width="835">
<p class="title"><%=Application("ConferenceName")%><br>
<span class="subtitle"><%=Application("Subtitle1")%></span>
<%If Application("Subtitle2") <> "" Then Response.Write("<br><span class=""subtitle2"">" & Application("Subtitle2") & "</span>")%>
<%If Application("Subtitle3") <> "" Then Response.Write("<br><span class=""subtitle3"">" & Application("Subtitle3") & "</span>")%>
<%If Application("AvailabilityMessage") <> "" Then Response.Write("<br><p class=""availability"">" & Application("AvailabilityMessage") & "</p>")%>
</p>
<%
If strStage = "Accommodation" Then
If Application("AccommodationMessage") <> "" Then
Response.Write Application("AccommodationMessage") & "<br />"
End If
If Application("SpecialRequirementsMessage") <> "" Then
Response.Write Application("SpecialRequirementsMessage") & "<br />"
End If
End If%>
</TD>
</TR>
<TR>
<TD BGCOLOR="#FFFFFF">
<%
Dim strSQL
Dim strTitle, strFirstName, strSurname, strOrganisation, strAddress1, strAddress2, strAddress3, strAddress4
Dim strPostcode, strCountry, strTelephone, strMobile, strEmail, strEmailConfirm
%>
<form name = "frmMain" action="booking.asp" method="post">
<%
' get personal details '
strTitle = Request.Form("Title")
strFirstName = Request.Form("FirstName")
strSurname = Request.Form("Surname")
strOrganisation = Request.Form("Organisation")
strAddress1 = Request.Form("Address1")
strAddress2 = Request.Form("Address2")
strAddress3 = Request.Form("Address3")
strAddress4 = Request.Form("Address4")
strPostcode = Request.Form("Postcode")
strCountry = Request.Form("Country")
strTelephone = Request.Form("Telephone")
strMobile = Request.Form("Mobile")
strEmail = Request.Form("Email")
strEmailConfirm = Request.Form("EmailConfirm")
' get room details '
' (SS,25/10/11) changed maximum from 4 to 20
' (SS,5/12/13) changed from 20 to 10
' (SS,5/12/14) now replaced by setting in database "MaxRoomsPerBooking"
' Const MAX_ROOMS = 10
Dim strHotelID, strArrivalDate(20), strNoOfNights(20)
Dim strTitleArray(20), strFirstNameArray(20), strSurnameArray(20) ' (SS,28/4/15) replaced strFullName(20) with these
Dim strRoomType(20), strSharingWith(20)
Dim strNonSmoking(20), strSpecialReq(20)
' get values from form '
strHotelID = Request.Form("Hotel")
For i = 1 To MAX_ROOMS
' strFullName(i) = Request.Form("FullName" & i)
' (SS,28/4/15) replaced above with following
strTitleArray(i) = Trim(Request.Form("Title" & i))
strFirstNameArray(i) = Trim(Request.Form("FirstName" & i))
strSurnameArray(i) = Trim(Request.Form("Surname" & i))
strArrivalDate(i) = Request.Form("ArrivalDate" & i)
strNoOfNights(i) = Request.Form("NoOfNights" & i)
strRoomType(i) = Request.Form("RoomType" & i)
strSharingWith(i) = Request.Form("SharingWith" & i)
strNonSmoking(i) = Request.Form("NonSmoking" & i)
strSpecialReq(i) = Request.Form("SpecialReq" & i)
Next
' get credit card details '
Dim strCreditCardType, strCreditCardOther, strCreditCardNo, strCreditCardName, strExpiryMonth, strExpiryYear
strCreditCardType = Request.Form("CreditCardType")
strCreditCardOther = Request.Form("CreditCardOther")
strCreditCardNo = Request.Form("CreditCardNo")
strCreditCardName = Request.Form("CreditCardName")
strExpiryMonth = Request.Form("ExpiryMonth")
strExpiryYear = Request.Form("ExpiryYear")
strError = ""
' (SS,3/10/14) different stages: Personal, Accommodation, CreditCard, Book
If strStage = "Accommodation" Then
' validate personal details if user has clicked next on Personal Details if error then go back to "Personal" '
If Not CheckValidPersonalDetails Then
strStage = "Personal"
End If
ElseIf strStage = "CreditCard" Then
' validate personal details if error then go back to "Personal" '
If Not CheckValidPersonalDetails Then
strStage = "Personal"
End If
' validate accommodation details if error then go back to "Accommodation" '
If Not CheckValidAccommodationDetails Then
strStage = "Accommodation"
End If
ElseIf strStage = "Book" Then
' validate personal details if error then go back to "Personal" '
If Not CheckValidPersonalDetails Then
strStage = "Personal"
End If
' validate accommodation details if error then go back to "Accommodation" '
If Not CheckValidAccommodationDetails Then
strStage = "Accommodation"
End If
' validate credit card details if error then go back to "CreditCard" '
' (SS,3/10/14) added If Application("CreditCardEnabled") to only check credit card details if credit card is enabled, separate "if" used otherwise CheckValidCreditCardDetails will get called and add an error message
If Application("CreditCardEnabled") Then
If Not CheckValidCreditCardDetails Then
strStage = "CreditCard"
End If
End If
End If
' check availability '
If strStage = "CreditCard" Or strStage = "Book" Then
' Add new booking night temp records '
CreateBookingNightTempRecords
' CheckAvailabilityAndCost returns -1 if not all available, else it returns total cost '
dblTotalCost = CheckAvailabilityAndCost()
If dblTotalCost = -1 Then
' strError = "Rooms choosen or dates selected are not all available please amend selection." '
' (SS,8/11/06) replaced above with following '
'strError = "This date is now fully booked. For further information please contact Conference Search on 0161 427 7057."
' (SS,8/11/11) replaced above with following
' (SS,14/12/17) replaced "One of these dates is now fully booked." with "One or more of these nights is fully booked. Please select another hotel."
strError = "One or more of these nights is fully booked. Please select another hotel.<br /> For further assistance please contact Conference Search on +44 (0) 161 427 7057<br /> or email <a href=""mailto:" & Application("FromEmailAddress") & """>" & Application("FromEmailAddress") & "</a>."
' change stage back to Accommodation '
strStage = "Accommodation"
End If
End If
If strStage = "CreditCard" Then
CreateBookingFlag ' used to prevent duplicate bookings when page is refreshed '
End If
' if booking and not booking flag then go back to personal details (i.e. new booking) '
If strStage = "Book" Then
If Not CheckBookingFlag Then
strStage = "Personal"
End If
End If
' show error if there is one '
%>
<TABLE>
<TR>
<TD WIDTH="100%" class="errormessage"><%=strError%> </TD>
</TR>
</TABLE>
<%
If strStage = "" Or strStage = "Personal" Then
' delete the booking flag for this session_id in case it exists '
DeleteBookingFlag
' set next stage to be Accommodation '
strStage = "Accommodation"
%>
<TABLE width="715" border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD bgColor=#000000 colSpan=3><IMG height=1 src="space.gif" width=1 border=0></TD>
</TR>
<TR>
<TD width=1 bgColor=#000000><IMG height=1 src="space.gif" width=1 border=0></TD>
<TD vAlign=top>
<TABLE BORDER="0" CELLSPACING="1" CELLPADDING="2" WIDTH="100%">
<TR>
<TD COLSPAN="2" class="tableheader">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="100%" class="tableheader">Enter Personal Details</TD>
<TD nowrap class="tableheader"> Step 1 of 3 </TD>
<TD valign="middle" class="tableheader"><a href="javascript:itp_goto('Accommodation')"><img src="continue.gif" width="70" height="18" border="0"></a></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD class="forminput" width="0%" nowrap>Title (e.g. Mr, Ms, Mrs)</TD>
<TD class="forminput" width="100%"><INPUT TYPE="TEXT" NAME="Title" VALUE="<%=strTitle%>" SIZE="10" MAXLENGTH="10"><BR></TD>
</TR>
<TR>
<TD class="forminput">First Name *</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="FirstName" VALUE="<%=strFirstName%>" SIZE="30" MAXLENGTH="50"><BR></TD>
</TR>
<TR>
<TD class="forminput">Surname *</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Surname" VALUE="<%=strSurname%>" SIZE="30" MAXLENGTH="50"></TD>
</TR>
<TR>
<TD class="forminput"><%=Application("OrganisationLabel")%><%=IIf(Application("OrganisationRequired"), " *", "")%></TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Organisation" VALUE="<%=strOrganisation%>" SIZE="30" MAXLENGTH="50"></TD>
</TR>
<%If Application("AddressEnabled") Then%>
<TR>
<TD class="forminput">Address Line 1 *</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Address1" VALUE="<%=strAddress1%>" SIZE="30" MAXLENGTH="50"></TD>
</TR>
<TR>
<TD class="forminput">Address Line 2</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Address2" VALUE="<%=strAddress2%>" SIZE="30" MAXLENGTH="50"></TD>
</TR>
<TR>
<TD class="forminput">Address Line 3</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Address3" VALUE="<%=strAddress3%>" SIZE="30" MAXLENGTH="50"></TD>
</TR>
<TR>
<TD class="forminput">Address Line 4</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Address4" VALUE="<%=strAddress4%>" SIZE="30" MAXLENGTH="50"></TD>
</TR>
<TR>
<TD class="forminput">Postcode/Zip *</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Postcode" VALUE="<%=strPostcode%>" SIZE="10" MAXLENGTH="20"></TD>
</TR>
<TR>
<TD class="forminput">Country *</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Country" VALUE="<%=strCountry%>" SIZE="30" MAXLENGTH="50"></TD>
</TR>
<%End If%>
<TR>
<TD class="forminput">Telephone</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Telephone" VALUE="<%=strTelephone%>" SIZE="30" MAXLENGTH="50"></TD>
</TR>
<TR>
<TD class="forminput">Mobile</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Mobile" VALUE="<%=strMobile%>" SIZE="30" MAXLENGTH="50"></TD>
</TR>
<TR>
<TD class="forminput">Email *</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Email" VALUE="<%=strEmail%>" SIZE="30" MAXLENGTH="100"></TD>
</TR>
<TR>
<TD class="forminput">Retype Email</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="EmailConfirm" VALUE="<%=strEmailConfirm%>" SIZE="30" MAXLENGTH="100"></TD>
</TR>
</TABLE>
</TD>
<TD width=1 bgColor=#000000><IMG height=1 src="space.gif" width=1 border=0></TD>
</TR>
<TR>
<TD bgColor=#000000 colSpan=3><IMG height=1 src="space.gif" width=1 border=0></TD>
</TR>
</TBODY>
</TABLE>
<%
' else if stage is Accommodation then show accommodation details '
ElseIf strStage = "Accommodation" Then
strStage = "CreditCard"
' set default for first name to same as main name '
' If strFullName(1) = "" Then strFullName(1) = Iif(strTitle = "", "", strTitle + " ") + strFirstName + " " + strSurname
' (SS,29/4/15) replaced above with following
If strTitleArray(1) = "" And strFirstNameArray(1) = "" And strSurnameArray(1) = "" Then
strTitleArray(1) = strTitle
strFirstNameArray(1) = strFirstName
strSurnameArray(1) = strSurname
End If
blnShowHiddenPersonal = True
%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD bgColor=#000000 colSpan=3><IMG height=1
src="space.gif"
width=1 border=0></TD>
</TR>
<TR>
<TD width=1 bgColor=#000000><IMG height=1
src="space.gif"
width=1 border=0></TD>
<TD vAlign=top>
<TABLE BORDER="0" CELLSPACING="1" CELLPADDING="2" WIDTH="100%">
<TR>
<TD COLSPAN="9" class="tableheader">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="100%" class="tableheader">Choose Accommodation</TD>
<TD valign="middle" class="tableheader"><a href="javascript:itp_goto('Personal')"><img src="back.gif" width="70" height="18" border="0"></a></TD>
<TD nowrap class="tableheader"> Step 2 of 3 </TD>
<TD valign="middle" class="tableheader"><a href="javascript:itp_goto('CreditCard')"><img src="continue.gif" width="70" height="18" border="0"></a></TD>
</TR>
</TABLE>
</TD>
</TR>
<% ' (SS,28/10/16) if single hotel then don't show combo, just store as hidden value
Dim LHotelID
If IsSingleHotel(LHotelID) Then
%>
<INPUT TYPE="HIDDEN" NAME="Hotel" VALUE="<%=LHotelID%>">
<%
Else
%><TR>
<TD class="forminput" nowrap COLSPAN="9">Hotel *
<%
' Response.Write(GetLookupComboDiffFormField("Hotels", "HotelName", "HotelName", "SortOrder", strHotelName, "--> Please choose"))
' (SS,23/8/11) replaced above with following to not show hotels that have no rooms available, i.e. new query qryHotelsAvailable was added
' (SS,13/12/12) added CDate(ArrivalDate) to sort order for L_ArrivalDates, CDate was necessary because the field is type "Text"
' also had to change the order for L_ArrivalDates in the Edit table in settings.mdb by setting ViewOrderBy field to "Cdate(ArrivalDate)" for EditID "ARRIVALDATES"
' but this wasn't essential because it's for admin purposes.
' (SS,29/11/14) in MySQL field ArrivalDate changed from VARCHAR to DATE, in table L_ArrivalDates, also Cdate(ArrivalDate) to ArrivalDate on Edit table field ARRIVALDATES
' (SS,6/12/14) added "HotelID", also replaced HotelName with Hotel
' (SS,23/10/15) added Where clause to only shows dates where ShowOnWeb is True
Response.Write(GetLookupComboDiffFormField("qryHotelsAvailable", "HotelName", "Hotel", "SortOrder", strHotelID, "--> Please choose", "HotelID", "ShowOnWeb = 'Yes'"))
' (SS,29/4/15) replaced Full Name with Title, First Name and Surname
' (SS,5/11/15) removed "<br>(if twin room)" after "Name of person sharing"
%>
</TD>
</TR>
<%End If%>
<TR>
<TD class="forminput"> </TD>
<TD class="forminput" align="center">Title</TD>
<TD class="forminput" align="center">First Name *</TD>
<TD class="forminput" align="center">Surname *</TD>
<TD class="forminput" align="center">Date of Arrival *</TD>
<TD class="forminput" align="center">No. of<br>Nights *</TD>
<TD class="forminput" align="center">Room Type *</TD>
<TD class="forminput" align="center">Name of person sharing</TD>
<!--<TD class="forminput" align="center">Non-smoking preferred</TD>-->
<TD class="forminput" align="center">Special Requirements</TD>
</TR>
<%
' (SS,29/4/15) replaced Full Name with Title, First Name and Surname
For i = 1 to MAX_ROOMS
%>
<TR>
<TD class="forminput"><%=i%>.</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Title<%=i%>" VALUE="<%=strTitleArray(i)%>" SIZE="5" MAXLENGTH="50"></TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="FirstName<%=i%>" VALUE="<%=strFirstNameArray(i)%>" SIZE="10" MAXLENGTH="50"></TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="Surname<%=i%>" VALUE="<%=strSurnameArray(i)%>" SIZE="10" MAXLENGTH="50"></TD>
<TD class="forminput">
<%
' (SS,28/11/14) replaced CDate(ArrivalDate) which works in Access to DATE(ArrivalDate)
' (SS,6/12/14) replaced DATE(ArrivalDate) with ArrivalDate (5th parameter)
' (SS,30/4/15) added Where clause to only shows dates where ShowOnWeb is True
' (SS,3/12/15) resized SpecialReq field from maxlength="50" to maxlength="100"
Response.Write(GetLookupComboDiffFormField("L_ArrivalDates", "ArrivalDate", "ArrivalDate" & i, "ArrivalDate", strArrivalDate(i), "Blank", "", "ShowOnWeb = 'Yes'"))
%>
</TD>
<TD class="forminput">
<%
' (SS,30/4/15) added Where clause to only shows dates where ShowOnWeb is True
Response.Write(GetLookupComboDiffFormField("L_NoOfNights", "NoOfNights", "NoOfNights" & i, "", strNoOfNights(i), "Blank", "", "ShowOnWeb = 'Yes'"))
%>
</TD>
<TD class="forminput">
<%
' (SS,1/11/16) added ShowOnWeb = 'Yes' to last paramater, new field added to L_RoomTypes field
Response.Write(GetLookupComboDiffFormField("L_RoomTypes", "RoomType", "RoomType" & i, "SortOrder", strRoomType(i), "Blank", "RoomTypeID", "ShowOnWeb = 'Yes'"))
%>
</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="SharingWith<%=i%>" VALUE="<%=strSharingWith(i)%>" SIZE="17" MAXLENGTH="50"></TD>
<!--<TD class="forminput" align="center"><INPUT TYPE="CHECKBOX" NAME="NonSmoking<.=i.>" VALUE="Yes"<.If strNonSmoking(i) = "Yes" Then Response.Write(" checked").>></TD>-->
<TD class="forminput"><INPUT TYPE="TEXT" NAME="SpecialReq<%=i%>" VALUE="<%=strSpecialReq(i)%>" SIZE="17" MAXLENGTH="100"></TD>
</TR>
<%
Next
%>
</TABLE>
</TD>
<TD width=1 bgColor=#000000><IMG height=1
src="space.gif"
width=1 border=0></TD>
</TR>
<TR>
<TD bgColor=#000000 colSpan=3><IMG height=1
src="space.gif"
width=1 border=0></TD>
</TR>
</TBODY>
</TABLE>
<%
' else if stage is CreditCard then show credit card form details '
ElseIf strStage = "CreditCard" Then
strStage = "Book"
' pass on values to next stage '
blnShowHiddenPersonal = True
blnShowHiddenAccommodation = True
' (SS,8/1/13) added RoomRateMessage after total cost, changed "total duration" to "duration", also changed � to GBP
' (SS,4/4/13) replaced GBP with CurrencyAmount(..)
' (SS,18/4/14) added Application("TotalCostSuffix")
%>
<TABLE>
<TR>
<TD>
<%If Application("CreditCardEnabled") Then%>
Total cost for the duration of your stay at your chosen hotel: <b><%=CurrencyAmount(dblTotalCost)%><%=Application("TotalCostSuffix")%></b><br>
<%If Application("RoomRateMessage") <> "" Then Response.Write Application("RoomRateMessage") & "<br>"%>
A credit card is required to guarantee your reservation.<br><br>
<%End If%>
<% ' (SS,4/4/13) replaced text with application variable, was 48 hours changed to 24 hours
Response.Write Application("CancellationMessage")
%>
</TD>
</TR>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD bgColor=#000000 colSpan=3><IMG height=1 src="space.gif" width=1 border=0></TD>
</TR>
<TR>
<TD width=1 bgColor=#000000><IMG height=1 src="space.gif" width=1 border=0></TD>
<TD vAlign=top>
<TABLE BORDER="0" CELLSPACING="1" CELLPADDING="2" WIDTH="100%">
<TR>
<TD COLSPAN="2" class="tableheader">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="100%" class="tableheader"><%=IIf(Application("CreditCardEnabled"), "Enter Credit Card Details", "Confirm Booking")%></TD>
<TD valign="middle" class="tableheader"><a href="javascript:itp_goto('Accommodation')"><img src="back.gif" width="70" height="18" border="0"></a></TD>
<TD nowrap class="tableheader"> Step 3 of 3 </TD>
<TD valign="middle" class="tableheader"><a href="javascript:itp_goto('Book',<%=IIf(Application("CreditCardEnabled"), "false", "true")%>)"><img src="confirm.gif" width="70" height="18" border="0"></a></TD>
</TR>
</TABLE>
</TD>
</TR>
<%If Application("CreditCardEnabled") Then%>
<TR>
<TD class="forminput" WIDTH="0%" nowrap>Type of Credit Card *</TD>
<TD class="forminput" WIDTH="100%">
<%
Response.Write(GetLookupComboDiffFormField("L_CreditCardTypes", "CreditCardType", "CreditCardType", "SortOrder", strCreditCardType, "--> Please choose", "", ""))
%>
</TD>
</TR>
<TR>
<TD class="forminput" nowrap>Credit Card Number *</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="CreditCardNo" VALUE="<%=strCreditCardNo%>" SIZE="24" MAXLENGTH="20" AUTOCOMPLETE="OFF">
(without spaces)
</TD>
</TR>
<TR>
<TD class="forminput" nowrap>Name on Credit Card *</TD>
<TD class="forminput"><INPUT TYPE="TEXT" NAME="CreditCardName" VALUE="<%=strCreditCardName%>" SIZE="30" MAXLENGTH="30" >
</TD>
</TR>
<TR>
<TD class="forminput" nowrap>Expiry Month / Year *</TD>
<TD class="forminput">
<%
Response.Write(GetLookupComboDiffFormField("L_CreditCardMonths", "Month", "ExpiryMonth", "", strExpiryMonth, "Blank", "", ""))
Response.Write(GetLookupComboDiffFormField("L_CreditCardYears", "Year", "ExpiryYear", "", strExpiryYear, "Blank", "", ""))
%>
</TD>
</TR>
<%Else%>
<TR>
<TD class="forminput" colspan="2" WIDTH="100%">Please check your details below and press the confirm button above to place the booking.</TD>
</TR>
<%End If%>
</TABLE>
</TD>
<TD width=1 bgColor=#000000><IMG height=1
src="space.gif"
width=1 border=0></TD>
</TR>
<TR>
<TD bgColor=#000000 colSpan=3><IMG height=1
src="space.gif"
width=1 border=0></TD>
</TR>
</TBODY>
</TABLE>
<%
' else if stage is CreditCard then show credit card form details '
ElseIf strStage = "Book" Then
strStage = "Confirm"
' add the booking '
If AddBooking Then
' email the booking
' (SS,7/12/14) added intBookingNo and ET_BOOKING
EmailBooking intBookingNo, ET_BOOKING
' email availability warning if hotel date/room type has reached zero or below '
EmailAvailabilityWarning ' (SS,2/12/04) disabled for now, email gets too big '
%>
<table>
<tr>
<td width="0"></td>
<td>
Thank you for booking your accommodation.<br><br>
A confirmation will be emailed to you shortly.<br><br>
Your booking number is <b><%=GetBookingNo(intBookingNo)%>.<b><br>
<td>
</tr>
</table>
<%
Else
%>
The booking has failed.<br><br>
Please try again later.<br><br>
<%
End If
blnShowSubmitButton = False
End If
%>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="2" WIDTH="100%" ALIGN="center">
<%
' (SS,3/10/14) added (Application("CreditCardEnabled") Or strStage = "Book") to not show if credit card not enable and on the last stage
If blnShowSubmitButton And (Application("CreditCardEnabled") Or strStage <> "Book") Then
%>
<TR>
<TD class="formtext">* Note: Fields marked with an asterisk are required fields.</TD>
</TR>
<%
End If
%>
</TABLE>
<INPUT TYPE="HIDDEN" NAME="Stage" VALUE="<%=strStage%>">
<%
If blnShowHiddenPersonal Then
%>
<INPUT TYPE="HIDDEN" NAME="Title" VALUE="<%=strTitle%>">
<INPUT TYPE="HIDDEN" NAME="FirstName" VALUE="<%=strFirstName%>">
<INPUT TYPE="HIDDEN" NAME="Surname" VALUE="<%=strSurname%>">
<INPUT TYPE="HIDDEN" NAME="Organisation" VALUE="<%=strOrganisation%>">
<INPUT TYPE="HIDDEN" NAME="Address1" VALUE="<%=strAddress1%>">
<INPUT TYPE="HIDDEN" NAME="Address2" VALUE="<%=strAddress2%>">
<INPUT TYPE="HIDDEN" NAME="Address3" VALUE="<%=strAddress3%>">
<INPUT TYPE="HIDDEN" NAME="Address4" VALUE="<%=strAddress4%>">
<INPUT TYPE="HIDDEN" NAME="Postcode" VALUE="<%=strPostcode%>">
<INPUT TYPE="HIDDEN" NAME="Country" VALUE="<%=strCountry%>">
<INPUT TYPE="HIDDEN" NAME="Telephone" VALUE="<%=strTelephone%>">
<INPUT TYPE="HIDDEN" NAME="Mobile" VALUE="<%=strMobile%>">
<INPUT TYPE="HIDDEN" NAME="Email" VALUE="<%=strEmail%>">
<INPUT TYPE="HIDDEN" NAME="EmailConfirm" VALUE="<%=strEmailConfirm%>">
<%
End If
If blnShowHiddenAccommodation Then
%>
<INPUT TYPE="HIDDEN" NAME="Hotel" VALUE="<%=strHotelID%>">
<%
' (SS,29/4/15) replaced FullName with Title, FirstName and Surname
For i = 1 to MAX_ROOMS
%>
<INPUT TYPE="HIDDEN" NAME="Title<%=i%>" VALUE="<%=strTitleArray(i)%>">
<INPUT TYPE="HIDDEN" NAME="FirstName<%=i%>" VALUE="<%=strFirstNameArray(i)%>">
<INPUT TYPE="HIDDEN" NAME="Surname<%=i%>" VALUE="<%=strSurnameArray(i)%>">
<INPUT TYPE="HIDDEN" NAME="ArrivalDate<%=i%>" VALUE="<%=strArrivalDate(i)%>">
<INPUT TYPE="HIDDEN" NAME="NoOfNights<%=i%>" VALUE="<%=strNoOfNights(i)%>">
<INPUT TYPE="HIDDEN" NAME="RoomType<%=i%>" VALUE="<%=strRoomType(i)%>">
<INPUT TYPE="HIDDEN" NAME="SharingWith<%=i%>" VALUE="<%=strSharingWith(i)%>">
<!--<INPUT TYPE="HIDDEN" NAME="NonSmoking<.=i.>" VALUE="<.=strNonSmoking(i).>">-->
<INPUT TYPE="HIDDEN" NAME="SpecialReq<%=i%>" VALUE="<%=strSpecialReq(i)%>">
<%
Next
End If
%>
</form>
</TD>
</TR>
<%
' show availability if necessary '
' (SS,8/1/13) removed ..Application("RoomRateMessage")..
If strStage = "CreditCard" Then
' ShowAvailability
End If
If strStage = "Book" Then
%>
<TABLE>
<TR>
<TD>
Please check that the details below are correct before continuing.
</TD>
</TR>
</TABLE>
<%
ShowAccommodationDetails
%>
<BR>
<%
ShowPersonalDetails
End If
%>
</TABLE>
</td>
</tr>
</table>
<%Finalise%>
</body>
</html>