Count Lines in Pages
Contents of Page: payout.asp
Number of Lines: 150
Last Modified: 8/22/2018 1:33:03 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 		user = Request.Cookies("user")
0008: 	yr = Request.QueryString("yr")
0009: 	If yr = "" Then yr = season
0010: 	Set rs = Server.CreateObject("ADODB.Recordset")
0011: 	sqlString = "SELECT * FROM mmTop10" & _
0012: 			" WHERE Season = " & yr & " " & _
0013: 			" ORDER BY ID" 
0014: '   Response.Write(sqlString)			
0015: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0016: 	totreg = 0
0017:    totentries = 0
0018:    totmade = 0
0019: %>
0020: 
0021: <html>
0022: 
0023: <head>
0024: 	<title>March Madness - Standings</title>
0025: 	<link href="mm.css" rel="stylesheet" type="text/css">
0026: 
0027: </head>
0028: 
0029: <body bgcolor="#ffffff">
0030: 
0031: <table cellspacing="1" border="0" cellpadding="0" width="600" align="center" height="53">
0032:   <tr>
0033: 		<td width="600" height="6" colspan="8">
0034:           <p align="center"><font face="Arial" size="2"><img src="images/clear.gif" width="1" height="4">Total Prize Fund: <% = PrizeFund %><img src="images/clear.gif" width="1" height="4"></font></p>
0035:         </td>
0036:   </tr>
0037:     <td width="30"></td>
0038:        <td width="70"><img src="images/clear.gif" width="1" height="2"></td>
0039: 		<td width="80"><img src="images/clear.gif" width="1" height="2"></td>
0040: 		<td width="120"><img src="images/clear.gif" width="1" height="2"></td>		
0041: 		<td width="80"><img src="images/clear.gif" width="1" height="2"></td>
0042: 		<td width="30"><img src="images/clear.gif" width="1" height="2"></td>
0043: 		<td width="70"><img src="images/clear.gif" width="1" height="2"></td>
0044: 		<td width="40"><img src="images/clear.gif" width="1" height="2"></td>
0045: 
0046: 
0047: 	<tr bgcolor="#577fbe">
0048: 	    <td class="small" align="center" height="25">  </td>
0049: 		<td class="small" align="center" height="25">First Name</td>
0050: 		<td class="small" align="center" height="25">Last Name</td>
0051: 		<td class="small" align="center" height="25">Address</td>
0052: 		<td class="small" align="center" height="25">City</td>
0053: 		<td class="small" align="center" height="25">St</td>
0054: 		<td class="small" align="center" height="25">Zip</a></td>
0055:        <td class="small" align="left" height="25">Total</td>
0056: 	
0057: 		
0058: <%	bgcolor = "#e8e8e8"
0059: 		Do Until rs.EOF
0060: 		PicksID = rs("ID").value
0061: 			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0062: 			sqlString = "SELECT * FROM mmPicks " & _
0063: 							"WHERE ID = " & PicksID 
0064: 			rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0065: 	
0066: 			emailaddr = rspicks("EmailAddress").value
0067: 			EntryName = rspicks("EntryName").Value
0068:  		   rsPicks.Close
0069: 			set rsPicks = Nothing
0070: 			Set rsEntries = Server.CreateObject("ADODB.Recordset")
0071: 			sqlString = "SELECT * FROM mmEntries " & _
0072: 							"WHERE EmailAddress = '" & emailaddr & "' " & _
0073: 							"AND Season = " & season & " " 
0074: 			rsEntries.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0075:  			City = rsEntries("City").Value
0076:  			State = rsEntries("State").Value
0077: 			Name = rsEntries("Name").Value
0078:  			FirstName = rsEntries("FirstName").Value
0079: 			Zip = rsEntries("Zip").Value
0080: 			Address = rsEntries("Address").Value
0081: 
0082:   			rsEntries.Close
0083: 			set rsEntries = Nothing
0084: 		
0085: 			If bgcolor = "#e8e8e8" Then
0086: 				bgcolor = "#ffffff"
0087: 			Else
0088: 				bgcolor = "#e8e8e8"
0089: 			End If
0090: 
0091: 			totreg = totreg + 1
0092: 	
0093: 	%>
0094:     <% top5amt = rs("Top5Amt").Value %>
0095: 	<tr bgcolor="<%= bgcolor %>">
0096: 	    <td class="smalldark" align="center" height="20"><%= totreg %> </td>
0097: 		<td class="smalldark" align="left" height="20"><%= FirstName %> </td>
0098: 		<td  class="smalldark" align="left" height="20"><%= Name %> </td>
0099: 		<td  class="smalldark" align="left" height="20"><%= Address %></td>
0100: 		<td  class="smalldark" align="left" height="20"><%= City %></td>
0101: 		<td  class="smalldark" align="left" height="20"><%= State %></td>
0102: 			<td  class="smalldark" align="left" height="20"><%= Zip %></td>
0103: 		<td  class="smalldark" align="right" height="20"><%= rs("TotalAmt").Value %><br></td>
0104: 	
0105: 	</tr>
0106: <%	  
0107:       rs.MoveNext
0108: 		Loop
0109: 		If bgcolor = "#e8e8e8" Then
0110: 				bgcolor = "#ffffff"
0111: 			Else
0112: 				bgcolor = "#e8e8e8"
0113: 			End If
0114: 
0115: 		rs.Close
0116: 		Set rs = Nothing	%>
0117: </table>
0118: </body>
0119: </html>
0120: 
0121: 
0122: 
0123: 
0124: 
0125: 
0126: 
0127: 
0128: 
0129: 
0130: 
0131: 
0132: 
0133: 
0134: 
0135: 
0136: 
0137: 
0138: 
0139: 
0140: 
0141: 
0142: 
0143: 
0144: 
0145: 
0146: 
0147: 
0148: 
0149: 
0150: