<!-- #INCLUDE FILE="bkitadovbs.inc" -->
<!-- #INCLUDE FILE="bkitutillib.asp" -->

<!-- #include file="bkitonline.asp" -->

<%
' Note - can be called from event999999.asp as well as bkitbookevent.asp
' If from event page then show all relevant non blank headers. If called 
' from booking page only show key ones

' Get Login Information and passed info
eventno 	= TRIM( Request( "eventno" ) )
ref 		= TRIM( Request( "ref" ) )
scriptname	= ucase(request.servervariables("script_name"))

' Open Database Connection
Set Con = Server.CreateObject( "ADODB.Connection" )
%>

<!-- #INCLUDE FILE="connection.inc" -->

<%
Set eventrs = Server.CreateObject( "ADODB.Recordset" )
eventrs.ActiveConnection = Con
sqlString = _
"SELECT 		eventno, desc, location, nicedates, nicetimes, nicefees, " &_
"				meetplace, max1, max2, max3, max4, maxall, taken1, taken2, " &_
"				taken3, taken4, book1name, " &_
"				book2name, book3name, book4name, feeamt1, feeamt2, feeamt3, " &_
"				feeamt4, depamt1, depamt2, depamt3, depamt4, extras " &_
"from 			bkitevents "&_
"where 		eventno = '" & eventno & "'"
eventrs.Open sqlString

Set bookingsrs = Server.CreateObject( "ADODB.Recordset" )
bookingsrs.ActiveConnection = Con
sqlString = _
"SELECT 		eventno, sum(slots1) as taken1, sum(slots2) as taken2, " &_
"				sum(slots3) as taken3, sum(slots4) as taken4 " &_
"from 			bkitbookings "&_
"where 		eventno = '" & eventno & "' " &_
"group by 		eventno"
bookingsrs.Open sqlString

'Populate default settings
Set defaultsrs = Server.CreateObject( "ADODB.Recordset" )
defaultsrs.ActiveConnection = Con
sqlString = "SELECT * from bkitdefaults" 
defaultsrs.Open sqlString
%>
 
<head>
<title><%= eventrs("desc") %></title>
<style><% defstyles %></style>
</head>

<center>
<h1>
<%
' Title is 'XYZ Event' unless called from booking page in which case
' it will be 'Book XYZ Event'
'
if instr(1,scriptname,"BKITBOOKEVENT") > 0 then %>
Book <% end if %>
<%= eventrs("desc") %> 
</h1>

<font size="2">Updated <%= defaultsrs("tavailup") %></font><p>


<table width="50%" border=1 cellpadding=2 cellspacing=0>

<tr>
  <td width="10%" bgcolor="#000080" height="19">
  <font size="2" color="#FFFFFF"><b>Date</b></font></td>
  <td width="40%" bgcolor="#FFF0E1" height="19">
  <font size="2"><%= eventrs("nicedates") %></font></td>
</tr>

<% if len(trim(eventrs("nicetimes"))) > 0 and instr(1,scriptname,"BKITBOOKEVENT") = 0 then %>
<tr>
  <td width="10%" bgcolor="#000080" height="19">
  <font size="2" color="#FFFFFF"><b>Time</b></font></td>
  <td width="40%" bgcolor="#FFF0E1" height="19">
  <font size="2"><%= eventrs("nicetimes") %></font></td>
</tr>
<% end if %>

<% if len(trim(eventrs("location"))) > 0 then %>
<tr>
  <td width="10%" bgcolor="#000080" height="19">
  <font size="2" color="#FFFFFF"><b>Location</b></font></td>
  <td width="40%" bgcolor="#FFF0E1" height="19">
  <font size="2"><%= eventrs("location") %></font></td>
</tr>
<% end if %>

<% if len(trim(eventrs("meetplace"))) > 0 and instr(1,scriptname,"BKITBOOKEVENT") = 0 then %>
<tr>
  <td width="10%" bgcolor="#000080" height="19">
  <font size="2" color="#FFFFFF"><b>Meet</b></font></td>
  <td width="40%" bgcolor="#FFF0E1" height="19">
  <font size="2"><%= eventrs("meetplace") %></font></td>
</tr>
<% end if %>

<% if len(trim(eventrs("nicefees"))) > 0 then %>
<tr>
  <td width="10%" bgcolor="#000080" height="7">
  <font size="2" color="#FFFFFF"><b>Cost</b></font></td>
  <td width="40%" bgcolor="#FFF0E1" height="7">
  <font size="2"><%= eventrs("nicefees") %></font></td>
</tr>
<% end if %>

<% if len(trim(eventrs("extras"))) > 0 and instr(1,scriptname,"BKITBOOKEVENT") = 0 then %>
<tr>
  <td width="10%" bgcolor="#000080" height="7">
  <font size="2" color="#FFFFFF"><b>Extras</b></font></td>
  <td width="40%" bgcolor="#FFF0E1" height="7">
  <font size="2"><%= eventrs("extras") %></font></td>
</tr>
<% end if %>

<%
taken1 = clng(eventrs("taken1"))
if not bookingsrs.eof then taken1 = taken1 + clng(bookingsrs("taken1"))
taken2 = clng(eventrs("taken2"))
if not bookingsrs.eof then taken2 = taken2 + clng(bookingsrs("taken2"))
taken3 = clng(eventrs("taken3"))
if not bookingsrs.eof then taken3 = taken3 + clng(bookingsrs("taken3"))
taken4 = clng(eventrs("taken4"))
if not bookingsrs.eof then taken4 = taken4 + clng(bookingsrs("taken4"))

takenall = taken1 + taken2 + taken3 + taken4
freeall  = clng(eventrs("maxall")) - takenall
%>

<% if instr(1,scriptname,"BKITBOOKEVENT") = 0 then %>
<tr>
  <td width="10%" bgcolor="#000080" height="19">
  <font size="2" color="#FFFFFF"><b>Free Slots</b></font></td>
  <td width="40%" bgcolor="#FFF0E1" height="19">
  <font size="2">
  <%
  if clng(freeall) > 0 then
	  	freedets = freeall & " (" 
  		if clng(eventrs("max1")) > 0 then freedets = freedets & clng(eventrs("max1"))-taken1 & " " & trim(eventrs("book1name")) & ", "
		if clng(eventrs("max2")) > 0 then freedets = freedets & clng(eventrs("max2"))-taken2 & " " & trim(eventrs("book2name")) & ", "
		if clng(eventrs("max3")) > 0 then freedets = freedets & clng(eventrs("max3"))-taken3 & " " & trim(eventrs("book3name")) & ", "
		if clng(eventrs("max4")) > 0 then freedets = freedets & clng(eventrs("max4"))-taken4 & " " & trim(eventrs("book4name")) & ", "
		if right(freedets,2) = " (" then freedets = left(freedets,len(freedets)-2)
		if right(freedets,2) = ", " then freedets = left(freedets,len(freedets)-2) & ")"
  		%>		
	  	<%= freedets %>
  <% else %>
  		<font color="#FF0000">FULL</font>
  <% end if %>
  </font></td>
</tr>
<% end if %>

</table>
</center>
<p>