0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: '
0006: ' Remove Old Results
0007: '
0008: GroupID = Request.Querystring("GroupID")
0009: PickRegNumber = Request.Querystring("PickRegNumber") 
0010: DraftPickID = Request.Querystring("DraftPickID") 
0011: 
0012: 
0013: 
0014: 			Set rs = Server.CreateObject("ADODB.Recordset")
0015: 
0016:     		sqlString = "SELECT * FROM mmdraftpicks WHERE Season = " & Season &  " AND GroupID = '" & GroupID & "' ORDER BY PickNumber DESC"
0017: 							
0018: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0019: 
0020: 		
0021: 			PickNumber = rs("PickNumber").Value
0022: 
0023: 			NextPickNumber = PickNumber + 1
0024: 
0025: 			Set rs = Server.CreateObject("ADODB.Recordset")
0026: 
0027:     		sqlString = "SELECT * FROM mmdraftpicks WHERE ID = " & DraftPickID
0028: 							
0029: 			rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0030: 
0031: 			rs("PickNumber").Value = NextPickNumber
0032: 			rs("RegNumber").Value = PickRegNumber
0033: 
0034: 			rs.Update
0035: 
0036: '===================================================================================
0037: 
0038: 
0039: TotPicksMade = 0
0040: 
0041: 
0042:     		Set rs = Server.CreateObject("ADODB.Recordset")
0043: 
0044:     		sqlString = "SELECT * FROM mmdraftpicks WHERE Season = " & Season &  " AND GroupID = '" & GroupID & "' AND RegNumber <> '' "
0045: 							
0046: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0047: 
0048: 			Do Until rs.EOF
0049:             TotPicksMade = TotPicksMade + 1
0050:             rs.MoveNext
0051: 			Loop
0052: 
0053: NextPick = TotPicksMade + 1
0054: 
0055: Set rs = Server.CreateObject("ADODB.Recordset")
0056: 
0057:     		sqlString = "SELECT * FROM mmdraftorder WHERE Season = " & Season &  " AND GroupID = '" & GroupID & "' " & _
0058: 			             "AND DraftPick = " & NextPick
0059: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0060:             If rs.EOF Then
0061: 			RegNumber = "0"
0062: 			Else
0063: 			RegNumber = rs("RegNumber").Value
0064: 			End If
0065: 
0066: Response.Redirect("DraftSelectPicks.asp?GroupID=" & GroupID & "&PickRegNumber=" & RegNumber)
0067: 
0068: '===================================================================================
0069: 
0070: 
0071: 
0072: 			Response.Redirect("DraftSelectPicks.asp?GroupID=" & GroupID & "&PickRegNumber=" & PickRegNumber)
0073: 
0074: 
0075: 
0076:  
0077: %>