Count Lines in Pages
Contents of Page: PrizesList.asp
Number of Lines: 143
Last Modified: 4/20/2025 7:51:34 AM
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: 		
0010: %>
0011: <html>
0012: 
0013: <head>
0014: <title>March Madness Contest - Update Prize Values</title>
0015: <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0016: <link href="mm.css" rel="stylesheet" type="text/css">
0017: 
0018: </head>
0019: 
0020: <body bgcolor="#FFFFFF" onLoad="document.node.M1.select()">
0021: 
0022: <%
0023: 
0024: Set rs = Server.CreateObject("ADODB.Recordset")
0025: 	sqlString = "SELECT * FROM mmPrizes ORDER BY Season DESC "
0026: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0027: 
0028: %>
0029: 
0030: <table cellspacing="1" border="0" cellpadding="0" width="850">
0031:  
0032: <tr><td class="normbold" colspan="2"><a href="editprizes.asp?ID=0">Add New</a></td>
0033: <td class="normbold" colspan="10" align="right"><a href="displaymenu.asp?parent=35&title=Wrap%20up%20activities">Initial Set Up Menu</a></td>
0034: <td class="normbold" colspan="10" align="right"><a href="displaymenu.asp?parent=15&title=Wrap%20up%20activities">Wrap Up Menu</a></td>
0035: 
0036:   </tr>
0037:   <tr bgcolor="#ff9900" height="25">
0038: 
0039:     <td class="normbold" align="center" width="4%">Season</td>
0040:     <td class="normbold" align="center" width="4%">Sel.<br>Sunday</td>	
0041:     <td class="small" align="center" width="4%">Participants</td>
0042:     <td class="normbold" align="center" width="4%">Main<br>Entries</td>
0043:     <td class="normbold" align="center" width="4%">M1</td>
0044:     <td class="normbold" align="center" width="4%">M2</td>
0045:     <td class="normbold" align="center" width="4%">M3</td>
0046:     <td class="normbold" align="center" width="4%">M4</td>
0047:     <td class="normbold" align="center" width="4%">M5</td>
0048:     <td class="normbold" align="center" width="4%">MT10</td>
0049:     <td class="normbold" align="center" width="4%">S16<br>Entries</td>
0050:     <td class="normbold" align="center" width="4%">S1</td>
0051:     <td class="normbold" align="center" width="4%">S2</td>
0052:     <td class="normbold" align="center" width="4%">S3</td>
0053:     <td class="normbold" align="center" width="4%">S4</td>
0054:     <td class="normbold" align="center" width="4%">S5</td>
0055:     <td class="normbold" align="center" width="4%">ST10</td>
0056:     <td class="normbold" align="center" width="4%">B1</td>
0057:     <td class="normbold" align="center" width="4%">B2</td>
0058:     <td class="normbold" align="center" width="4%">B3</td>
0059:     <td class="normbold" align="center" width="4%">B4</td>
0060:     <td class="normbold" align="center" width="4%">B5</td>
0061:     <td class="normbold" align="center" width="4%">Main<br>Payout</td>
0062:     <td class="normbold" align="center" width="4%">S16<br>Payout</td>
0063:     <td class="normbold" align="center" width="4%">BL<br>Payout</td>
0064:     <td class="normbold" align="center" width="4%">Total<br>Payout</td>
0065:     <td class="normbold" align="center" width="5%">Profit<br><small>(95%)</td>
0066: 
0067:     </tr>
0068: <%
0069: 		Do Until rs.EOF
0070: 		Yr = rs("Season").Value
0071: 		SelSunday = rs("SelSunday").Value		
0072:         ID = rs("ID").Value
0073: 		M1 = rs("M1").Value
0074: 		M2 = rs("M2").Value
0075: 		M3 = rs("M3").Value
0076: 		M4 = rs("M4").Value
0077: 		M5 = rs("M5").Value
0078: 		MTop10 = rs("MTop10").Value
0079: 		S1 = rs("S1").Value
0080: 		S2 = rs("S2").Value
0081: 		S3 = rs("S3").Value
0082: 		S4 = rs("S4").Value
0083: 		S5 = rs("S5").Value
0084: 		STop10 = rs("STop10").Value
0085: 		B1 = rs("B1").Value
0086: 		B2 = rs("B2").Value
0087: 		B3 = rs("B3").Value
0088: 		B4 = rs("B4").Value
0089: 		B5 = rs("B5").Value
0090: 		MainEntries = rs("MainEntries").Value
0091: 		S16Entries = rs("S16Entries").Value
0092: 		participants = rs("Participants").Value
0093: 		TopMain = M1 + M2 + M3 + M4 + M5
0094: 		TotalMain =  Int((Int(( MainEntries  / 10)) - 5) * MTop10 + TopMain)
0095: 		TopS16 = S1 + S2 + S3 + S4 + S5
0096: 		TotalS16 = Int((Int((S16Entries / 10)) - 5) * STop10 + TopS16) 
0097: 		TotalBL = B1 + B2 + B3 + B4 + B5
0098: 		GrandTotal = TotalMain + TotalS16 + TotalBL + TotalProp
0099: 		Profit = ( MainEntries * 20 ) - GrandTotal
0100: 
0101: %>
0102:   <tr bgcolor="#66ff99" height="21">
0103: 
0104: <%  Profit = Cint(Profit * .95) %>
0105: 
0106:     <td class="norm" align="center" width="4%"><a href="editprizes.asp?ID=<%= ID %>"><%= Yr %></a></td>
0107: 	   <td class="norm" align="center" width="4%"><%= SelSunday %></td>
0108:     <td class="norm" align="center" width="4%"><%= Participants %></td>
0109:     <td class="norm" align="center" width="4%"><%= MainEntries %></td>
0110:     <td class="norm" align="center" width="4%"><%= M1 %></td>
0111:     <td class="norm" align="center" width="4%"><%= M2 %></td>
0112:     <td class="norm" align="center" width="4%"><%= M3 %></td>
0113:     <td class="norm" align="center" width="4%"><%= M4 %></td>
0114:     <td class="norm" align="center" width="4%"><%= M5 %></td>
0115:     <td class="norm" align="center" width="4%"><%= MTop10 %></td>
0116:     <td class="norm" align="center" width="4%"><%= S16Entries %></td>
0117:     <td class="norm" align="center" width="4%"><%= S1 %></td>
0118:     <td class="norm" align="center" width="4%"><%= S2 %></td>
0119:     <td class="norm" align="center" width="4%"><%= S3 %></td>
0120:     <td class="norm" align="center" width="4%"><%= S4 %></td>
0121:     <td class="norm" align="center" width="4%"><%= S5 %></td>
0122:     <td class="norm" align="center" width="4%"><%= STop10 %></td>
0123:     <td class="norm" align="center" width="4%"><%= B1 %></td>
0124:     <td class="norm" align="center" width="4%"><%= B2 %></td>
0125:     <td class="norm" align="center" width="4%"><%= B3 %></td>
0126:     <td class="norm" align="center" width="4%"><%= B4 %></td>
0127:     <td class="norm" align="center" width="4%"><%= B5 %></td>
0128:     <td class="norm" align="center" width="4%"><%= TotalMain %></td>
0129:     <td class="norm" align="center" width="4%"><%= TotalS16 %></td>
0130:     <td class="norm" align="center" width="4%"><%= TotalBL %></td>
0131:     <td class="norm" align="center" width="4%"><%= GrandTotal %></td>
0132:     <td class="norm" align="center" width="5%"><b><%= Profit %></b></td>
0133:     </tr>
0134: <%
0135: 
0136:       rs.MoveNext
0137: 		Loop
0138: 		rs.Close
0139: 		Set rs = Nothing
0140: %>
0141: 
0142: </body>
0143: </html>