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

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

<%
' Get Current Category and searchfor, if first time in then default to cat All
searchfor 	= TRIM( Request( "searchfor" ) )
cat 		= TRIM( Request( "cat" ) )
show 		= TRIM( Request( "show" ) )

IF cat = "" THEN cat = "All"
if show = "" then show = "31"

' Get Login Information
ref = TRIM( Request( "ref" ) )
if ref = "" then
	lccookiename = parentfolder("bkiteventavail.asp") & "MemberID"
	ref = request.cookies(lccookiename)
end if

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

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

<%
'Populate category list
Set categoryrs = Server.CreateObject( "ADODB.Recordset" )
categoryrs.ActiveConnection = Con
sqlString = "SELECT catdesc from bkitcategory where lincwrite = .t." 
categoryrs.Open sqlString

'Populate default settings
Set defaultsrs = Server.CreateObject( "ADODB.Recordset" )
defaultsrs.ActiveConnection = Con
sqlString = "SELECT * from bkitdefaults" 
defaultsrs.Open sqlString

'populate member settings
if not ref = "" then
	Set memberrs = Server.CreateObject( "ADODB.Recordset" )
	memberrs.ActiveConnection = Con
	sqlString = _
	"SELECT 		ref, caddressee, cwebpass " &_
	"from 			bkitmembers " &_
	"where 		ref = '" & ref & "'"
	memberrs.Open sqlString
end if

%>

<head>
<title>Event Availability</title> 
<style><% defstyles %></style>
</head>
<center>

<h1>Event Availability</h1>

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


<table border="0" bgcolor="#FFF0E1" cellspacing="0" cellpadding="5">
  <tr>
    <td bgcolor="#6BB6B6"><p align="center"><b>
    <% if ref = "" then %>
    	Guest User
    <% else %>
    	<% if memberrs.eof then %>
    		Guest User
		<% else %>
    		<%= memberrs("caddressee") %>
    	<% end if %>
    <% end if %>
    </p></b></td>
  </tr>
  <tr>
    <td valign="middle" height="1" colspan="2" bgcolor="#FFF0E1">
        <form method="post" action="bkiteventavail.asp" >
        <p align="center">&nbsp;&nbsp; <select size="1" name="cat">
          <option <% if cat = "All" then response.write("selected") %> >All</option>
			<%WHILE NOT categoryrs.EOF%>
          <option <% if cat = trim(categoryrs("Catdesc")) then response.write("selected") %> ><%= categoryrs("Catdesc")%></option>
			<%
			categoryrs.MoveNext
			WEND
			%>
       
        </select>&nbsp;&nbsp;<b>Key Words</b> <input name="searchfor" size="18" value= <%= searchfor %> >&nbsp;
        <b>Show</b> <select size="1" name="show">
          <option value="7" <% if show = "7" then response.write("selected") %>>1 Week</option>
          <option value="31" <% if show = "31" then response.write("selected") %>>1 Month</option>
          <option value="93" <% if show = "93" then response.write("selected") %>>3 Months</option>
          <option value="183" <% if show = "183" then response.write("selected") %>>6 Months</option>
          <option value="365" <% if show = "365" then response.write("selected") %>>12 Months</option>
          <option <% if show = "All" then response.write("selected") %>>All</option>
        </select> <input name="ref"     type="hidden" value=<%= ref %> >
	        <input type="submit" value="Search" id="submit1" name="submit1">
        &nbsp;
        </form>
    </td>
  </tr>
</table>

<p>
<!-- #INCLUDE FILE="bkitavaillist.asp" -->
<p>

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

</center>

<% pagefooter %>

<% 
categoryrs.close
defaultsrs.close
con.close %>


