Count Lines in Pages
Contents of Page: RegionsList.asp
Number of Lines: 77
Last Modified: 3/9/2020 12:17:18 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/ReturnPageSet.inc" -->
0005: <%
0006: 	user = Request.Cookies("user")	
0007: 	If user = "" Then Response.Redirect("login.asp?from=editprizes.asp")
0008: 	
0009: 	StartYear = Season - 3
0010: 		
0011: %>
0012: <html>
0013: 
0014: <head>
0015: <title>March Madness Contest - Update Regions</title>
0016: <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0017: <link href="mm.css" rel="stylesheet" type="text/css">
0018: 
0019: </head>
0020: 
0021: <body bgcolor="#FFFFFF" onLoad="document.node.M1.select()">
0022: 
0023: <%
0024: 
0025: Set rs = Server.CreateObject("ADODB.Recordset")
0026: 	sqlString = "SELECT * FROM mmRegionals WHERE Season > " & StartYear & " ORDER BY Season DESC, Region"
0027: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0028: 
0029: %>
0030: 
0031: <table cellspacing="1" border="0" cellpadding="0" width="200">
0032:  
0033: <tr><td class="normbold"><a href="editregions.asp?ID=0">Add New</a></td>
0034:   </tr>
0035:   <tr bgcolor="#ffcc33" height="25">
0036: 
0037:     <td class="normbold" align="center" width="30%">Season</td>
0038:     <td class="normbold" align="center" width="20%">Reg#</td>
0039:     <td class="normbold" width="50%">Region Name</td>
0040: 
0041: 
0042:     </tr>
0043: <%
0044: 		Do Until rs.EOF
0045: 		Yr = rs("Season").Value
0046:         ID = rs("ID").Value
0047:         Reg = rs("Region").Value
0048: 		M1 = rs("RegionName").Value
0049: 		M2 = rs("FirstRound").Value
0050: 		M3 = rs("SecondRound").Value
0051:         If CInt(Yr) = CInt(Season) Then
0052: 		 TypeFont = "normbold"
0053: 		Else
0054: 		 TypeFont = "norm"
0055: 		End If
0056: 
0057: %>
0058:   <tr bgcolor="#ccff99" height="21">
0059: 
0060:     <td class="<%= TypeFont %>" align="center" ><a href="editregions.asp?ID=<%= ID %>"><%= Yr %></a></td>
0061:     <td class="<%= TypeFont %>" align="center" ><%= Reg %></td>
0062:     <td class="<%= TypeFont %>" align="left" ><%= M1 %></td>
0063: 
0064:     
0065:     </tr>
0066: <%
0067: 
0068:       rs.MoveNext
0069: 		Loop
0070: 		rs.Close
0071: 		Set rs = Nothing
0072: %>
0073: <tr><td></td></tr>
0074: <tr><td class="norm" colspan="2"><a href="displaymenu.asp?parent=35&title=Wrap%20up%20activities">Return</a></td></tr>
0075: </table>
0076: </body>
0077: </html>