Count Lines in Pages
Contents of Page: halloffame.asp
Number of Lines: 88
Last Modified: 2/16/2025 3:47:13 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 
0008: 	Set rs = Server.CreateObject("ADODB.Recordset")
0009: 	sqlString = "SELECT * FROM mmHistory " & _
0010: 			"ORDER BY Season DESC, Rank"
0011: 			rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0012: 	LastSeason = ""
0013: %>
0014: 
0015: <html>
0016: 
0017: <head>
0018: 	<title>March Madness - Hall Of Fame</title>
0019: 	<link href="mm.css" rel="stylesheet" type="text/css">
0020: 
0021: </head>
0022: 
0023: <body bgcolor="#ffffff">
0024: 
0025: <table cellspacing="1" border="0" cellpadding="0" width="650" >
0026: 	<tr>
0027: 		<td class="bigblue" colspan="14" height="30" align="center">
0028: 			Hall Of Fame -  Past winners by Season
0029: 		</td>
0030: 	</tr>
0031: 	<tr bgcolor="#577fbe" height="30">
0032: 		<td class="norm" align="center" width="5%">SEASON</td>
0033: 		<td class="norm" align="center" width="5%">RNK</td>
0034: 		<td class="norm" align="center" width="25%">NAME</td>
0035: 		<td class="norm" align="center" width="25%">FROM</td>
0036: 		<td class="norm" align="center" width="5%">PTS</td>
0037: 		<td class="norm" align="center" width="18%">CHAMPION</td>
0038: 		<td class="norm" align="center" width="17%">RUNNER-UP</td>
0039: 
0040: <%	bgcolor = "#e8e8e8"
0041: 		Do Until rs.EOF
0042: 		   ranking = rs("Rank").Value
0043:            Season = rs("Season").Value
0044: 			If bgcolor = "#e8e8e8" Then
0045: 				bgcolor = "#ffffff"
0046: 			Else
0047: 				bgcolor = "#e8e8e8"
0048: 			End If	
0049:             If LastSeason <> "" Then
0050:             If LastSeason <> Season Then %>
0051:             <tr><td>-</td></tr>
0052:             <%
0053:             LastSeason = Season
0054:             End If
0055:             End If
0056:             LastSeason = Season
0057: 			
0058: 		
0059: 			
0060: RunnerUps = rs("RunnerUp").Value
0061: If RunnerUps <> "" Then
0062: RunnerUp = Split(RunnerUps,"/")
0063: SecondPlace = RunnerUP(0)
0064: Else
0065: SecondPlace = ""
0066: End If
0067: 			
0068: 			%>
0069: 	<tr bgcolor="<%= bgcolor %>">
0070: 			<td class="norm" align="center" ><%= Season %></td>
0071: 		<td class="norm" align="center"><%= ranking %></td>
0072: <% If yr < 2004 Then %>		
0073: 		<td class="norm" align="left"><%= rs("Name").Value %></td>
0074: <% Else %>		
0075: 				<td class="norm" align="left"><a href="displaypicks2.asp?year=<%= yr %>&pick=<%= rs("PicksId").Value %>" class="normUndl"><%= rs("Name").Value %></a></td>
0076: <% End If %>				
0077: 		<td class="norm" align="left"><%= rs("City").Value %></td>
0078: 		<td class="norm" align="center"><%= rs("Pts").Value %></td>
0079: 		<td class="norm" align="center"><%= rs("Champion").Value %></td>
0080: 		<td class="norm" align="left"><%=  SecondPlace  %></td>
0081: 	</tr>
0082: <%		rs.MoveNext
0083: 		Loop
0084: 		rs.Close
0085: 		Set rs = Nothing	%>
0086: </table>
0087: </body>
0088: </html>