<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="cactushop5/includes/config.asp"-->
<!--#include file="cactushop5/includes/functions.asp"-->
<%
error=false
action = Request.Querystring("action")
strID = Request.Querystring("id")
if strID = Empty Then
	strID = Request.Form("id")
End If

If action = "edit" and strID = "" then
	action = "create"
End If

If action = "" Then
	action = "create"
End If

'-----------------------------------------------
'Create common connection object and set values
Set cmdTemp.ActiveConnection 	= objDataConn
cmdTemp.CommandType 		= adCmdStoredProc

If action = "delete" or action = "add" or action = "save" or action = "confirm" Then
	Set cmdTmp = Server.CreateObject("ADODB.Command")
	Set cmdTmp.ActiveConnection 	= objDataConn
	cmdTmp.CommandType 		= adCmdStoredProc
End If

If action = "delete" Then
	intEntryID = Request.Querystring("EntryID")
	If intEntryID = Empty Then
		Response.Redirect ("_club_guestlist.asp")
	End If
	cmdTmp.CommandText 		= "prc_DeleteGuestlistEntry"
	Set s_objParam 	= cmdTmp.CreateParameter("@EntryID", adInteger , adParamInput, , intEntryID)
	cmdTmp.Parameters.Append s_objParam	
	Set objDeleteEntry		= Server.CreateObject("ADODB.RecordSet") 
	set objDeleteEntry.Source 	= cmdTmp
	
	objDeleteEntry.Open
	
	Set objDeleteEntry = Nothing

	action = "edit"		
	
ElseIf action = "add" Then

	strEntryEmail = Request.Form("Email_Entry")
	If Request.Form("yyyy_Entry") <> "" and Request.Form("mm_Entry") <> "" and Request.Form("dd_Entry") <> "" Then
		dtmEntryDOB = DateSerial(Request.Form("yyyy_Entry"), Request.Form("mm_Entry"), Request.Form("dd_Entry"))
	Else
		dtmEntryDOB = ""
	End If
	strEntryFirstName = Request.Form("FirstName_Entry")
	strEntryLastName = Request.Form("LastName_Entry")
	cmdTmp.CommandText = "prc_AddGuestlistEntry"
	Set s_objParam 	= cmdTmp.CreateParameter("@RequestID", adInteger , adParamInput, , strID)
	cmdTmp.Parameters.Append s_objParam
	Set s_objParam 	= cmdTmp.CreateParameter("@firstname", adVarChar , adParamInput, len(strEntryFirstName), strEntryFirstName)
	cmdTmp.Parameters.Append s_objParam
	Set s_objParam 	= cmdTmp.CreateParameter("@lastname", adVarChar , adParamInput, len(strEntryLastName), strEntryLastName)
	cmdTmp.Parameters.Append s_objParam
	If strEntryEmail <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@email", adVarChar , adParamInput, len(strEntryEmail), strEntryEmail)
		cmdTmp.Parameters.Append s_objParam
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@email", adVarChar , adParamInput, 1, NULL)
		cmdTmp.Parameters.Append s_objParam
	End If
	If dtmEntryDOB <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@DOB", adDBTimeStamp , adParamInput, 8, dtmEntryDOB)
		cmdTmp.Parameters.Append s_objParam
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@DOB", adDBTimeStamp , adParamInput, 1, NULL)
		cmdTmp.Parameters.Append s_objParam
	End If	
	Set objAddEntry		= Server.CreateObject("ADODB.RecordSet") 
	set objAddEntry.Source 	= cmdTmp
	
	objAddEntry.Open
	
	Set objAddEntry = Nothing

	action = "edit"	
End If

If action = "create" Then
	
	dtmRequestedDate = Now
	
	strFirstName = Empty
	strLastName = Empty
	
	dtmDOB = null

	strOccasion = Empty
	chrGender = "U"
	strHouse = Empty
	strStreet = Empty
	strTown = Empty
	strCity = Empty
	strCounty = Empty
	strPostcode = Empty
	strTelephone = Empty
	strFacsimile = Empty
	strMobile = Empty
	boolPhoneBooking = false
	intGuestNumber = Empty
	strComments = Empty
	
