0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: <%
0007: '
0008: ' Remove Old Results
0009: '
0010: GroupID = Request.Querystring("GroupID")
0011: Yr = Request.Querystring("Year")
0012: If Yr <> "" Then
0013: season = Yr
0014: End If
0015: 
0016: 
0017: If GroupID = "" Then GroupID = 1
0018: 
0019: 
0020: 		Set rsd = Server.CreateObject("ADODB.Recordset")
0021: 
0022:     	sqlString = "SELECT * FROM mmdraft WHERE Season = " & season & " AND GroupID = '" & GroupID & "' ORDER BY DraftOrder"				
0023: 							
0024: 		rsd.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0025: 
0026: 		Do Until rsd.EOF
0027: 		
0028: 		
0029: 			TotalWins = 0
0030: 			TotalPoints = 0
0031: 		
0032: 			RegNumber = rsd("RegNumber").Value
0033: 
0034: 
0035: 
0036: 			Set rs = Server.CreateObject("ADODB.Recordset")
0037: 
0038:     		sqlString = "SELECT * FROM mmdraftpicks WHERE Season = " & season & " AND GroupID = " & GroupID & " AND RegNumber = '" & RegNumber & "' ORDER BY PickNumber"
0039: 	'				Response.Write("<BR>" & sqlString)							
0040: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0041: 
0042: 			Do Until rs.EOF
0043: 			
0044: 				TeamID = rs("TeamID").Value
0045: 
0046: 
0047: 				Set rsr = Server.CreateObject("ADODB.Recordset")
0048: 
0049:     			sqlString = "SELECT * FROM mmresults WHERE Season = " & Season & " " & _
0050: 				             "AND ID = '" & TeamID & "' "
0051: 				
0052: '				Response.Write("<BR>" & sqlString)						
0053: 				rsr.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0054: 
0055: 				F32Pts = rsr("F32Pts").Value
0056: 				F16Pts = rsr("F16Pts").Value
0057: 				F8Pts = rsr("F8Pts").Value
0058: 				F4Pts = rsr("F4Pts").Value
0059: 				F2Pts = rsr("F2Pts").Value
0060: 				F1Pts = rsr("F1Pts").Value
0061: 
0062: 				F64Score = rsr("F64Score").Value
0063: 				F32Score = rsr("F32Score").Value
0064: 				F16Score = rsr("F16Score").Value
0065: 				F8Score = rsr("F8Score").Value
0066: 				F4Score = rsr("F4Score").Value
0067: 				F2Score = rsr("F2Score").Value
0068: 				F1Score = rsr("F1Score").Value
0069: 
0070: 				If F32PTS > 0 And F32pts <> 99 Then
0071: 					TotalWins = TotalWins + 1
0072: 					TotalPoints = TotalPoints + F64Score
0073: 				End If
0074: 
0075: 
0076: 				If F16PTS > 0 And F16pts <> 99 Then
0077: 					TotalWins = TotalWins + 1
0078: 					TotalPoints = TotalPoints + F32Score
0079: 				End If
0080: 
0081: 
0082: 				If F8PTS > 0 And F8pts <> 99 Then
0083: 					TotalWins = TotalWins + 1
0084: 					TotalPoints = TotalPoints + F16Score
0085: 				End If
0086: 
0087: 
0088: 				If F4PTS > 0 And F4pts <> 99 Then
0089: 					TotalWins = TotalWins + 1
0090: 					TotalPoints = TotalPoints + F8Score
0091: 				End If
0092: 
0093: 
0094: 				If F2PTS > 0 And F2pts <> 99 Then
0095: 					TotalWins = TotalWins + 1
0096: 					TotalPoints = TotalPoints + F4Score
0097: 				End If
0098: 
0099: 
0100: 				If F1PTS > 0 And F1pts <> 99 Then
0101: 					TotalWins = TotalWins + 1
0102: 					TotalPoints = TotalPoints + F2Score
0103: 				End If
0104: 
0105: 			    
0106: 			rs.MoveNext
0107: 			Loop
0108: 
0109: 			rsd("TotalWins").Value = TotalWins
0110: 			rsd("TotalPoints").Value = TotalPoints
0111: 			rsd.Update
0112: 
0113: 		rsd.MoveNext
0114: 		Loop
0115: 
0116: 
0117: '----------  See if there is another group -----------------------------
0118: 
0119: NextGroupID = GroupID + 1
0120: 
0121: 	Set rsn = Server.CreateObject("ADODB.Recordset")
0122: 
0123:     	sqlString = "SELECT * FROM mmdraft WHERE Season = " & season & " AND GroupID = '" & NextGroupID & "' ORDER BY DraftOrder"				
0124: 							
0125: 		rsn.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0126: 
0127: 		If Not rsn.EOF Then
0128: 
0129: 	'	Response.Write("DraftCalcPoint.asp?GroupID=" & NextGroupID )
0130: 
0131: 		Response.Redirect("DraftCalcPoints.asp?GroupID=" & NextGroupID )
0132: 
0133: 	    Else
0134: 
0135: 		Response.Redirect("DraftStandings.asp?GroupID=" & GroupID )
0136: 
0137: 		End If
0138: 
0139: %>
0140: 
0141: 		<tr><td class="norm">&nbsp;<br><br><br><BIG><BIG><a href="displaymenu.asp?parent=90"><b>Return to Menu</b></a><br><br>
0142: 
0143: 
0144: