<%Option Explicit%>
New Page 1
<%
Dim objCon, objRecordset, strSQL, arrData, intcount, goalSQL, goalData, pimSQL, pimData, teamSQL, teamData
set objCon=Server.CreateObject("adodb.connection")
set objRecordset=Server.CreateObject("adodb.recordset")
objCon.connectionstring="Provider=Microsoft.jet.oledb.4.0;Data Source= " & server.mappath("\llhl\db\llhl.mdb") & ";" & "Persist Security Info=False"
strSQL="SELECT * FROM tblPlayers WHERE team='Wat' ORDER BY tblPlayers.points DESC, tblPlayers.goals DESC, tblPlayers.gp ASC"
objCon.open
objRecordset.open strSQL, objCon
arrData=objRecordset.getRows
objRecordset.close
goalSQL="SELECT * FROM tblGoalies WHERE team='Wat' ORDER BY tblGoalies.avg"
objRecordset.open goalSQL, objCon
goalData=objRecordset.getRows
objRecordset.close
teamSQL="SELECT * FROM tblTeams WHERE id=1"
objRecordset.open teamSQL, objCon
teamData=objRecordset.getRows
objRecordset.close
%>
Welcome to the 2009/2010 LLHL season!
2009/2010 League Awards:
MVP: (TIE) Derek
Allan (Davidson) and Brent Twordik (Lanigan)
Most Gentlemanly:
Josh Sim (Davidson); runner-up Dean Beuker (Lanigan)
Top Defenseman:
Derek Eberle (Drake); runner-up Brett McRuvie (Lanigan)
Coach of the Year:
Jason Shaw (Davidson); runner-up Perry Herr (Lanigan)
League
Use
`
<%
set objCon = nothing
set objRecordset = nothing
%>