End If

If action = "save" or action = "confirm" Then
	
	dtmRequestedDate = DateSerial(Request.Form("yyyy"), Request.Form("mm"), Request.Form("dd"))
	
	strFirstName = Request.Form("NameFirst")
	strLastName = Request.Form("NameLast")
	
	If Request.Form("yyyy_DOB") <> Empty and Request.Form("mm_DOB") <> Empty and Request.Form("dd_DOB") <> Empty Then
		dtmDOB = DateSerial(Request.Form("yyyy_DOB"), Request.Form("mm_DOB"), Request.Form("dd_DOB"))
	Else
		dtmDOB = null
	End If

	strOccasion = Request.Form("Occasion")
	chrGender = Request.Form("gender")
	strEmail = Request.Form("Email")
	strHouse = Request.Form("House")
	strStreet = Request.Form("Street")
	strTown = Request.Form("Town")
	strCity = Request.Form("City")
	strCounty = Request.Form("County")
	strPostcode = Request.Form("Postcode")
	strTelephone = Request.Form("Telephone")
	strFacsimile = Request.Form("Facsimile")
	strMobile = Request.Form("Mobile")
	boolPhoneBooking = Request.Form("PhoneBooking")
	intGuestNumber = Request.Form("GuestsNumber")
	strComments = Request.Form("Comments")
	
	isnew = Request.Form("isnew")
	If isnew Then
		cmdTmp.CommandText 		= "prc_AddGuestlist"
	Else
		cmdTmp.CommandText 		= "prc_EditGuestlist"
		Set s_objParam 	= cmdTmp.CreateParameter("@RequestID", adInteger , adParamInput, , strID)
		cmdTmp.Parameters.Append s_objParam
	End If

	Set s_objParam 	= cmdTmp.CreateParameter("@firstname", adVarChar , adParamInput, len(strFirstName), strFirstName)
	cmdTmp.Parameters.Append s_objParam
	Set s_objParam 	= cmdTmp.CreateParameter("@lastname", adVarChar , adParamInput, len(strLastName), strLastName)
	cmdTmp.Parameters.Append s_objParam
	Set s_objParam 	= cmdTmp.CreateParameter("@email", adVarChar , adParamInput, len(strEmail), strEmail)
	cmdTmp.Parameters.Append s_objParam
	Set s_objParam 	= cmdTmp.CreateParameter("@reqdate", adDBTimeStamp , adParamInput, 8, dtmRequestedDate)
	cmdTmp.Parameters.Append s_objParam
	
	If strHouse <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@house", adVarChar , adParamInput, len(strHouse), strHouse)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@house", adVarChar , adParamInput, 1, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If strStreet <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@street", adVarChar , adParamInput, len(strStreet), strStreet)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@street", adVarChar , adParamInput, 1, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If strTown <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@town", adVarChar , adParamInput, len(strTown), strTown)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@town", adVarChar , adParamInput, 1, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If strCity <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@city", adVarChar , adParamInput, len(strCity), strCity)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@city", adVarChar , adParamInput, 1, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If strCounty <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@county", adVarChar , adParamInput, len(strCounty), strCounty)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@county", adVarChar , adParamInput, 1, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If strPostcode <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@postcode", adVarChar , adParamInput, len(strPostcode), strPostcode)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@postcode", adVarChar , adParamInput, 1, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If not isNull(dtmDOB) then
		Set s_objParam 	= cmdTmp.CreateParameter("@DOB", adDBTimeStamp , adParamInput, 4, dtmDOB)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@DOB", adDBTimeStamp , adParamInput, 4, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If chrGender <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@gender", adChar , adParamInput, 1, chrGender)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@gender", adChar , adParamInput, 1, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If strTelephone <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@tel", adVarChar , adParamInput, len(strTelephone), strTelephone)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@tel", adVarChar , adParamInput, 1, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If strFacsimile <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@fax", adVarChar , adParamInput, len(strFacsimile), strFacsimile)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@fax", adVarChar , adParamInput, 1, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If strMobile <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@mobile", adVarChar , adParamInput, len(strMobile), strMobile)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@mobile", adVarChar , adParamInput, 1, NULL)
	End If
	cmdTmp.Parameters.Append s_objParam
	If strOccasion <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@occasion", adVarChar , adParamInput, len(strOccasion), strOccasion)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@occasion", adVarChar , adParamInput, 1, NULL)
	End If	
	cmdTmp.Parameters.Append s_objParam
	If strComments <> "" then
		Set s_objParam 	= cmdTmp.CreateParameter("@comments", adVarChar , adParamInput, len(strComments), strComments)
	Else
		Set s_objParam 	= cmdTmp.CreateParameter("@comments", adVarChar , adParamInput, 1, NULL)
	End If	
	cmdTmp.Parameters.Append s_objParam
	
	If isnew Then
		If intGuestNumber <> "" then
			Set s_objParam 	= cmdTmp.CreateParameter("@guests", adInteger , adParamInput, , CInt(intGuestNumber))
		Else
			Set s_objParam 	= cmdTmp.CreateParameter("@guests", adInteger , adParamInput, 1, NULL)
		End If	
		cmdTmp.Parameters.Append s_objParam
		
		Set s_objParam 	= cmdTmp.CreateParameter("@PhoneBooking", adBoolean , adParamInput, 1, false)
		cmdTmp.Parameters.Append s_objParam
	End If	
		
	
	Set objRstGuestlist		= Server.CreateObject("ADODB.RecordSet") 
	set objRstGuestlist.Source 	= cmdTmp
	
	objRstGuestlist.Open
	result = objRstGuestlist.Fields("RequestID")
	objRstGuestlist.Close
	If isnew Then
		strID = result
	End If
	
	If CInt(result) = -1 Then
		If isnew Then
			action = "create"
		Else
			action = "edit"
		End If
		error=true
	Else
		If action <> "confirm" Then
			action = "edit"
		End If
	End If
	
	Set objRstGuestlist = Nothing
		
