<% Set objDC = Server.CreateObject("ADODB.Connection") strConn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/fpdb/Champions.mdb") objDC.Open strConn Set objRS = objDC.Execute("Select Distinct Year FROM Results") %>

MAC Division Championships for:

 

  Choose a Year

<% ' Close Data Access Objects and free DB variables objRS.Close Set objRS = Nothing objDC.Close Set objDC = Nothing %>
 
 

Division Championships For Your Choice:  
<% Set objDC = Server.CreateObject("ADODB.Connection") strConn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/fpdb/Champions.mdb") objDC.Open strConn Set objRS = objDC.Execute("Select * FROM Results WHERE Year = '" & Request.Form("Year") & "'AND Type = '"&("Division")&"' ORDER BY Sport,Rank ASC") 'Loop through the database and assign the appropriate values to variables 'that we will use later 'Dim strCount 'strCount=0 Do Until objRS.EOF 'strCount = strCount+1 Yr = objRS("Year") School = objRS("School") Sport = objRS("Sport") Division = objRS("Division") 'Set up the display of the record Response.Write Yr & " - " & School & " - " & Sport & " - " & Division & "
" objRS.MoveNext Loop 'Response.Write "
" 'Response.Write Yr & " has " & strCount & " MAC Division Championships" objRS.Close Set objRS = Nothing objDC.Close Set objDC = Nothing %>