  |
|
|
|
<%
If IsObject(Session("_conn")) Then
Set conn = Session("_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Sites\Single1\danhummer\database\ForestParkInvitational2007.mdb;" & _
"Persist Security Info=False;"
Set Session("??_conn") = conn
End If
%>
<%
sql = "SELECT Teams.* FROM Teams ORDER BY TeamNames.TeamNumber "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("MasterSchedule_rs") = rs
%>
<%
Dim gender, age
gender = Request.Form("Gender")
If gender = "All" OR gender = "None" Then
GenderSearch = ""
else
GenderSearch = " TeamsRegistered.Gender = " & """" & gender & """"
end if
age = Request.Form("Age")
If age = "All" OR age = "None" Then
AgeSearch = ""
else
AgeSearch = " TeamsRegistered.AgeGroup = " & """" & age & """"
end if
If GenderSearch = "" Then
If AgeSearch = "" Then
Where = ""
else
Where = "WHERE" & AgeSearch
end if
else
If AgeSearch = "" Then
Where = "WHERE" & GenderSearch
else
Where = "WHERE" & GenderSearch & " AND " & AgeSearch
end if
end if
sql = "SELECT Teams.* FROM Teams " & _
Where & " ORDER BY TeamsRegistered.Gender, TeamsRegistered.AgeGroup DESC , TeamsRegistered.TeamName"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
Set Session("Registered_rs") = rs
%>
|
|