End If

if action = "edit" or action = "confirm" then
	cmdTemp.CommandText 		= "prc_GetGuestlistRequest"
	Set s_objParam 	= cmdTemp.CreateParameter("@RequestID", adInteger, adParamInput, , strID)
	cmdTemp.Parameters.Append s_objParam

	Set objRstGuestlist		= Server.CreateObject("ADODB.RecordSet") 
	set objRstGuestlist.Source 	= cmdTemp
	
	objRstGuestlist.Open
	
	dtmRequestedDate = objRstGuestlist.Fields("RequestedDate")
	If isNull(dtmRequestedDate) Then
		dtmRequestedDate = Now
	End If
	
	strFirstName = objRstGuestlist.Fields("NameFirst")
	strLastName = objRstGuestlist.Fields("NameLast")
	strEmail = objRstGuestlist.Fields("Email")
	strOccasion = objRstGuestlist.Fields("Occasion")
	chrGender = Trim(objRstGuestlist.Fields("Gender"))
	strHouse = objRstGuestlist.Fields("HouseNameNum")
	strStreet = objRstGuestlist.Fields("Street")
	strTown = objRstGuestlist.Fields("Town")
	strCity = objRstGuestlist.Fields("City")
	strCounty = objRstGuestlist.Fields("County")
	strPostcode = objRstGuestlist.Fields("Postcode")
	strTelephone = objRstGuestlist.Fields("Tel")
	strFacsimile = objRstGuestlist.Fields("Fax")
	strMobile = objRstGuestlist.Fields("Mobile")
	dtmDOB = objRstGuestlist.Fields("DOB")
	strComments = objRstGuestlist.Fields("Comments")
	intGuestNumber = objRstGuestlist.Fields("Guests")
	boolPhoneBooking = CBool(objRstGuestlist.Fields("PhoneBooking"))
	
	
	objRstGuestlist.Close
	Set objRstGuestlist = Nothing 
	
  if action = "confirm" then
    strSQL = "SELECT COUNT(*) FROM ClubPeople WHERE Email = '"&strEmail&"'"
    Set rsCheckPeople = objDataConn.execute(strSQL)
    iCheckPeople = rsCheckPeople(0)
    Set rsCHeckPeople = Nothing
      
    if iCheckPeople = 0 then
      strSQL = "INSERT INTO ClubPeople"
      strSQL = strSQL + " (PeopleTypeId, PeopleStatusID, Email, NameFirst, NameLast, DOB, Gender, Tel, Mobile, Fax, HouseNameNum, Street, City, Town, County, PostCode, OptEmail, OptSms, DateAdded, DateLastChanged)"
      strSQL = strSQL + " VALUES"
      strSQL = strSQL + " (1, 1, '"&strEmail&"', '"&strFirstName&"', '"&strLastName&"', '"&dtmDOB&"', '"&chrGender&"', '"&strTelephone&"', '"&strMobile&"', '"&strFacsimile&"', '"&strHouse&"', '"&strStreet&"', '"&strTown&"', '"&strCity&"', '"&strCounty&"', '"&strPostcode&"', 1, 0, GetDate(), GetDate())"
  
      Set rsInsertPeople = objDataConn.execute(strSQL)
      Set rsInsertPeople = Nothing
    
    end if
  end if

	cmdTemp.CommandText 		= "prc_GetGuestlistEntries"
	
	Set objRstEntries 		= Server.CreateObject("ADODB.RecordSet") 
	set objRstEntries.Source 	= cmdTemp
	
	objRstEntries.Open
