Count Lines in Pages
Contents of Page: DraftSelectPicks.asp
Number of Lines: 325
Last Modified: 3/20/2024 2:49:42 PM
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: 
0011: user = Request.Cookies("user")
0012: 
0013: 'season = 2019
0014: 
0015: 
0016: '==============================================================
0017: 
0018: Dim Regions(5)
0019: 
0020: Set rs = Server.CreateObject("ADODB.Recordset")
0021: 	sqlString = "SELECT * FROM mmRegionals WHERE Season = " & Season & " ORDER BY Region"
0022: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0023: 	
0024: 	R = 1
0025: 	DO Until rs.EOF
0026: 	Regions(R) = rs("RegionName").Value
0027: 	R = R + 1
0028: 	rs.MoveNext
0029: 	Loop
0030: 	
0031: 	
0032: '--------------------------------------------------------------	
0033: 
0034: If PickRegNumber = ""  Then
0035: 
0036: Set rsd = Server.CreateObject("ADODB.Recordset")
0037: 
0038:     	sqlString = "SELECT * FROM mmdraft WHERE Season = " & Season & " AND  GroupID = '" & GroupID & "' AND DraftOrder = 1"
0039: 							
0040: 'Response.Write("<br>" & sqlString)
0041: 
0042: 		rsd.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0043: 
0044: 		RegNumber = rsd("RegNumber").Value
0045: 
0046: Response.Redirect("DraftSelectPicks.asp?GroupID=" & GroupID & "&PickRegNumber=" & RegNumber)
0047: 
0048: End If
0049: 
0050: 	Session("DraftGroupID") = GroupID
0051: 	Session("DraftRegNumber") = PickRegNumber
0052: 
0053: '=====================================================================================
0054: 
0055: 		Set rsd = Server.CreateObject("ADODB.Recordset")
0056: 
0057:     	sqlString = "SELECT COUNT(ID) as RegCount FROM mmdraft WHERE Season = " & Season & " AND GroupID = '" & GroupID & "'"				
0058: 
0059: 'Response.Write("<br>" & sqlString)
0060: 							
0061: 		rsd.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0062: 
0063: 		RegCount = rsd("RegCount").Value
0064: 
0065: 
0066: 		TableWidth = 120 * CInt(RegCount)
0067: 
0068: 
0069: '====================================================================================
0070: 
0071: 
0072: 
0073: 
0074: 
0075: %>
0076: <html>
0077: 
0078: <head>
0079: <title>March Madness - Draft Pick Selections</title>
0080: <link href="mm.css" rel="stylesheet" type="text/css">
0081: </head>
0082: <table cellspacing="1" border="0" cellpadding="5" width="800" >
0083: <tr><td class="norm" colspan="3"><%= Season %> - <%= GroupID %></b></td></tr>
0084: <tr><td>
0085: <table cellspacing="1" border="1" cellpadding="5" width="800" align="center">
0086: 
0087: <tr bgcolor="#00cc00" height="25">
0088: <%
0089: 
0090: 		Set rsd = Server.CreateObject("ADODB.Recordset")
0091: 
0092:     	sqlString = "SELECT * FROM mmdraft WHERE Season = " & Season & " AND GroupID = '" & GroupID & "' ORDER BY DraftOrder"				
0093: 
0094: 'Response.Write("<br>" & sqlString)
0095: 							
0096: 		rsd.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0097: 		
0098: 		Do Until rsd.EOF
0099: 
0100: 			RegNumber = rsd("RegNumber").Value
0101: 
0102: 			Set rsm = Server.CreateObject("ADODB.Recordset")
0103: 
0104:     		sqlString = "SELECT * FROM MY4_Master WHERE RegNumber = '" & RegNumber & "'"				
0105: 							
0106: 			rsm.Open sqlString, conn2, adOpenStatic, adLockReadOnly, adCmdText	
0107: 
0108: 			LastName = rsm("LastName").Value
0109: 			FirstName = rsm	("FirstName").Value
0110: 
0111: If PickRegNumber = RegNumber Then
0112: bgcolor = "#00cc00"
0113: Else
0114: bgcolor = "#ffffff"
0115: End If
0116: 
0117: %>
0118: <td bgcolor="<%= bgcolor %>" class="norm" width="130" valign="center" align="center"><b><big><a style="text-decoration:none" href="DraftSelectPicks.asp?GroupID=<%= GroupID %>&PickRegNumber=<%= RegNumber %>"><%= FirstName %>
0119: 
0120: </td>
0121: <%
0122: 		rsd.MoveNext
0123: 		Loop
0124: 
0125: %>
0126: </tr>
0127: </table>
0128: <table cellspacing="1" border="1" cellpadding="5" width="800" >
0129: <tr>
0130: 
0131: <%
0132: 		Set rsd = Server.CreateObject("ADODB.Recordset")
0133: 
0134:  '   	sqlString = "SELECT * FROM mmdraft WHERE GroupID = '" & GroupID & "' ORDER BY DraftOrder"				
0135:     	sqlString = "SELECT * FROM mmdraft WHERE Season = " & Season & " AND GroupID = '" & GroupID & "' ORDER BY DraftOrder"	
0136: 
0137: 'Response.Write("<br>" & sqlString)
0138: 		
0139: 		rsd.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0140: 
0141: 		Do Until rsd.EOF
0142: 
0143: %>
0144: <td class="norm" width="130">&nbsp;<br>
0145: <%
0146: 			RegNumber = rsd("RegNumber").Value
0147: 
0148: 			Set rs = Server.CreateObject("ADODB.Recordset")
0149: 
0150:     		sqlString = "SELECT * FROM mmdraftpicks WHERE Season = " & Season & " AND GroupID = '" & GroupID & "' AND RegNumber = '" & RegNumber & "' ORDER BY PickNumber, TeamID"
0151: 'Response.Write("<br>" & sqlString)							
0152: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0153: 
0154: PKMade = 0
0155: 
0156: 			Do Until rs.EOF
0157: 			
0158: 			TeamName = rs("TeamName").Value
0159: 			Seed     = rs("Seed").Value
0160: 			ID    = rs("ID").Value
0161: 			TeamID = rs("TeamID").Value
0162: 			TeamRegion = left(TeamID,1)
0163: 			If TeamRegion = "A" Then
0164: 			RegionKey = Regions(1)
0165: 			ElseIf TeamRegion = "B" Then
0166: 			RegionKey = Regions(2)
0167: 			ElseIf TeamRegion = "C" Then
0168: 			RegionKey = Regions(3)
0169: 			ElseIf TeamRegion = "D" Then
0170: 			RegionKey = Regions(4)
0171: 			End If
0172: 			
0173: 
0174: %><b><a style="text-decoration:none" href="DraftSelectPicksDelete.asp?ID=<%= ID %>"><%= Left(RegionKey,1) %> - <%= TeamName %></b> (<%= Seed %>)</a><br><br>
0175: <%
0176: 
0177: PKMade = PKmade + 1
0178:             rs.MoveNext
0179: 			Loop
0180: 
0181: %><BR>
0182: Picks Made: <%= PKMade %> </td>
0183: 
0184: <%
0185:          rsd.MoveNext
0186: 		 Loop
0187: %>
0188: </tr>
0189: </table>
0190: </td>
0191: </tr>
0192: <tr>
0193: <td>
0194: <table cellspacing="1" border="1" cellpadding="5" width="700" align="center">
0195: <tr>
0196: <% 
0197: 
0198: Set rs = Server.CreateObject("ADODB.Recordset")
0199: 	sqlString = "SELECT * FROM mmRegionals WHERE Season = " & Season & " ORDER BY Region"
0200: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0201: '	Response.Write("<br>" & sqlString)
0202: 	Do Until rs.EOF
0203: 
0204: 		RegionName = rs("RegionName").Value
0205: 
0206: 
0207: %>
0208: <td class="norm" width="25%" valign="top" align="center"><big><b><%= RegionName %></td>
0209: 
0210: <%
0211: 
0212:             rs.MoveNext
0213: 			Loop
0214: %>
0215: </tr>
0216: <tr>
0217: <td class="norm" width="25%" valign="top">
0218: <%
0219: 			Set rs = Server.CreateObject("ADODB.Recordset")
0220: 
0221:     		sqlString = "SELECT * FROM mmdraftpicks WHERE Season = " & Season & " AND GroupID = " & GroupID & " AND TeamID LIKE 'A%' AND RegNumber = '0' ORDER BY Seed"				
0222: '	Response.Write("<br>" & sqlString)						
0223: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0224: 
0225: 			Do Until rs.EOF
0226: 			
0227: 			ID = rs("ID").Value
0228: 			TeamName = rs("TeamName").Value
0229: 			Seed     = rs("Seed").Value
0230: 
0231: If PickRegNumber <> "0" Then %>
0232: <br>	<b><a style="text-decoration:none" href="DraftSelectPicksPost.asp?GroupID=<%= GroupID %>&PickRegNumber=<%= PickRegNumber %>&DraftPickID=<%= ID %>"><%= TeamName %></b> (<%= Seed %>)</a><br>
0233: <% Else %>
0234: <br><b><%= TeamName %></b> (<%= Seed %>)<br>
0235: <% End If %>
0236: 
0237: <%
0238:             rs.MoveNext
0239: 			Loop
0240: 
0241: %>
0242: </td>
0243: <td class="norm" width="25%" valign="top">
0244: <%
0245: 			Set rs = Server.CreateObject("ADODB.Recordset")
0246: 
0247:     		sqlString = "SELECT * FROM mmdraftpicks WHERE Season = " & Season & " AND GroupID = " & GroupID & " AND TeamID LIKE 'B%' AND RegNumber = '0' ORDER BY Seed"				
0248: '	Response.Write("<br>" & sqlString)						
0249: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0250: 
0251: 			Do Until rs.EOF
0252: 			
0253: 			ID = rs("ID").Value
0254: 			TeamName = rs("TeamName").Value
0255: 			Seed     = rs("Seed").Value
0256: 
0257: If PickRegNumber <> "0" Then %>
0258: <br>	<b><a style="text-decoration:none" href="DraftSelectPicksPost.asp?GroupID=<%= GroupID %>&PickRegNumber=<%= PickRegNumber %>&DraftPickID=<%= ID %>"><%= TeamName %></b> (<%= Seed %>)</a><br>
0259: <% Else %>
0260: <br><b><%= TeamName %></b> (<%= Seed %>)<br>
0261: <% End If %>
0262: 
0263: <%
0264:             rs.MoveNext
0265: 			Loop
0266: 
0267: %>
0268: </td>
0269: <td class="norm" width="25%" valign="top">
0270: <%
0271: 			Set rs = Server.CreateObject("ADODB.Recordset")
0272: 
0273:     		sqlString = "SELECT * FROM mmdraftpicks WHERE Season = " & Season & " AND GroupID = " & GroupID & " AND TeamID LIKE 'C%' AND RegNumber = '0' ORDER BY Seed"				
0274: '	Response.Write("<br>" & sqlString)						
0275: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0276: 
0277: 			Do Until rs.EOF
0278: 			
0279: 			ID = rs("ID").Value
0280: 			TeamName = rs("TeamName").Value
0281: 			Seed     = rs("Seed").Value
0282: If PickRegNumber <> "0" Then %>
0283: <br>	<b><a style="text-decoration:none" href="DraftSelectPicksPost.asp?GroupID=<%= GroupID %>&PickRegNumber=<%= PickRegNumber %>&DraftPickID=<%= ID %>"><%= TeamName %></b> (<%= Seed %>)</a><br>
0284: <% Else %>
0285: <br><b><%= TeamName %></b> (<%= Seed %>)<br>
0286: <% End If %>
0287: <%
0288:             rs.MoveNext
0289: 			Loop
0290: 
0291: %>
0292: </td>
0293: <td class="norm" width="25%" valign="top">
0294: <%
0295: 			Set rs = Server.CreateObject("ADODB.Recordset")
0296: 
0297:     		sqlString = "SELECT * FROM mmdraftpicks WHERE Season = " & Season & " AND GroupID = '" & GroupID & "' AND TeamID LIKE 'D%' AND RegNumber = '0' ORDER BY Seed"				
0298: '	Response.Write("<br>" & sqlString)						
0299: 			rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0300: 
0301: 			Do Until rs.EOF
0302: 			
0303: 			ID = rs("ID").Value
0304: 			TeamName = rs("TeamName").Value
0305: 			Seed     = rs("Seed").Value
0306: 
0307: If PickRegNumber <> "0" Then %>
0308: <br>	<b><a style="text-decoration:none" href="DraftSelectPicksPost.asp?GroupID=<%= GroupID %>&PickRegNumber=<%= PickRegNumber %>&DraftPickID=<%= ID %>"><%= TeamName %></b> (<%= Seed %>)</a><br>
0309: <% Else %>
0310: <br><b><%= TeamName %></b> (<%= Seed %>)<br>
0311: <% End If %>
0312: 
0313: <%
0314:             rs.MoveNext
0315: 			Loop
0316: 
0317: %>
0318: </td>
0319: </tr>
0320: <tr><td class="norm" colspan="4"><br><br><a href="displaymenu.asp?parent=90">Return to Menu</a></td></tr>
0321: </table>
0322:      
0323: <body>
0324: </body>
0325: </html>