What would you like to view: <% If Request("selType").Item = "WEEKLY" Then %> Seasonal Game - Current Positions <% If Not bNoRecords Then rsMonth.MoveFirst While Not rsMonth.EOF Response.Write "Seasonal Game - Month " & rsMonth(0).Value & "" rsMonth.MoveNext Wend %> Weekly Game <% ElseIf Request("selType").Item = "SEASONAL" Then %> Seasonal Game - Current Positions <% If Not bNoRecords Then rsMonth.MoveFirst While Not rsMonth.EOF Response.Write "Seasonal Game - Month " & rsMonth(0).Value & "" rsMonth.MoveNext Wend %> Weekly Game <% Else %> Seasonal Game - Current Positions <% If Not bNoRecords Then rsMonth.MoveFirst While Not rsMonth.EOF If Request("selType").Item = "SEASONAL," & rsMonth(0).Value Then Response.Write "Seasonal Game - Month " & rsMonth(0).Value & "" Else Response.Write "Seasonal Game - Month " & rsMonth(0).Value & "" End If rsMonth.MoveNext Wend %> Weekly Game <% End If %>    Page: <% For i = 1 To iPageCount If i = CInt(iPage) Then Response.Write "" & i & "" Else Response.Write "" & i & "" End If Next %>
	<% iRow = 1 iPos = (iPageSize * (iPage - 1)) + 1 While Not rs.EOF And iRow <= iPageSize %> <% rs.MoveNext iRow = iRow + 1 iPos = iPos + 1 Wend rs.Close %> Position Membership Display Name Game Team Total   Number   Name Support Score <%= iPos %>. <%= rs("member_id").Value %> <%= rs("display_name").Value %> <%= rs("game_name").Value %> <%= rs("team_supported").Value %> <%= rs("total_points").Value %>
	<% ' Get a recordset of fixtures that have completed and relate to the week before this one iWeekId = giWeekId - 1 Set rsMatch = Server.CreateObject ("ADODB.Recordset") sSQL = "SELECT * FROM Fixture, Team h, Team a " sSQL = sSQL & " WHERE (fixture.is_deleted IS NULL or fixture.is_deleted = '') " sSQL = sSQL & " AND fixture.week_id = " & iWeekId sSQL = sSQL & " AND fixture.league_id = " & iLeagueId sSQL = sSQL & " AND h.team_id = fixture.home_team_id " sSQL = sSQL & " AND a.team_id = fixture.away_team_id " sSQL = sSQL & " AND home_team_score IS NOT NULL " sSQL = sSQL & " AND away_team_score IS NOT NULL " sSQL = sSQL & " ORDER BY fixture_date, h.team_name, a.team_name" rsMatch.Open sSQL, con sLastDate = "" While Not rsMatch.EOF sRowColour = "" If rsMatch("points_type").Value = "DOUBLE" Then sRowColour = "RED" If rsMatch("points_type").Value = "TREBLE" Then sRowColour = "BLUE" If sLastDate <> rsMatch("fixture_date").Value Then sLastDate = rsMatch("fixture_date").Value %> <% End If %> <% rsMatch.MoveNext Wend rsMatch.Close %> Home Team     Away Team   Result <%= WeekdayName(Weekday(rsMatch("fixture_date").Value), False) & ", " & FormatDateTime(rsMatch("fixture_date").Value, 1) %> <%= rsMatch("h.team_name").Value %>   v   <%= rsMatch("a.team_name").Value %>   <%= rsMatch("home_team_score").Value %>-<%= rsMatch("away_team_score").Value %>   * RED GAMES SCORE DOUBLE. BLUE GAMES SCORE TRIPLE

Have you ever watched a LIVE match and you do not want the score to change? because you have maximum points riding on it?.

Or the excitement of cheering them on to score as you need another GOAL.

Join NOW and find out how exciting that can be for you, when you play our game. TRY out our DEMO game and see how easy it is to play.

TOP score so far is 91, do you have the skills to beat that?

Challenge your friends, family & work mates, show who is the best.

New SEASON Starts on the 06th January 2007, so fear not if you have not DONE so well, you have a chance to improve your skills from January till May, get some practice in NOW!

If you ever thought you knew what the score would be for the CLUB you support, well here is your chance to put that SKILL to the TEST.

Lets see YOUR name TOP of our LEADER BOARD, plus you have 4 divisions to choose from. GO on give our DEMO game a trial.

STOP worrying about who's fit, what the team line up will be, have you got them in your team.

YOU are in CONTROL, show us your skills and FORECAST the scores each week, JOIN NOW.