|
<%
'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\web\dvsgfl\ffl.mdb;"
'Create an ADO recordset object
Set rs = Server.CreateObject("ADODB.Recordset")
'set parameters for updating recordset
rs.CursorType = 2
rs.LockType = 3
If (myTeam = "standings") Then
%>
<%
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT * FROM players_weeks;"
'Open the recordset with the SQL query
rs.Open strSQL, adoCon
rs.MoveFirst
Do While not rs.EOF
fteam = rs("fantasyteam")
Select Case fteam
Case "Others"
teamPoints(0) = teamPoints(0) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
Case "Whatchamacallits"
teamPoints(1) = teamPoints(1) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
Case "Pornstars"
teamPoints(2) = teamPoints(2) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
Case "Crappers"
teamPoints(3) = teamPoints(3) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
Case "Punchers"
teamPoints(4) = teamPoints(4) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
Case "DolFan"
teamPoints(5) = teamPoints(5) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
Case "Brophys"
teamPoints(6) = teamPoints(6) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
Case "Asteroids"
teamPoints(7) = teamPoints(7) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
Case "Sharts"
teamPoints(8) = teamPoints(8) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
Case "Losers"
teamPoints(9) = teamPoints(9) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
Case "Supernovas"
teamPoints(10) = teamPoints(10) + rs("week1") + rs("week2") + rs("week3") + rs("week4")
End Select
rs.MoveNext
Loop
'now we have arrays of team total, lets sort them and create standings
For kk = 0 To 10
maxval = 0
maxindex = 0
For i = 0 To 10
if (teamPoints(i) >= maxval) Then
maxval = teamPoints(i)
maxindex = i
End if
Next
standings(kk,1) = teamNames(maxindex)
standings(kk,2) = teamPoints(maxindex)
teamPoints(maxindex) = -1
response.write ""
response.write "| | "
response.write "" & kk + 1 & " | "
response.write "" & standings(kk,1) & " | "
response.write "" & standings(kk,2) & " | "
response.write " | "
response.write " "
Next
Else
%>
<%
For i = 0 To 6
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT * FROM players_weeks WHERE fantasyteam = '" & myTeam & "' AND position = '" & pos(i) & "';"
'Open the recordset with the SQL query
if (rs.State <> 0) Then
rs.Close
end if
rs.Open strSQL, adoCon
rs.MoveFirst
Do While not rs.EOF
playerTotal = rs("week1") + rs("week2") + rs("week3") + rs("week4")
week1Total = week1Total + rs("week1")
week2Total = week2Total + rs("week2")
week3Total = week3Total + rs("week3")
week4Total = week4Total + rs("week4")
response.write ""
response.write "| " & rs("name") & " | "
response.write "" & rs("position") & " | "
response.write "" & rs("nflteam") & " | "
'modify output to more appropriately list BYE weeks and future games...change each weeek
if (rs("nflteam") = "NE" OR rs("nflteam") = "IND" OR rs("nflteam") = "GB" OR rs("nflteam") = "DAL") Then
response.write "BYE | "
else
response.write "" & rs("week1") & " | "
end if
if (rs("nflteam") = "PIT" OR rs("nflteam") = "TEN" OR rs("nflteam") = "WAS" OR rs("nflteam") = "TB") Then
response.write "- | "
else
response.write "" & rs("week2") & " | "
'response.write "- | "
end if
if (rs("nflteam") = "PIT" OR rs("nflteam") = "TEN" OR rs("nflteam") = "WAS" OR rs("nflteam") = "TB" OR rs("nflteam") = "IND" OR rs("nflteam") = "DAL" OR rs("nflteam") = "JAC" OR rs("nflteam") = "SEA") Then
response.write "- | "
else
response.write "" & rs("week3") & " | "
'response.write "- | "
end if
response.write "- | "
response.write "" & playerTotal & " | "
response.write " "
rs.MoveNext
Loop
Next
teamTotal = week1Total + week2Total + week3Total + week4Total
response.write ""
response.write "| Total Points | "
response.write " | "
response.write " | "
response.write "" & week1Total & " | "
response.write "" & week2Total & " | "
response.write "" & week3Total & " | "
response.write "" & week4Total & " | "
response.write "" & teamTotal & " | "
response.write " "
end if
'Reset server objects
rs.Close
Set rs = Nothing
Set adoCon = Nothing
%>
Draft Order
-----------------
1. The Other Team
2. Whatchamacallits
3. Pornstars
4. Crappers
5. Clown Punchers
6. DolFan
7. Brophys
8. Asteroids
9. Sharts-a-lot
10. Losers
11. Supernovas
|
Rules: |
$10 fee to play; Winner take all.
Fees are due before Super Bowl Sunday, Feb 6
Winner is based on total accumulated points throughout NFL playoffs
Draft order is randomly selected at start of draft
The roster you choose on draft day is your lineup every week; no
changes
Roster consists of 1 QB, 1 RB, 1 WR, 1 TE, 1 Flex, 1 K, and 1 DST
Scoring is similar to DVSGFL regular season
Results will be posted to this website after each day's games
|
Good luck to everyone! |
|