end if	

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Club195 - Epping - Guestlist</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!--METADATA NAME="Microsoft ActiveX Data Objects 2.6 Library" TYPE="TypeLib" UUID="{00000206-0000-0010-8000-00AA006D2EA4}"--> 
<script language="javascript" src="cactushop5/includes/club_common.js"></script>
<script language="javascript" src="cactushop5/includes/club_guestlist.js"></script>
<script language="JavaScript" type="text/JavaScript">
<!--
function deletegEntry(f,EntryID)
{
	f.action = "?action=delete&EntryID="+EntryID;
	f.submit();
}

function addgEntry(f)
{
	if (f.PhoneBooking.checked)
	{
		alert("Phone Booking option was selected. It is not possible to add entries.");
		return false;
	}
	
	if (!isblank(f.GuestsNumber.value) && (f.EntriesCount.value >= f.GuestsNumber.value ))
	{
		alert("It is not possible to add more guest than specified in \"Guests\" field.");
		return false;
	}
	

	day = document.getElementById("dd_Entry").value;
	month = document.getElementById("mm_Entry").value;
	year = document.getElementById("yyyy_Entry").value;
	
	if (isblank(f.FirstName_Entry.value))
	{
		alert("Please enter First Name!");
		return false;
	}

	if (isblank(f.LastName_Entry.value))
	{
		alert("Please enter Last Name!");
		return false;
	}	
	
	if (!validDate(year,month-1,day) && (year != "" || month != "" || day != ""))
	{
		alert("Please check date entered!");
		return false;
	}	
	
	if (!validEmail(f.Email_Entry.value) && !isblank(f.Email_Entry.value))
	{
		alert("Please check email entered!");
		return false;
	}
	
	f.action = "?action=add";
	f.submit();
}

