File: D:/web archive/conferencesearch (old) (to delete)/bookdev/inc-template-booking.asp
<%
' (SS,07/10/14) Added Purchase Order No
Sub DummyHTMLHeaderToFoolDreamweaverBookingForm
%>
<link href="styles.css" rel="stylesheet" type="text/css">
<%
End Sub
Sub ShowPasswordHeader
%>
<%
End Sub
' (SS,27/7/09) added id and page to hidden form values (for new delegate list)
Sub ShowPasswordForm(AErrorMessage)
If AErrorMessage <> "" Then ITP_ErrorMessage = AErrorMessage
AErrorMessage = ConvertNewlinesToHTML(AErrorMessage)
%>
<table border=0 cellpadding=2 cellspacing=0>
<FORM ACTION="index.asp" METHOD=POST class="nospace">
<%If AErrorMessage <> "" Then%>
<tr>
<td colspan="2" class="indent"> <span class="errormessage"><br>
<%=AErrorMessage%></span> </td>
</tr>
<%End If%>
<tr>
<td> </td>
</tr>
<tr>
<td><strong>Password: </strong></td>
<td><input type="text" name="pw" size="25" class="form""></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="Submit" name="submit"></td>
</tr>
<tr>
<td> </td>
<td>If you have been given a password, then please enter it above and press the <b>Submit</b> button.
<br><br>
Should you experience any problems with this site,<br>
please contact Conference Search on 0161 427 7057.
</td>
</tr>
<input type="hidden" name="did" value="<%=Request("did")%>">
<input type="hidden" name="id" value="<%=Request("id")%>">
<input type="hidden" name="page" value="<%=Request("page")%>">
</form>
</table>
<%
End Sub
Sub ShowMessage(AErrorMessage)
If AErrorMessage <> "" Then ITP_ErrorMessage = AErrorMessage
AErrorMessage = ConvertNewlinesToHTML(AErrorMessage)
%>
<table width="691" border=0 cellpadding=2 cellspacing=0>
<%If AErrorMessage <> "" Then%>
<tr>
<td colspan="3" class="indent"> <span class="errormessage"><br>
<%=AErrorMessage%></span> </td>
</tr>
<%End If%>
</table>
<%
End Sub
Sub ShowPasswordFooter
%>
<%
End Sub
Sub ShowConferenceSelectorHeader
%>
<table width="700" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" height="150" align="center"><strong><br>
<img src="images/csl-logo.jpg"><br><br>
Delegate Registration Form##C<br>
<br>
</td>
</tr>
<tr>
<td height="500" valign="top">
<table width="700" cellspacing="0" cellpadding="0" class="border">
<tr>
<td height="156" valign="top">
<%
End Sub
Sub ShowConferenceSelectorForm(AErrorMessage, AConferenceComboHTML)
If AErrorMessage <> "" Then ITP_ErrorMessage = AErrorMessage
AErrorMessage = ConvertNewlinesToHTML(AErrorMessage)
%>
<FORM ACTION="index.asp" METHOD=POST class="nospace">
<table width="691" border=0 cellpadding=2 cellspacing=0>
<%If AErrorMessage <> "" Then%>
<tr>
<td colspan="3" class="indent"> <span class="errormessage"><br>
<%=AErrorMessage%></span> </td>
</tr>
<%End If%>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td class="formtitle"><strong>Conference: </strong></td>
<td colspan="2"><%=AConferenceComboHTML%></td>
</tr>
<tr>
<td> </td>
<td colspan="2"><input type="submit" value="Submit" name="submit">
</td>
</tr>
</table>
<input type="hidden" name="postconferenceform" value="yes">
<input type="hidden" name="passwordentered" value="yes">
</form>
<%
End Sub
Sub ShowConferenceSelectorFooter
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
End Sub
Sub ShowVenueSelectorHeader(AConferenceName, AConferenceDescription)
%>
<%
End Sub
Sub ShowVenueSelectorForm(AErrorMessage, AConferenceID, AVenueComboHTML)
If AErrorMessage <> "" Then ITP_ErrorMessage = AErrorMessage
AErrorMessage = ConvertNewlinesToHTML(AErrorMessage)
%>
<FORM ACTION="<%=GetRegistrationFormLink(False)%>" METHOD=POST class="nospace">
<table border=0 cellpadding=2 cellspacing=0>
<%If AErrorMessage <> "" Then%>
<tr>
<td colspan="3" class="indent"> <span class="errormessage"><br>
<%=AErrorMessage%></span> </td>
</tr>
<%End If%>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td class="formtitle"><strong>Venue: </strong></td>
<td colspan="2"><%=AVenueComboHTML%></td>
</tr>
<tr>
<td> </td>
<td colspan="2"><input type="submit" value="Submit" name="submit">
</td>
</tr>
</table>
<input type="hidden" name="id" value="<%=AConferenceID%>">
<input type="hidden" name="postvenueform" value="yes">
<input type="hidden" name="passwordentered" value="yes">
</form>
<%
End Sub
Sub ShowVenueSelectorFooter
%>
<%
End Sub
Sub ShowBookingHeader(AConferenceName, AVenueID, AVenueName, AVenueDate, AVenueDescription)
%>
<%If AVenueDescription <> "" Then%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><%=ConvertNewlinesToHTML(AVenueDescription)%></td>
</tr>
</table>
<%End If%>
<%
End Sub
' (SS,2/12/06) added ADelegateID and APassword
Sub ShowBookingForm(AErrorMessage, AConferenceID, AVenueID, ADelegateID, APassword)
Dim LRequired
LRequired = "*"
If strCountry = "" Then strCountry = "United Kingdom" ' (SS,15/9/06) added default country
%>
<FORM ACTION="<%=GetRegistrationFormLink(False)%>" METHOD=POST onSubmit="MM_validateForm('Telephone','','R', 'Email','','RisEmail');return document.MM_returnValue" class="nospace">
<table border=0 cellpadding=2 cellspacing=0>
<%If AErrorMessage <> "" Then%>
<tr>
<td class="indent"> <span class="errormessage"><br>
<%=AErrorMessage%></span> </td>
</tr>
<%End If%>
<tr>
<td><b>Please enter your details using the correct case as
this will be used to process and confirm your booking</b>
</td>
</tr>
</table>
<table border=0 cellpadding=2 cellspacing=0>
<tr>
<td colspan="2"> </td>
</tr>
<%If BookingFieldAllowed(BF_TITLE) Then%>
<tr>
<td class="formtitle">Title:</td>
<td class="formrt"><input name="Title" type="text" size="10" class="form" value="<%=strTitle%>">
<span class="formhp"><%=LRequired%> e.g. Mr, Mrs, Miss, Dr, Sir</span></td>
</tr>
<%End If%>
<tr>
<td class="formtitle">First Name:</td>
<td class="formrt"><input type="text" name="FirstName" size="25" class="form" value="<%=strFirstName%>">
<span class="formhp"><%=LRequired%></span></td>
</tr>
<tr>
<td class="formtitle">Surname:</td>
<td class="formrt"><input type="text" name="Surname" size="25" class="form" value="<%=strSurname%>">
<span class="formhp"><%=LRequired%></span></td>
</tr>
<%If BookingFieldAllowed(BF_NAME_ON_BADGE) Then%>
<tr>
<td class="formtitle">Name to appear on your badge:</td>
<td class="formrt"><input type="text" name="NameOnBadge" size="40" class="form" value="<%=strNameOnBadge%>">
<span class="formhp"><%=LRequired%> (First Name & Surname)</span></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_JOB_TITLE) Then%>
<tr>
<td class="formtitle">Job Title:</td>
<td class="formrt"><input type="text" name="JobTitle" size="40" class="form" value="<%=strJobTitle%>"></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_ORGANISATION) Then%>
<tr>
<td class="formtitle">Organisation: </td>
<td class="formrt"><input type="text" name="Organisation" size="40" class="form" value="<%=strOrganisation%>"></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_ADDRESS) Then%>
<tr>
<td class="formtitle">Address Line 1: </td>
<td class="formrt"><input type="text" name="AddressLine1" size="40" class="form" value="<%=strAddressLine1%>">
<span class="formhp"><%=LRequired%></span></td>
</tr>
<tr>
<td class="formtitle">Address Line 2: </td>
<td class="formrt"><input type="text" name="AddressLine2" size="40" class="form" value="<%=strAddressLine2%>"></td>
</tr>
<tr>
<td class="formtitle">Town / City: </td>
<td class="formrt"><input type="text" name="Town" size="40" class="form" value="<%=strTown%>">
<span class="formhp"><%=LRequired%></span></td>
</tr>
<tr>
<td class="formtitle">County: </td>
<td class="formrt"><input type="text" name="County" size="40" class="form" value="<%=strCounty%>"></td>
</tr>
<tr>
<td class="formtitle">Postcode: </td>
<td class="formrt"><input type="text" name="Postcode" size="10" class="form" value="<%=strPostcode%>">
<span class="formhp"><%=LRequired%></span></td>
</tr>
<tr>
<td class="formtitle">Country: </td>
<td class="formrt">
<%=GetLookupCombo("Countries", "Country", "Country", strCountry, True, "", "", GetCriteriaForCountryCombo, "")%>
<span class="formhp"><%=LRequired%></span></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_TELEPHONE) Then%>
<tr>
<td class="formtitle">Telephone: </td>
<td class="formrt"><input type="text" name="Telephone" size="25" class="form" value="<%=strTelephone%>">
<span class="formhp"><%=LRequired%></span></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_FAX) Then%>
<tr>
<td class="formtitle">Fax: </td>
<td class="formrt"><input type="text" name="Fax" size="25" class="form" value="<%=strFax%>"></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_EMAIL) Then%>
<tr>
<td class="formtitle">Email: </td>
<td class="formrt"><input type="text" name="Email" size="40" class="form" value="<%=strEmail%>">
<span class="formhp"><%=LRequired%></span></td>
</tr>
<tr>
<td class="formtitle">Retype Email:</td>
<td class="formrt"><input type="text" name="RetypeEmail" size="40" class="form" value="<%=strRetypeEmail%>">
<span class="formhp"><%=LRequired%></span></td>
</tr>
<%End If%>
<% ' (SS,7/10/14) added Purchase Order No
If BookingFieldAllowed(BF_PURCHASE_ORDER_NO) Then%>
<tr>
<td class="formtitle">Purchase Order No:</td>
<td class="formrt"><input type="text" name="PurchaseOrderNo" size="20" maxlength="100" class="form" value="<%=strPurchaseOrderNo%>">
<span class="formhp"></span></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_ATTENDANCE_CONFIRMATION) Then%>
<tr>
<td class="formtitle">I wish to attend:<br></td>
<td class="formrt">
<input type="radio" name="AttendanceConfirmation" value="Yes" <%=Iif(strAttendanceConfirmation="Yes", "Checked", "")%>>Yes
<input type="radio" name="AttendanceConfirmation" value="No" <%=Iif(strAttendanceConfirmation="No", "Checked", "")%>>No
<span class="formhp"><%=LRequired%></span></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_DIETARY_NEEDS) Then%>
<tr>
<td class="formtitle">Dietary Requirements:<br></td>
<td class="formrt"><textarea name="DietaryNeeds" cols="39" rows="3" class="form"><%=strDietaryNeeds%></textarea>
<span class="formhp">e.g. vegan/kosher</span></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_SPECIAL_NEEDS) Then%>
<tr>
<td class="formtitle">Other Requirements:<br></td>
<td class="formrt"><textarea name="SpecialNeeds" cols="39" rows="3" class="form"><%=strSpecialNeeds%></textarea>
<span class="formhp">e.g. access/health/comms</span></td>
</tr>
<%End If%>
<%ShowBookingFormExtraFields ' shows the extra fields defined for this conference, this routine is in apputils.asp %>
<%If BookingFieldAllowed(BF_CANCELLATION_CONDITIONS) Then%>
<tr>
<tr>
<td class="formtitle"> </td>
<td class="formrt"><input type="checkbox" name="CancellationConditions" value="Yes" <%=Iif(strCancellationConditions="Yes", "Checked", "")%>> I have read and agree to the cancellation conditions below
<span class="formhp"><%=LRequired%></span></td>
</tr>
<%End If%>
<tr>
<td> </td>
<td class="formrt"><input type="submit" value="Submit" name="Submit">
<br><br>Fields marked with <span class="formhp"><%=LRequired%></span> must be filled in.
</td>
</tr>
</table>
<%If BookingFieldAllowed(BF_CANCELLATION_CONDITIONS) Then Response.Write(GetText("Cancellation"))%>
<input type="hidden" name="did" value="<%=ADelegateID%>">
<input type="hidden" name="pw" value="<%=APassword%>">
<input type="hidden" name="id" value="<%=AConferenceID%>">
<input type="hidden" name="venue" value="<%=AVenueID%>">
<input type="hidden" name="postbookingform" value="yes">
<input type="hidden" name="passwordentered" value="yes">
</form>
<%
End Sub
' (SS,14/10/05) AInputType can be Text, Memo, Combo Box, Check Box
' for type "Combo Box" ADefaultValue holds all the options and default option
' (SS,14/6/13) added width to combo via Style, due to looking untidy when many combos shown and text of different widths
Sub ShowBookingFormExtraField(AInputType, AFieldName, ALabel, AHelpText, ADefaultValue, ARequired, AWidth, AHeight)
Dim LRequired
If ARequired Then
LRequired = "*"
Else
LRequired = ""
End If
%>
<tr>
<td class="formtitle" width="250"><strong><%=ALabel%>:</strong></td>
<td class="formrt" >
<%
If AInputType = IT_TEXT Then
%>
<input type="text" name="<%=AFieldName%>" size="<%=AWidth%>" class="form" value="<%=ADefaultValue%>"><%=LRequired%> <%=AHelpText%>
<%
ElseIf AInputType = IT_MEMO Then
%>
<textarea name="<%=AFieldName%>" cols="<%=AWidth%>" rows="<%=AHeight%>" class="form"><%=ADefaultValue%></textarea><%=LRequired%> <%=AHelpText%>
<%
ElseIf AInputType = IT_CHECK_BOX Then
%>
<input name="<%=AFieldName%>" type="checkbox" value="checked" <%=Iif(ADefaultValue, "checked", "")%>><%=LRequired%> <%=AHelpText%>
<%
ElseIf AInputType = IT_RADIO Then
%>
<%=ADefaultValue%><%=LRequired%> <%=AHelpText%>
<%
ElseIf AInputType = IT_COMBO_BOX Then
' (SS,14/6/13) added width to combo via Style
Dim LStyle
If AWidth = 0 Then
LStyle = ""
Else
LStyle = "style=""width: " & AWidth & "px"""
End If
%>
<select name="<%=AFieldName%>" class="form" <%=LStyle%>>
<%=ADefaultValue%>
</select> <%=LRequired%> <%=AHelpText%>
<%
End If
%>
</td>
</tr>
<%
End Sub
' (SS,14/9/06)
' (SS,2/12/06) added ADelegateID and APassword
Sub ShowBookingConfirmation(AConferenceID, AVenueID, ADelegateID, APassword, ADelegateCostIncVAT, ADelegateCostExcVAT, AShowVAT)
' (SS,22/11/06) following alert removed for now, but could be added in future
' gsErrorMessage = "IMPORTANT! Registration will not be made" + Chr(13) + "until you press the CONFIRM button."_
' + Chr(13) + Chr(13) + "Please check your details and press the" + Chr(13) + "CONFIRM button at the bottom of the page."
%>
<FORM ACTION="<%=GetRegistrationFormLink(False)%>" METHOD=POST class="nospace">
<table border=0 cellpadding=2 cellspacing=0>
<tr>
<td>Please check your details below. If they are correct, press the "Confirm" button <b>at the bottom of the page</b>.
To make changes to your booking, <a href="javascript:history.go(-1)">Click here</a> to take you back to the previous page.
</td>
</tr>
</table>
<table border=0 cellpadding=2 cellspacing=0>
<tr>
<td colspan="2"> </td>
</tr>
<%If BookingFieldAllowed(BF_TITLE) Then%>
<tr>
<td class="formtitle">Title:</td>
<td class="formrt"><input type="hidden" name="Title" size="10" class="form" value="<%=strTitle%>">
<%=strTitle%></td>
</tr>
<%End If%>
<tr>
<td class="formtitle">First Name:</td>
<td class="formrt"><input type="hidden" name="FirstName" size="25" class="form" value="<%=strFirstName%>">
<%=strFirstName%></td>
</tr>
<tr>
<td class="formtitle">Surname:</td>
<td class="formrt"><input type="hidden" name="Surname" size="25" class="form" value="<%=strSurname%>">
<%=strSurname%></td>
</tr>
<%If BookingFieldAllowed(BF_NAME_ON_BADGE) Then%>
<tr>
<td class="formtitle">Name to appear on your badge:</td>
<td class="formrt"><input type="hidden" name="NameOnBadge" size="40" class="form" value="<%=strNameOnBadge%>">
<%=strNameOnBadge%></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_JOB_TITLE) Then%>
<tr>
<td class="formtitle">Job Title:</td>
<td class="formrt"><input type="hidden" name="JobTitle" size="40" class="form" value="<%=strJobTitle%>">
<%=strJobTitle%></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_ORGANISATION) Then%>
<tr>
<td class="formtitle">Organisation: </td>
<td class="formrt"><input type="hidden" name="Organisation" size="40" class="form" value="<%=strOrganisation%>">
<%=strOrganisation%></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_ADDRESS) Then%>
<tr>
<td class="formtitle">Address Line 1: </td>
<td class="formrt"><input type="hidden" name="AddressLine1" size="40" class="form" value="<%=strAddressLine1%>">
<%=strAddressLine1%></td>
</tr>
<tr>
<td class="formtitle">Address Line 2: </td>
<td class="formrt"><input type="hidden" name="AddressLine2" size="40" class="form" value="<%=strAddressLine2%>">
<%=strAddressLine2%></td>
</tr>
<tr>
<td class="formtitle">Town / City: </td>
<td class="formrt"><input type="hidden" name="Town" size="40" class="form" value="<%=strTown%>">
<%=strTown%></td>
</tr>
<tr>
<td class="formtitle">County: </td>
<td class="formrt"><input type="hidden" name="County" size="40" class="form" value="<%=strCounty%>">
<%=strCounty%></td>
</tr>
<tr>
<td class="formtitle">Postcode: </td>
<td class="formrt"><input type="hidden" name="Postcode" size="10" class="form" value="<%=strPostcode%>">
<%=strPostcode%></td>
</tr>
<tr>
<td class="formtitle">Country: </td>
<td class="formrt"><input type="hidden" name="Country" class="form" value="<%=strCountry%>">
<%=strCountry%></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_TELEPHONE) Then%>
<tr>
<td class="formtitle">Telephone: </td>
<td class="formrt"><input type="hidden" name="Telephone" size="25" class="form" value="<%=strTelephone%>">
<%=strTelephone%></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_FAX) Then%>
<tr>
<td class="formtitle">Fax: </td>
<td class="formrt"><input type="hidden" name="Fax" size="25" class="form" value="<%=strFax%>">
<%=strFax%></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_EMAIL) Then%>
<tr>
<td class="formtitle">Email: </td>
<td class="formrt"><input type="hidden" name="Email" size="40" class="form" value="<%=strEmail%>">
<%=strEmail%></td>
<input type="hidden" name="RetypeEmail" size="40" class="form" value="<%=strRetypeEmail%>">
</tr>
<%End If%>
<% ' (SS,7/10/14)
If BookingFieldAllowed(BF_PURCHASE_ORDER_NO) Then%>
<tr>
<td class="formtitle">Purchase Order No: </td>
<td class="formrt"><input type="hidden" name="PurchaseOrderNo" size="20" class="form" value="<%=strPurchaseOrderNo%>">
<%=strPurchaseOrderNo%></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_DIETARY_NEEDS) Then%>
<tr>
<td class="formtitle">Dietary Needs:<br></td>
<td class="formrt"><input type="hidden" name="DietaryNeeds" class="form" value="<%=strDietaryNeeds%>">
<%=strDietaryNeeds%></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_SPECIAL_NEEDS) Then%>
<tr>
<td class="formtitle">Special Needs:<br></td>
<td class="formrt"><input type="hidden" name="SpecialNeeds" class="form" value="<%=strSpecialNeeds%>">
<%=strSpecialNeeds%></td>
</tr>
<%End If%>
<%If BookingFieldAllowed(BF_ATTENDANCE_CONFIRMATION) Then%>
<tr>
<td class="formtitle">I wish to attend:<br></td>
<td class="formrt"><input type="hidden" name="AttendanceConfirmation" class="form" value="<%=strAttendanceConfirmation%>">
<%=strAttendanceConfirmation%></td>
</tr>
<%End If%>
<%ShowBookingConfirmationExtraFields ' shows the extra fields defined for this conference, this routine is in apputils.asp %>
<%If BookingFieldAllowed(BF_CANCELLATION_CONDITIONS) Then%>
<input type="hidden" name="CancellationConditions" value="<%=Iif(strCancellationConditions="Yes", "Checked", "")%>">
<%End If%>
<%If CDbl(ADelegateCostIncVAT) > 0 Then%>
<tr>
<td class="formtitle">Total Fee:</td>
<td class="formrt"><b>£<%=ADelegateCostIncVAT%></b>
<%If AShowVAT Then%>
(<b>£<%=ADelegateCostExcVAT%></b> plus VAT)
<%End If%>
</td>
</tr>
<%End If%>
<tr>
<td> </td>
<td class="formrt"><input type="submit" value="Confirm" name="Submit">
</td>
</tr>
</table>
<input type="hidden" name="did" value="<%=ADelegateID%>">
<input type="hidden" name="pw" value="<%=APassword%>">
<input type="hidden" name="id" value="<%=AConferenceID%>">
<input type="hidden" name="venue" value="<%=AVenueID%>">
<input type="hidden" name="postbookingform" value="yes">
<input type="hidden" name="passwordentered" value="yes">
</form>
<%
End Sub
' (SS,14/9/07)
Sub ShowBookingConfirmationExtraField(AFieldName, ALabel, ADefaultValue)
%>
<tr>
<td class="formtitle" width="250"><strong><%=ALabel%>:</strong></td>
<td class="formrt">
<input type="hidden" name="<%=AFieldName%>" class="form" value="<%=ADefaultValue%>">
<%=ADefaultValue%></td>
</tr>
<%
End Sub
Sub ShowBookingThankYou(AConfirmationMessage)
%>
<table>
<tr>
<td>
<%=ConvertNewlinesToHTML(AConfirmationMessage)%>
</td></tr>
</table>
<br>
<%
End Sub
Sub ShowBookingMakeAnother(ABookingAlreadMade)
%>
<table>
<tr>
<td>
<%If ABookingAlreadMade Then%>
You have already made a booking.
<br>
<%End If%>
<br>
<%=GetMakeAnotherBookingLink%>
</td></tr>
</table>
<br>
<%
End Sub
Sub ShowBookingFooter
%>
<%
End Sub
Sub ShowOrderConfirmation
%>
<TABLE BORDER="0" CELLSPACING="1" CELLPADDING="3" WIDTH="100%">
<TR>
<TD> </TD>
<TD class="headingsmall">
<br><br><br><br><br><br><br>
<font size="4">Payment Slip</font>
<br><br><br><br><br>
<%=ConvertNewlinesToHTML(Session("t_PaymentAddress"))%>
<br><br><br><br></TD>
</TR>
<TR>
<TD WIDTH="0%" nowrap>Your reference:</TD>
<TD width="100%"><b><%=Session("t_Reference")%></b></TD>
</TR>
<TR>
<TD colspan="2">
Please make your cheque for <b>£<%=Session("t_AmountChargedIncVAT")%></b> (£<%=Session("t_AmountChargedExcVAT")%> plus VAT) payable to <b><%=Application("CompanyName")%></b> <br>and post it to the above address together with this payment slip.<br><br>
</TD>
</TR>
<TR>
<TD nowrap>Conference:</TD>
<TD><b><%=Session("t_ConferenceName")%></b></TD>
</TR>
<TR>
<TD nowrap valign="top">Venue:</TD>
<TD><b><%=Session("t_VenueAddressForHTML")%></b></TD>
</TR>
<TR>
<TD nowrap>Date:</TD>
<TD><b><%=Session("t_VenueDate")%></b></TD>
</TR>
<TR>
<TD nowrap>Date/Time Booked:</TD>
<TD><b><%=Session("t_DateTimeBooked")%></b></TD>
</TR>
<TR>
<TD>Name:</TD>
<TD><b><%=Session("t_FullName")%></b></TD>
</TR>
<%If BookingFieldAllowed(BF_NAME_ON_BADGE) Then%>
<TR>
<TD>Name on Badge:</TD>
<TD><b><%=Session("t_NameOnBadge")%></b></TD>
</TR>
<%End If%>
<%If BookingFieldAllowed(BF_ORGANISATION) Then%>
<TR>
<TD>Organisation:</TD>
<TD><b><%=Session("t_Organisation")%></b></TD>
</TR>
<%End If%>
<%If BookingFieldAllowed(BF_ADDRESS) Then%>
<TR>
<TD width="0%" valign="Top">Address:</TD>
<TD width="100%"><b><%=Session("t_AddressForHTML")%></b></TD>
</TR>
<%End If%>
<%If BookingFieldAllowed(BF_ADDRESS) Then%>
<TR>
<TD>Telephone:</TD>
<TD><b><%=Session("t_Telephone")%></b></TD>
</TR>
<%End If%>
<%If BookingFieldAllowed(BF_FAX) Then%>
<TR>
<TD>Fax:</TD>
<TD><b><%=Session("t_Fax")%></b></TD>
</TR>
<%End If%>
<%If BookingFieldAllowed(BF_EMAIL) Then%>
<TR>
<TD>Email Address:</TD>
<TD><b><%=Session("t_Email")%></b></TD>
</TR>
<%End If%>
<% ' (SS,7/10/14)
If BookingFieldAllowed(BF_PURCHASE_ORDER_NO) Then%>
<TR>
<TD>Purchase Order No:</TD>
<TD><b><%=Session("t_PurchaseOrderNo")%></b></TD>
</TR>
<%End If%>
<%If BookingFieldAllowed(BF_DIETARY_NEEDS) Then%>
<TR>
<TD VALIGN="TOP">Dietary Needs:</TD>
<TD><b><%=ConvertNewlinesToHTML(Session("t_DietaryNeeds"))%></b></TD>
</TR>
<%End If%>
<%If BookingFieldAllowed(BF_SPECIAL_NEEDS) Then%>
<TR>
<TD VALIGN="TOP">Special Needs:</TD>
<TD><b><%=ConvertNewlinesToHTML(Session("t_SpecialNeeds"))%></b></TD>
</TR>
<%End If%>
</TABLE>
<%
End Sub
Sub ShowContactForm(AHTMLBefore, AHTMLAfter, AEmailAddress)
Response.Write(AHTMLBefore)
%>
<FORM ACTION="<%=GetContactFormLink%>" METHOD=POST onSubmit="MM_validateForm('Name','','R', 'Email','','RisEmail', 'Enquiry','','R');return document.MM_returnValue" class="nospace">
<table border=0 cellpadding=2 cellspacing=0>
<tr>
<td>If you have any enquiries or comments, please fill in the form below.
</td>
</tr>
</table>
<table border=0 cellpadding=2 cellspacing=0>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td class="formtitle">Name:</td>
<td class="formrt"><input type="text" name="Name" size="30" class="form" value="">
<span class="formhp">*</span></td>
</tr>
<tr>
<td class="formtitle">Email: </td>
<td class="formrt"><input type="text" name="Email" size="30" class="form" value="">
<span class="formhp">*</span></td>
</tr>
<tr>
<td class="formtitle">Telephone: </td>
<td class="formrt"><input type="text" name="Telephone" size="30" class="form" value=""></td>
</tr>
<tr>
<td class="formtitle">Enquiry:<br></td>
<td class="formrt"><textarea name="Enquiry" cols="39" rows="5" class="form"></textarea>
<span class="formhp">*</span></td>
</tr>
<tr>
<td> </td>
<td class="formrt"><input type="submit" value="Submit" name="Submit"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td class="formtitle">Email:<br></td>
<td class="formrt"><a href="mailto:<%=AEmailAddress%>"><%=AEmailAddress%></a><br><br></td>
</tr>
<tr>
<td class="formtitle">Telephone:<br></td>
<td class="formrt">0161 427 7057 (International +44 161 427 7057)<br><br></td>
</tr>
<tr>
<td class="formtitle">Fax:<br></td>
<td class="formrt">0161 427 2415 (International +44 161 427 2415)<br><br></td>
</tr>
<tr>
<td class="formtitle">Post:<br></td>
<td class="formrt">Conference Search Ltd<br>
92 Church Lane<br>
Marple<br>
Cheshire<br>
SK6 7AR, UK
</td>
</tr>
</table>
<input type="hidden" name="postcontactform" value="yes">
<%=AHTMLAfter%>
</form>
<%
End Sub
Sub ShowContactFormThankYou
%>
<table>
<tr>
<td>
Thank you for your enquiry. We will contact you shortly.
</td></tr>
</table>
<br>
<%
End Sub
' (SS,27/7/09)
Sub ShowConferenceAdminMenu
%>
<br>
<a href="index.asp?id=<%=FConferenceID%>&page=conferenceadmin&op=list">Delegate List</a>
<br><br>
<a href="index.asp?id=<%=FConferenceID%>&page=conferenceadmin&op=paid">Mark as Paid</a>
<%
End Sub
' (SS,27/7/09)
Sub ShowDelegateListHeader
%>
<table>
<tr>
<td><u>ID</u></td>
<td nowrap><u>Date Booked</u></td>
<td><u>Title</u></td>
<td nowrap><u>First Name</u></td>
<td><u>Surname</u></td>
<td><u>Organisation</u></td>
<td><u>Amount</u></td>
<td><u>Status</u></td>
</tr>
<%
End Sub
' (SS,27/7/09)
Sub ShowDelegateListItem(ADelegateID, ADateBooked, ATitle, AFirstName, ASurname, AOrganisation, AAmountCharged, AStatus)
%>
<tr>
<td><%=ADelegateID%></td>
<td><%=ADateBooked%></td>
<td><%=ATitle%></td>
<td><%=AFirstName%></td>
<td><%=ASurname%></td>
<td><%=AOrganisation%></td>
<td><%=AAmountCharged%></td>
<td><%=AStatus%></td>
</tr>
<%
End Sub
' (SS,27/7/09)
Sub ShowDelegateListFooter
%>
</table>
<%
End Sub
' (SS,27/7/09)
Sub ShowMarkAsPaidGetDelegateID(AErrorMessage)
If AErrorMessage <> "" Then ITP_ErrorMessage = AErrorMessage
AErrorMessage = ConvertNewlinesToHTML(AErrorMessage)
%>
<table border=0 cellpadding=2 cellspacing=0>
<form action="index.asp" method=post class="nospace">
<%If AErrorMessage <> "" Then%>
<tr>
<td colspan="2" class="indent"> <span class="errormessage"><br>
<%=AErrorMessage%></span> </td>
</tr>
<%End If%>
<tr>
<td> </td>
</tr>
<tr>
<td><strong>Delegate ID: </strong></td>
<td><input type="text" name="didforpaid" size="25" class="form""></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="Submit" name="submit"></td>
</tr>
<input type="hidden" name="id" value="<%=Request("id")%>">
<input type="hidden" name="page" value="<%=Request("page")%>">
<input type="hidden" name="op" value="<%=Request("op")%>">
</form>
</table>
<%
ShowBackToConferenceAdminMenuLink
End Sub
' (SS,27/7/09)
Sub ShowMarkAsPaidDelegateDetails(ADelegateID, AName, AAddressLine1, AAddressLine2, ATown, ACounty, APostcode, ACountry, AEmail, AAmountCharged, AStatus)
%>
<table border=0 cellpadding=2 cellspacing=0>
<form action="index.asp" method=post class="nospace">
<tr>
<td> </td>
</tr>
<tr>
<td><strong>Delegate ID: </strong></td>
<td><%=ADelegateID%></td>
</tr>
<tr>
<td><strong>Name: </strong></td>
<td><%=AName%></td>
</tr>
<tr>
<td><strong>Address Line 1: </strong></td>
<td><%=AAddressLine1%></td>
</tr>
<tr>
<td><strong>Address Line 2: </strong></td>
<td><%=AAddressLine2%></td>
</tr>
<tr>
<td><strong>Town: </strong></td>
<td><%=ATown%></td>
</tr>
<tr>
<td><strong>County: </strong></td>
<td><%=ACounty%></td>
</tr>
<tr>
<td><strong>Postcode: </strong></td>
<td><%=APostcode%></td>
</tr>
<tr>
<td><strong>Country: </strong></td>
<td><%=ACountry%></td>
</tr>
<tr>
<td><strong>Email: </strong></td>
<td><%=AEmail%></td>
</tr>
<tr>
<td><strong>Amount Charged: </strong></td>
<td><%=AAmountCharged%></td>
</tr>
<tr>
<td><strong>Status: </strong></td>
<td><%=AStatus%></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<%If AStatus = STATUS_CANCELLED Then%>
<tr>
<td> </td>
<td>This booking has been cancelled</td>
</tr>
<%ElseIf AStatus = STATUS_PAID Then%>
<tr>
<td> </td>
<td>This booking has already been paid</td>
</tr>
<%Else%>
<tr>
<td> </td>
<td><input type="submit" value="Mark as Paid" name="submit"></td>
</tr>
<%End If%>
<input type="hidden" name="id" value="<%=Request("id")%>">
<input type="hidden" name="page" value="<%=Request("page")%>">
<input type="hidden" name="op" value="<%=Request("op")%>">
<input type="hidden" name="didforpaid" value="<%=Request("didforpaid")%>">
</form>
</table>
<%
ShowBackToConferenceAdminMenuLink
End Sub
' (SS,27/7/09)
Sub ShowMarkAsPaidConfirmation(ADelegateID)
%>
<br>
<table border=0 cellpadding=2 cellspacing=0>
<tr>
<td>Delegate ID <b><%=ADelegateID%></b> has been marked as Paid.</td>
</tr>
</table>
<%
ShowMarkAnotherAsPaidLink
Response.Write("<br>")
ShowBackToConferenceAdminMenuLink
End Sub
' (SS,27/7/09)
Sub ShowBackToConferenceAdminMenuLink
%>
<br>
<a href="index.asp?id=<%=FConferenceID%>&page=conferenceadmin">Back to Conference Admin Menu</a>
<%
End Sub
' (SS,27/7/09)
Sub ShowMarkAnotherAsPaidLink
%>
<br>
<a href="index.asp?id=<%=FConferenceID%>&page=conferenceadmin&op=paid">Mark another as Paid</a>
<%
End Sub
%>