<%
' If member ref not already present then call login
' page and stop rest of this page
ref 		= trim(request("ref"))
if ref = "" then
%>
	<!-- #include file="bkitlogin.asp" -->
<%
response.end
end if
%>

<!-- #INCLUDE FILE="bkiteventdesc1.asp" -->

<%
' note other connections established in include file above!
Set memberrs = Server.CreateObject( "ADODB.Recordset" )
memberrs.ActiveConnection = Con
sqlString = _
"SELECT 		ref, caddressee, cwebpass " &_
"from 			bkitmembers " &_
"where 		ref = '" & request("ref") & "'"
memberrs.Open sqlString

'restore values if came back from error
slots1 = TRIM( Request( "slots1" ) )
slots2 = TRIM( Request( "slots2" ) )
slots3 = TRIM( Request( "slots3" ) )
slots4 = TRIM( Request( "slots4" ) )
cpaytype 	= TRIM( Request( "cpaytype" ) )
transport 	= TRIM( Request( "transport" ) )
notes 		= trim(request( "notes" ) )

'defaults first time
if slots1 = "" then slots1 = 1
%>

<center>
<p>
<form method="POST" action=<%= "bkitaddcart.asp?eventno=" & eventno %> >
  <table border=1 cellpadding=2 cellspacing=0 width="50%">
    <tr>
      <td width="32%" bgcolor="#6BB6B6" colspan="2" align="center" height="19"><b><%= trim(memberrs("caddressee")) %></b></td>
    </tr>
    <tr>
      <td width="16%" bgcolor="#000080" height="38"><font color="#FFFFFF"><b>Booking Type</b></font></td>
      <td width="16%" bgcolor="#000080" height="38"><font color="#FFFFFF"><b>Slots</b></font></td>
    </tr>
	<% if len(trim(eventrs("book1name"))) > 0 then %>
	    <tr>
   		   <td width="16%" bgcolor="#FFF0E1" height="23"><%= eventrs("book1name") %></td>
	      <td width="16%" bgcolor="#FFF0E1" height="23"><input type="text" name="slots1" size="5" value="<%= server.htmlencode(slots1)%>"></td>
	    </tr>
	<% end if %>
	<% if len(trim(eventrs("book2name"))) > 0 then %>
	    <tr>
   		   <td width="16%" bgcolor="#FFF0E1" height="23"><%= eventrs("book2name") %></td>
      		<td width="16%" bgcolor="#FFF0E1" height="23"><input type="text" name="slots2" size="5" value="<%= server.htmlencode(slots2)%>"></td>
	    </tr>
	<% end if %>
	<% if len(trim(eventrs("book3name"))) > 0 then %>
	    <tr>
   		   <td width="16%" bgcolor="#FFF0E1" height="23"><%= eventrs("book3name") %></td>
	      <td width="16%" bgcolor="#FFF0E1" height="23"><input type="text" name="slots3" size="5" value="<%= server.htmlencode(slots3)%>"></td>
   		 </tr>
	<% end if %>
	<% if len(trim(eventrs("book4name"))) > 0 then %>
	    <tr>
   		   <td width="16%" bgcolor="#FFF0E1" height="23"><%= eventrs("book4name") %></td>
      		<td width="16%" bgcolor="#FFF0E1" height="23"><input type="text" name="slots4" size="5" value="<%= server.htmlencode(slots4)%>"></td>
	    </tr>
	<% end if %>
    <tr>
      <td width="16%" bgcolor="#FFF0E1" height="23">Paying</td>
      <td width="16%" bgcolor="#FFF0E1" height="23"><select size="1" name="cpaytype">      		
          <option <%if server.htmlencode(cpaytype) = "Full Amount" then%>selected<%end if%> >Full Amount</option>
			<% ' only allow deposit if a deposit present on event record %>
          <% if clng(eventrs("depamt1")) + clng(eventrs("depamt2")) + clng(eventrs("depamt3")) + clng(eventrs("depamt4")) > 0 then %>
	          <option <%if server.htmlencode(cpaytype) = "Deposit" then%>selected<%end if%> >Deposit</option>
	       <% end if %>
        </select></td>
    </tr>
    <tr>
      <td width="16%" bgcolor="#FFF0E1" height="23">Transport</td>
      <td width="16%" bgcolor="#FFF0E1" height="23"><select size="1" name="transport">
          <option <%if server.htmlencode(transport) = "Direct" then%>selected<%end if%> >Direct</option>
          <option <%if server.htmlencode(transport) = "Offer" then%>selected<%end if%> >Offer</option>
          <option <%if server.htmlencode(transport) = "Require" then%>selected<%end if%> >Require</option>
          <option <%if server.htmlencode(transport) = "Share" then%>selected<%end if%> >Share</option>
        </select></td>
    </tr>
    <tr>
      <td width="16%" bgcolor="#FFF0E1" valign="top" height="1" >Notes (inc spec reqmts / guest
        names etc)</td>
      <td width="16%" bgcolor="#FFF0E1" height="1"><textarea rows="3" name="notes" cols="20"><%= server.htmlencode(notes)%></textarea></td>
    </tr>
    <tr>
      <td width="32%" bgcolor="#FFF0E1" valign="top" colspan="2" height="25" align="center">
        <p align="center">
  <input type="submit" value="Add To Basket" name="B1"></td>
    </tr>
  </table>
  
  <input name="feeamt1" type="hidden" value=<%= eventrs("feeamt1") %> >
  <input name="feeamt2" type="hidden" value=<%= eventrs("feeamt2") %> >
  <input name="feeamt3" type="hidden" value=<%= eventrs("feeamt3") %> >
  <input name="feeamt4" type="hidden" value=<%= eventrs("feeamt4") %> >
  <input name="depamt1" type="hidden" value=<%= eventrs("depamt1") %> >
  <input name="depamt2" type="hidden" value=<%= eventrs("depamt2") %> >
  <input name="depamt3" type="hidden" value=<%= eventrs("depamt3") %> >
  <input name="depamt4" type="hidden" value=<%= eventrs("depamt4") %> >
  <input name="ref"     type="hidden" value=<%= ref %> >
  <input name="password" type="hidden" value=<%= password %> >
</form>

<table border="0" width="40%">
    <tr>
    <td width="33%"><% showbutton "Show Basket", 	getpath("web")+"/bkitaddcart.asp" %></td>
    <td width="34%"><% showbutton "Home", 			getpath("home") %></td>
    </tr>
</table>

<% pagefooter %>
<% Con.Close %>