function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<style type="text/css">
<!--
.style7 {font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; }
body {
	background-color: #019DDA;
	margin-top: 0px;
	margin-bottom: 0px;
}
.style13 {color: #00CCCC}
.style14 {
	color: #FFFFFF;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
}
.style15 {
	font-family: Arial, Helvetica, sans-serif;
	font-weight: bold;
	color: #FFFFFF;
}
.style16 {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #CCCCCC;
}
.style18 {
	font-size: 10;
	font-weight: bold;
}
-->
</style>
<link href="/cactushop5/includes/gl195.css" rel="stylesheet" type="text/css">
</head>

<body onLoad="winRes()" onResize = "winRes()">
<!-- #include Virtual=/rotator.asp-->
<script language=javascript>

function winRes() {
t = document.documentElement.clientWidth > 1020 ? document.documentElement.clientWidth: 1020; 
myWidth1 = t/2-387;
myWidth2 = t/2+267;

document.getElementById('pic0').style.left = myWidth1+'px';
document.getElementById('pic1').style.left = myWidth1+'px';
document.getElementById('pic2').style.left = myWidth1+'px';
document.getElementById('pic3').style.left = myWidth1+'px';
document.getElementById('pic4').style.left = myWidth2+'px';
document.getElementById('pic5').style.left = myWidth2+'px';
document.getElementById('pic6').style.left = myWidth2+'px';
document.getElementById('pic7').style.left = myWidth2+'px';

}
</script>
<div align="center"></div>
<table width="801" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>  </tr>
</table>
<div align="center">
  <map name="Map2">
    <area shape="rect" coords="1,12,81,28" href="index.htm">
  </map>
  <table width="1000" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <th width="248" rowspan="2" valign="top" scope="col"><object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="155" height="1022" id="bubbles" align="right">

<param name="allowScriptAccess" value="sameDomain" />
<param name="movie" value="bubbles.swf" /><param name="menu" value="false" /><param name="quality" value="high" /><param name="wmode" value="transparent" /><param name="bgcolor" value="#019dda" /><embed src="/bubbles.swf" menu="false" quality="high" wmode="transparent" bgcolor="#019dda" width="155" height="1022" name="bubbles" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />

</object></th>
      <th scope="col"><object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="500" height="265" id="Club195_v3" align="middle">

<param name="allowScriptAccess" value="sameDomain" />
<param name="movie" value="/Club195_v3.swf" /><param name="quality" value="high" /><param name="bgcolor" value="#019dda" /><embed src="/Club195_v3.swf" quality="high" bgcolor="#019dda" width="500" height="265" name="Club195_v3" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /></object></th>
      <th width="249" rowspan="2" valign="top" scope="col"><object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="155" height="1022" id="bubbles" align="left">

<param name="allowScriptAccess" value="sameDomain" />
<param name="movie" value="bubbles.swf" /><param name="menu" value="false" /><param name="quality" value="high" /><param name="wmode" value="transparent" /><param name="bgcolor" value="#019dda" /><embed src="/bubbles.swf" menu="false" quality="high" wmode="transparent" bgcolor="#019dda" width="155" height="1022" name="bubbles" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /></object></th>
    </tr>
    <tr>
      <td width="500" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="images/guestlist_top.jpg" width="500" height="203"></td>
        </tr>
        <tr>
          <td height="100"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><img src="images/guestbg/bgtop.jpg" align="center" width="500" height="27"></td>
            </tr>
            <tr>
              <td><table width="500PX"  border="0" cellpadding="0" cellspacing="0" background="images/guestbg/bgmiddle.jpg">
                <tr>
                  <td><!-- Page content start -->
				<form name="EditGuestlist" action="?action=save" method="POST">
<table align="center"><tr>
<% If action="confirm" Then %>
<td><img src="cactushop5/images_club/spacer.gif" width="40" height="1" border="0" alt=""></td>
<td class="FormStdC">
Thank You <%=strFirstName%>&nbsp;<%=strLastName%> for your guestlist booking for yourself and the list below on <%=dtmRequestedDate%>  
for <%=Request.Form("EntriesCount")+1%> guest. We hope you have a 
great night at Club 195.
</td>
<td><img src="cactushop5/images_club/spacer.gif" width="40" height="1" border="0" alt=""></td>
</tr></table><br />
<table align="center" width="400" border="0" cellpadding="0" cellspacing="0" class="Std">

<%Else%>
<td class="FormStdC">
Using the form below, you fill out the boxes in the left hand column<BR>with 
information about yourself (items marked * must be completed). In<BR>the right 
hand column, add the names, date of birth and email addresses<BR>(if available) 
of additional guests.
<%If error Then%>
<br />
<font color="#ff0000" >
Dear <%=strFirstName%>&nbsp;<%=strLastName%>!<br /> A guestlist for this email address and date has been already requested.<br />Please enter different email address or change requested date.
</font>
<%End If%>

</td></tr></table><br />
				<table align="center" width="400" border="0" cellpadding="0" cellspacing="0" class="Std">
				<!-- top 3 columns start -->
				<tr>
					<!-- column 1 start -->
					<td width="50%" align="right" valign="top">
						<table border="0" cellspacing="0" cellpadding="0">
						
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<td class="FormStdR">Date * &nbsp;</td>
							<span class="FormStdR"><td class="FormStdL">
<Script Language="JavaScript" class="FormStdL"><!--
InputDateSearch(<%= Year(dtmRequestedDate) %>,<%= Month(dtmRequestedDate) %>,<%= Day(dtmRequestedDate) %>,"");
//-->
</Script></td></span>
							
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
							<td rowspan="38" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="2" height="1" border="0" alt=""></td>
						</tr>

						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Occasion &nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="200" class="blue" name="Occasion" value="<%=strOccasion%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>						
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">First&nbsp;Name&nbsp;*&nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="50" class="blue" name="NameFirst" value="<%=strFirstName%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Last&nbsp;Name&nbsp;*&nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="50" class="blue" name="NameLast" value="<%=strLastName%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Guests&nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" <% If action <> "create" Then%>disabled="disabled"<%End If%> maxlength="2" class="blue" name="GuestsNumber" ID="GuestsNumber" value="<%=intGuestNumber%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr><input type="hidden" name="PhoneBooking" ID="PhoneBooking" value="">
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Email *&nbsp;</td>
							<td class="FormStdL">
							<input type="text" size="20" maxlength="100" class="blue" name="Email" value="<%=strEmail%>">
							</td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>	
						</tr>						
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<% If action = "create" Then%>				
						<input type="hidden" name="isnew" value="true" >
						<%Else%>
						<input type="hidden" name="isnew" value="false" >
						<input type="hidden" name="id" value="<%=strID%>" >
						<%End If%>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<td width="*" class="FormStdR">DOB &nbsp;</td>
							<td class="FormStdL">
<Script Language="JavaScript"><!--
<%If isNull(dtmDOB) Then%>
	InputDateDOB("", "", "", "_DOB");
<%Else%>
	InputDateDOB(<%= Year(dtmDOB) %>,<%= Month(dtmDOB) %>,<%= Day(dtmDOB) %>,"_DOB");
<%End If%>
//-->
</Script>
							</td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Gender &nbsp;</td>
							<td class="FormStdL">
								<select name="gender" class="blue" type="text">
								<option value="M" <% If chrGender = "M" then %> selected<%End if%> >Male</option>
								<option value="F" <% If chrGender = "F" then %> selected<%End if%> >Female</option>
								<option value="U" <% If chrGender = "U" then %> selected<%End if%> >Unknown</option>
								</select>
							</td>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">House &nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="50" class="blue" name="House" value="<%=strHouse%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Street &nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="50" class="blue" name="Street" value="<%=strStreet%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Town &nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="50" class="blue" name="Town" value="<%=strTown%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">City &nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="50" class="blue" name="City" value="<%=strCity%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">County &nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="50" class="blue" name="County" value="<%=strCounty%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Postcode &nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="10" class="blue" name="Postcode" value="<%=strPostcode%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Telephone   &nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="20" class="blue" name="Telephone" value="<%=strTelephone%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Facsimile   &nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="20" class="blue" name="Facsimile" value="<%=strFacsimile%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td width="100%" class="FormStdR">Mobile &nbsp;</td>
							<td class="FormStdL"><input type="text" size="20" maxlength="20" class="blue" name="Mobile" value="<%=strMobile%>"></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>									
						</tr>
						<tr><td colspan="4" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						</table>
					</td>
					<!-- column 1 End -->

					<!-- column 2 start-->
					<td width="50%" valign="top">
						<table width="100%" border="0" cellspacing="0" cellpadding="0" class="Bluel">
						<tr>
							<td   class="PageHeading"><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
						</tr>
						
						<tr>
							<td >	
								<table width="100%" border="0" cellspacing="0" cellpadding="0">
													
								<tr>
									<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>	
									<td colspan=3 width="*" class="TextLarge">Add guest</td>
									<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
									<td class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="24" border="0" alt=""></td>
								</tr>
								<tr>
									<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>	
									<td colspan=3>
										<table>
										
										<tr>
											<td class="FormStdR">Email</td>
											<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
											<td class="FormStdR">
											<input type="text" size="22" maxlength="100" class="blue" name="Email_Entry" value="">
											</td>
											<td colspan="2"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
										</tr>
										</table>
									</td>
									
									<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
									<td class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="24" border="0" alt=""></td>
								
								</tr>
								<tr>
									<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>	
									<td colspan=3>
										<table>
										
										<tr>
											<td class="FormStdR">DOB &nbsp;</td>
											<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
											<td class="FormStdL">
<span class="FormStdL"><Script Language="JavaScript"><!--
InputDateDOB("", "", "", "_Entry");
//-->
</Script></span>
											</td>
											<td colspan="2"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
										</tr>
										</table>
									</td>
									
									<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
									<td class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="24" border="0" alt=""></td>
								
								</tr>																
								<tr>
									<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>	
									<td colspan=3>
										<table>
										
										<tr>
											<td class="FormStdR" align="left">First name *</td>
											<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
											<td class="FormStdR">
											<input type="text" size="12" maxlength="50" class="blue" name="FirstName_Entry" value="">
											</td>
											<td colspan="2"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
										</tr>
										</table>
									</td>
									
									<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
									<td class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="24" border="0" alt=""></td>
								
								</tr>
								<tr>
									<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>	
									<td colspan=3>
										<table>
										
										<tr>
											<td class="FormStdR" align="left">Last name *</td>
											<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
											<td class="FormStdR">
											<input type="text" size="12" maxlength="50" class="blue" name="LastName_Entry" value=""><br>
											</td>
											<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
										</tr>
										</table>
									</td>
									
									<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
									<td class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="24" border="0" alt=""></td>
								
								</tr>
								<tr>
									<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>	
									<td colspan=3>
										<table>
										
										<tr>
											<td align="center" class="list"><a onmouseover="rollOn('addGuestlistEntry')" onmouseout="rollOff('addGuestlistEntry')" onClick="<%If action = "create" Then%>alert('Please save created Guestlist Request before adding Entries.');<%Else%>addgEntry(document.EditGuestlist)<%End If%>"><img src="cactushop5/images_club/butt_add_off.gif" name="addGuestlistEntry" width="42" height="19" border="0" alt="add event booker"></a></td>
										</tr>
										</table>
									</td>
									
									<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
									<td class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="24" border="0" alt=""></td>
								
								</tr>							
								

								</table>
							</td>

						</tr>
						<tr>
							<td class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
						</tr>

						<tr><td class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td></tr>
						
						</table>
						
						<!-- comments field -->
						<table width="100%" border="0" cellspacing="0" cellpadding="0" class="Std">
						<tr>
							<td colspan="4" ><img src="cactushop5/images_club/spacer.gif" width="10" height="90" border="0" alt=""></td>
						</tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>	
							<td width="*" class="FormStdC">Comments</td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<td ><img src="cactushop5/images_club/spacer.gif" width="1" height="24" border="0" alt=""></td>
						</tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>	
							<td width="*" class="FormStdC"><textarea name="Comments" class="blue" cols=30 rows=4 ><%=strComments%></textarea></td>
							<td ><img src="cactushop5/images_club/spacer.gif" width="1" height="24" border="0" alt=""></td>
						</tr>					
						<tr>
							<td colspan="4"><img src="cactushop5/images_club/spacer.gif" width="1" height="10" border="0" alt=""></td>
						</tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>	
							<td width="*" class="FormStdC"><a onmouseover="rollOn('save')" onmouseout="rollOff('save')" onClick="saveGuestlistRequest(document.EditGuestlist)"><img src="cactushop5/images_club/butt_save_changes_off.gif" name="save" width="91" height="30" border="0" alt=""></a></td>
							<td ><img src="cactushop5/images_club/spacer.gif" width="1" height="24" border="0" alt=""></td>
						</tr>	
						
						
						</table>
					</td>
					<!-- column 2 end-->
		
				</tr>
				<!-- top 3 columns end -->
				<!-- booth start -->
				<tr>
							<td colspan="3"><img src="cactushop5/images_club/spacer.gif" width="1" height="10" border="0" alt=""></td>
				</tr>
<%End If 'action="confirm"%>
				<tr>
					<td colspan="3" class="FormStdC"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
				</tr>	
				<tr>
					<td colspan="3" class="FormStdC">
						<table width="100%" border="0" cellspacing="0" cellpadding="0">
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td colspan="15" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="2" border="0" alt=""></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
						</tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td colspan="16" class="TextLarge">Guest List</td>
						</tr>
						<tr>
							<td colspan="17"><img src="cactushop5/images_club/spacer.gif" width="1" height="5" border="0" alt=""></td>
						</tr>
						<tr valign="top">
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<td class="main" nowrap>Name</td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<td class="main" align="right">DOB</td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<td class="main" align="right">Email</td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="34" height="1" border="0" alt=""></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
						</tr>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td colspan="7" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="2" border="0" alt=""></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
						</tr>
				<%	num1 = 0
					If action <> "create" Then
						Do While Not objRstEntries.BOF and not objRstEntries.EOF	
						num1 = num1 + 1
						dtmDOB = objRstEntries.Fields("DOB")
						If isNull(dtmDOB) Then
							strDOB = ""
						Else
							strDOB = FormatDateTime(dtmDOB,vbShortDate)
						End IF
						
						strEmail = objRstEntries.Fields("Email")
						If isNull(strEmail) Then
							strEmail = ""
						End IF	
				%>
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<td class="list" nowrap><%=Server.HTMLEncode(objRstEntries("FullName"))%></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<td class="list" align="right"><%=strDOB%></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<td class="list" align="right"><%=Server.HTMLEncode(strEmail)%></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="10" height="1" border="0" alt=""></td>
							<%If action<>"confirm" Then%>
							<td align=right><a onmouseover="rollOn('delete<% =num1 %>')" onmouseout="rollOff('delete<%=num1 %>')" onClick="deletegEntry(document.EditGuestlist,<%=objRstEntries.Fields("EntryID")%>);"><img src="cactushop5/images_club/butt_delete_off.gif" name="delete<% =num1 %>" width="38" height="18" border="0" alt="delete"></a></td>
							<%Else%>
							<td><img src="cactushop5/images_club/spacer.gif" width="34" height="1" border="0" alt=""></td>
							<%End If 'action="confirm"%>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
						</tr>				
						<tr>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td colspan="7" class="SpacerLine"><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
							<td><img src="cactushop5/images_club/spacer.gif" width="1" height="1" border="0" alt=""></td>
						</tr>
					<%
							objRstEntries.MoveNext
						Loop
						objRstEntries.Close
						Set objRstEntries = Nothing 
					End If 'action <> "create"

						%>	
						
						</table>
						<input type="hidden" name="EntriesCount" value="<%=num1%>" >
					</td>

				</tr>
				<!-- booth end -->						
			
				</table>
				<!-- Page content end -->
				

				</form></td>
                </tr>
				<%If action="confirm" Then %>
				<tr><td class="FormStdC">
				Your provisional booking has been accepted.<BR><BR>
				<span style="font-size: 7px;">The management reserve the right to refuse admission</span>
                <%ElseIf action <> "create" Then%>
                <tr><td align="center">
						<input type="button" onclick="document.EditGuestlist.action='?action=confirm';document.EditGuestlist.submit();" value="Complete Guestlist" ID="Submit1" NAME="Submit1">
				<%End If 'action="confirm"%>
				</td></tr>

              </table></td>
            </tr>
            <tr>
              <td><img src="images/guestbg/bgbottom.jpg" width="500" height="26"></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td><img src="images/guestlist_btm.jpg" width="500" height="282"></td>
        </tr>
      </table></td>
    </tr>
  </table>
</div>
<table width="801" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
</table>
</body>
</html>