Count Lines in Pages
Contents of Page: DraftParticipants.asp
Number of Lines: 115
Last Modified: 3/3/2023 5:58:16 PM
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: RoundNo = Request.Querystring("RoundNo")
0012: 
0013: If GroupID = "" Then GroupID = 1
0014: If RoundNo = "" Then RoundNo = 6
0015: 
0016: %>
0017: 
0018: <html>
0019: 
0020: <head>
0021: <meta name="viewport" content="width=device-width">
0022: <link href="mm.css" rel="stylesheet" type="text/css">
0023: <title>March Madness - Draft Participants</title>
0024: <script language="JavaScript" type="text/javascript">
0025: 		function ResetDraftBoard(GroupID)	{
0026: 			if (!confirm("Are you sure you want to Reset the Draft Board?"))	{
0027: 				return;
0028: 			}
0029: 			window.location = "DraftBoardSetup.asp?GroupID="+GroupID;
0030: 		}
0031: 	</script>
0032: <base target="_self">
0033: </head>
0034: <table cellspacing="1" border="0" cellpadding="2" width="400" >
0035: <tr><td class="normbold" colspan="2"><a href="DraftParticipantEdit.asp?GroupID=<%= GroupID %>&ID=0">Add New</a>&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;<a href="DraftParticipantsOrderAssign.asp?GroupID=<%= GroupID %>">Draw Draft Order</a>
0036: &nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;&nbsp;<a href="DraftParticipants.asp?GroupID=<%= GroupID %>">Refresh</a>
0037: <td>
0038: <td class="norm" colspan="2"><%= season %> - <%= GroupID %></td>
0039: </tr>
0040: <tr>
0041: <td width="20%" class="norm">Reg#</td>
0042: <td width="50%" class="norm">Name</td>
0043: <td width="10%" class="norm">Draft<br>Order</td>
0044: <td width="20%" class="norm"></td>
0045: </tr>
0046: <%
0047: 
0048: 		Set rsd = Server.CreateObject("ADODB.Recordset")
0049: 
0050:     	sqlString = "SELECT * FROM mmdraft WHERE Season = " & Season & " AND GroupID = "	& GroupID & " ORDER BY GroupID, DraftOrder"	
0051: 							
0052: 		rsd.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0053: 
0054: 		Do Until rsd.EOF
0055: 
0056: 
0057: 			ID = rsd("ID").Value		
0058: 			RegNumber = rsd("RegNumber").Value
0059: 			GroupID = rsd("GroupID").Value
0060: 			DraftOrder = rsd("DraftOrder").Value
0061: 			LastName = rsd("LastName").Value
0062: 			FirstName = rsd("FirstName").Value
0063: 			Random = rsd("Random").Value
0064: 			
0065: 			If LastName = "" Then
0066: 
0067: 
0068: 			Set rsm = Server.CreateObject("ADODB.Recordset")
0069: 
0070:     		sqlString = "SELECT * FROM MY4_Master WHERE RegNumber = '" & RegNumber & "'"
0071: '	Response.Write("<br>" & sqlString)						
0072: 			rsm.Open sqlString, conn2, adOpenStatic, adLockReadOnly, adCmdText	
0073: 
0074: 			If Not rsm.EOF Then
0075: 
0076: 			LastName = rsm("LastName").Value
0077: 			FirstName = rsm	("FirstName").Value
0078: 
0079: 			rsm.Close
0080: 
0081: 			Else
0082: 
0083: 			LastName = "???"
0084: 			FirstName = "???"
0085: 
0086: 			End If
0087: 
0088: 			End If
0089: 
0090: %>
0091: <tr>
0092: <td class="norm"><a href="DraftParticipantEdit.asp?ID=<%= ID %>"><big><%= RegNumber %></a></td>
0093: <td class="norm"><big><%= FirstName %>&nbsp;<%= LastName %></td>
0094: 
0095: <td class="norm"><big><b><%= DraftOrder %></td>
0096: <td class="norm"><font color="#FFFFF"><%= Random %></td>
0097: <td class="norm"><a href="DraftParticipantDelete.asp?GroupID=<%= GroupID %>&ID=<%= ID %>">Del?</a></td>
0098: </tr>
0099: 
0100: <%
0101: 		rsd.MoveNext
0102: 		Loop
0103: 
0104: 		
0105: %>		
0106: <tr><td class="norm" colspan="2"><br><br><a href="displaymenu.asp?parent=90">Return to Menu</a></td>
0107: <td class="norm" colspan="2"><a  href="javascript:ResetDraftBoard(<%= GroupID %>)">Reset Draft Board</a>
0108: 
0109: </tr>
0110: 
0111: 		</table>
0112: </html>
0113: 
0114: 
0115: