| |
|
Girls
Highlight Photos
|
|
|
|
| |
|
|
| |
|
Girls
Player of the Game
|
| Varsity |
|
<% response.write(Session("gvarsity_first")) %>
<% response.write(Session("gvarsity_last")) %>
details
|
| Junior
Varsity |
|
<% response.write(Session("gjvarsity_first")) %>
<% response.write(Session("gjvarsity_last")) %>
details
|
|
|
| |
|
|
| |
|
|
|
|
|
Voice
Your Opinion
|
|
|
|
|
| |
<%
'
' Declare our variables... always good practice!
'
Dim connSimple ' ADO connection
Dim playerSimple ' ADO recordset
Dim str1DBPath ' path to our Access database (*.mdb) file
Dim varsity_first ' Varsity POW First Name
Dim varsity_last ' Varsity POW Last Name
Dim jvarsity_first ' Junior Varsity First Name
Dim jvarsity_last ' Junior Varsity Last Name
Dim freshman_first ' Freshman First Name
Dim freshman_last ' Freshman Last Name
Dim gvarsity_first ' Girls Varsity POW First Name
Dim gvarsity_last ' Girls Varsity POW Last Name
Dim gjvarsity_first ' Girls Jr. Varsity POW First Name
Dim gjvarsity_last ' Girls Jr. Varsity POW Last Name
'************************
'
' PREVIOUS START
'
'************************
' MapPath of virtual database file path to a physical path.
' If you want you could hard code a physical path here.
strDBPath = Server.MapPath("db/shsbb.mdb")
' Create an ADO Connection to connect to the scratch database.
' We're using OLE DB but you could just as easily use ODBC or a DSN.
Set connSimple = Server.CreateObject("ADODB.Connection")
' This line is for the Access sample database:
connSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
' Execute a query using the connection object. It automatically
' creates and returns a recordset which we store in our variable.
' query="SELECT * FROM varsity_pow ORDER BY Date DESC"
query = "SELECT * FROM varsity_pow WHERE date>=#01/01/" & Year(Date) & "# AND date<=#12/31/2007# ORDER BY date DESC"
Set playerSimple = connSimple.Execute(query)
' Display a table of the data in the recordset. We loop through the
' recordset displaying the fields from the table and using MoveNext
' to increment to the next record. We stop when we reach EOF.
Session.Timeout = 90
Session("varsity_first") = " "
Session("varsity_last") = " "
Session("jvarsity_first") = " "
Session("jvarsity_last") = " "
Session("freshman_first") = " "
Session("freshman_last") = " "
Session("gvarsity_first") = " "
Session("gvarsity_last") = " "
Session("gjvarsity_first") = " "
Session("gjvarsity_last") = " "
'
' Load Varsity Player of the Week
'
if Not playerSimple.Eof Then
playerSimple.MoveFirst
if Trim(playerSimple.Fields("Firstname").Value) <> "" Then
Session("varsity_first") = Trim(playerSimple.Fields("Firstname").Value)
Session("varsity_last") = Trim(playerSimple.Fields("Lastname").Value)
end if
end if
playerSimple.Close
connSimple.Close
'
' Load Junior Varsity Player of the Week
'
connSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
query = "SELECT * FROM juniorvarsity_pow WHERE date>=#01/01/" & Year(Date) & "# AND date<=#12/31/2007# ORDER BY date DESC"
Set playerSimple = connSimple.Execute(query)
if Not playerSimple.Eof Then
playerSimple.MoveFirst
if Trim(playerSimple.Fields("Firstname").Value) <> "" Then
Session("jvarsity_first") = Trim(playerSimple.Fields("Firstname").Value)
Session("jvarsity_last") = Trim(playerSimple.Fields("Lastname").Value)
end if
end if
playerSimple.Close
connSimple.Close
'
' Load Freshman Player of the Week
'
connSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
query = "SELECT * FROM freshman_pow WHERE date>=#01/01/" & Year(Date) & "# AND date<=#12/31/2007# ORDER BY date DESC"
Set playerSimple = connSimple.Execute(query)
if Not playerSimple.Eof Then
playerSimple.MoveFirst
if Trim(playerSimple.Fields("Firstname").Value) <> "" Then
Session("freshman_first") = Trim(playerSimple.Fields("Firstname").Value)
Session("freshman_last") = Trim(playerSimple.Fields("Lastname").Value)
end if
end if
'
playerSimple.Close
connSimple.Close
'
' Load Girls Varsity Player of the Week
'
connSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
query = "SELECT * FROM gvarsity_pow WHERE date>=#01/01/" & Year(Date) & "# AND date<=#12/31/2007# ORDER BY date DESC"
Set playerSimple = connSimple.Execute(query)
if Not playerSimple.Eof Then
playerSimple.MoveFirst
if Trim(playerSimple.Fields("Firstname").Value) <> "" Then
Session("gvarsity_first") = Trim(playerSimple.Fields("Firstname").Value)
Session("gvarsity_last") = Trim(playerSimple.Fields("Lastname").Value)
end if
end if
playerSimple.Close
connSimple.Close
'
' Load Girls Junior Varsity Player of the Week
'
connSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
query = "SELECT * FROM gjuniorvarsity_pow WHERE date>=#01/01/" & Year(Date) & "# AND date<=#12/31/2007# ORDER BY date DESC"
Set playerSimple = connSimple.Execute(query)
if Not playerSimple.Eof Then
playerSimple.MoveFirst
if Trim(playerSimple.Fields("Firstname").Value) <> "" Then
Session("gjvarsity_first") = Trim(playerSimple.Fields("Firstname").Value)
Session("gjvarsity_last") = Trim(playerSimple.Fields("Lastname").Value)
end if
end if
'
'
' Close our recordset and connection, destroy the objects
'
playerSimple.Close
Set playerSimple = Nothing
connSimple.Close
Set connSimple = Nothing
'
%>
| |
|
Girls
Basketball - Photographs
of the Week
|
| |
| These
pictures have been selected as the highlight
photographs of the week for each team. |
| |
|
|
| |
| |
|
|
| |
| |
| |
| |
| |
|
Boys
Highlight Photos
|
|
|
|
| |
|
|
| |
|
Boys
Player of the Game
|
| Varsity |
|
<% response.write(Session("varsity_first")) %>
<% response.write(Session("varsity_last")) %>
details
|
| Junior
Varsity |
|
<% response.write(Session("jvarsity_first")) %>
<% response.write(Session("jvarsity_last")) %>
details
|
| Freshman |
|
<% response.write(Session("freshman_first")) %>
<% response.write(Session("freshman_last")) %>
details
|
|
|
| |
|
|
| |
|
Basketballs
|
|
|
|
|
|
Looking
Ahead?
|
|
|
|
|
|
