Count Lines in Pages
Contents of Page: Winners.asp
Number of Lines: 282
Last Modified: 8/22/2018 1:33:27 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/ReturnPageSet.inc" -->
0005: <%
0006: 
0007: 	MyEMail = Request.Cookies("user")
0008: 
0009: 
0010: 	If MyEMail = "" Then Response.Redirect("login.asp")
0011: 
0012: 
0013: 
0014: 	yr = Request.QueryString("yr")
0015: 	If yr = "" Then yr = season
0016: 
0017: 
0018: '	user = Request.Cookies("user")
0019: '	If user = "" and startmakepicks = "YES" Then Response.Redirect("login.asp?from=standings.asp")
0020: 
0021: '===============================================================================
0022:   	Set rsg = Server.CreateObject("ADODB.Recordset")
0023: 	sqlString = "SELECT * FROM mmEntries " & _
0024: 			"WHERE Season = " & yr & " " & _
0025: 			"AND EmailAddress = '" & MyEMail & "'"
0026: '	rsg.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0027:     rsg.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText	  
0028: 
0029:     	
0030: 	If rsg.EOF Then
0031: '
0032:     Else	
0033: 	paid = rsg("PaidEntries").Value
0034:     Entries = rsg("NumEntries").Value
0035: 	paid2nd = rsg("Paid2ndEntries").Value
0036: 	firstname = rsg("FirstName").Value
0037: 	ShowStand = rsg("ShowStandings").Value
0038: 	MyRegNumber = rsg("RegNumber").Value
0039: 	
0040: 	rsg.Close
0041: 	set rsg = Nothing
0042:     End If
0043:     
0044: 
0045:     
0046: 	If paid < 1 and paid2nd < 1 and ShowStand = False Then 
0047: 	Response.Redirect("notpaidyet.asp?name=" & firstname)
0048: 	End If
0049: 
0050: 
0051: 	'====================================================================================
0052: 
0053: 
0054: 	Kind = Request.QueryString("Kind")
0055: 
0056: 
0057: 	yr = Request.QueryString("yr")
0058: 	If yr = "" Then yr = season
0059: 
0060: 
0061: 	
0062: 	Set rsp = Server.CreateObject("ADODB.Recordset")
0063: 	sqlString = "SELECT * FROM mmPrizes " & _
0064: 			"WHERE Season = " & season & " "
0065: 
0066: 	rsp.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0067: 
0068: 	
0069: 	
0070: 
0071: 	Set rs = Server.CreateObject("ADODB.Recordset")
0072: 
0073: If Kind = "BOTH" Then
0074: 
0075: 	sqlString = "SELECT * FROM mmTop10" & _
0076: 			" WHERE Season = " & yr & " " & _
0077: 			" ORDER BY Name, Contest" 
0078: 
0079: Else
0080: 
0081: 	sqlString = "SELECT * FROM mmTop10" & _
0082: 			" WHERE Season = " & yr & " " & _
0083: 			" ORDER BY Contest, Rank" 
0084: 
0085: End If 
0086: '   Response.Write(sqlString)			
0087: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0088: 	totreg = 0
0089:    totentries = 0
0090:    totmade = 0
0091: 
0092: '   Response.Write("User=" & user & "+" & MyEMail)
0093: %>
0094: <html>
0095: 
0096: <head>
0097: <title>March Madness - Top 10% Standings</title>
0098: <link href="mm.css" rel="stylesheet" type="text/css">
0099: </head>
0100: 
0101: <body bgcolor="#ffffff">
0102: 
0103: <% 
0104: 
0105: tablewidth = 500
0106: 
0107: 
0108: 
0109: %>
0110: 
0111: <table cellspacing="1" border="0" cellpadding="3" width="<%= tablewidth %>">
0112:   <tr>    <td width="500" height="6" colspan="8" class="norm" align="center">
0113: <% If RESULTS_FINAL = "YES" Then %>
0114: <big><big><%= Season %> March Madness Contest Winners<br></td>
0115: <% Else %>
0116: <big><b>*** Temporary ***</b> (Based on current standings)<br></td>
0117: <% End If %>
0118:   </tr>
0119: 
0120:   <tr bgcolor="#99ff66">
0121:     <td class="norm" align="center" height="22">Sort By<br><a href="Winners.asp">Contest</a></td>
0122:     <td class="norm" align="center">Rank</td>
0123:     <td class="norm" align="left" height="19"><a href="Winners.asp?Kind=BOTH">Sort by Name</a></td>
0124:     <td class="norm" align="center" height="19">City, St</td>
0125:     <td class="norm" align="center" height="19">Prize<br>Amount</td>
0126: 
0127: <%
0128: LastReg = ""
0129: LastKind = ""
0130: GrandTotal = 0
0131: 		Do Until rs.EOF
0132: 		PicksID = rs("PicksID").value
0133: TotalAmount = rs("TotalAmt").Value 
0134: Top10Amt = rs("Top10Amt").Value
0135: MyKind = rs("Contest").Value
0136: Rank = rs("Rank").Value
0137:    RegNumber = rs("RegNumber").Value
0138: 
0139: If Kind = "BOTH" Then
0140: 	If LastReg = "" Then
0141: 		LastReg = RegNumber
0142: 	End If
0143: 	If LastReg <> RegNumber Then
0144: 	
0145: %>
0146: <tr height="10"><td height="10">-</td></tr>
0147: <%	LastReg = RegNumber 
0148:     End If
0149: Else
0150: 	If LastKind = "" Then
0151: 		LastKind = MyKind
0152: 	End If
0153: 	If LastKind <> Mykind Then
0154: 	
0155: %>
0156: <tr height="10"><td height="10">-</td></tr>
0157: <%	LastKind = MyKind
0158: End if
0159: 
0160: 
0161:  End If 
0162: 'End If
0163: 					
0164: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0165: 	sqlString = "SELECT * FROM MY4_Master " & _
0166: 							"WHERE RegNumber = '" & RegNumber & "' " 
0167: 	rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0168: 	If rsm.EOF Then
0169: 	
0170: 	Else
0171:  			City = rsm("City").Value
0172:  			Address = rsm("Address").Value 			
0173:  			State = rsm("State").Value
0174:           Zip = rsm("Zip").Value
0175:  			FirstName = rsm("FirstName").Value
0176:  			LastName = rsm("LastName").Value
0177: '		AmountDonatedToCOH =rsm("AmountDonatedToCOH").Value
0178:            EmailAddress = rsm("EmailAddress").Value
0179:  			FullName = FirstName & " " & LastName
0180: 
0181: 		rsm.Close
0182: 		Set rsm = Nothing	
0183:      End If
0184: 		
0185: 
0186:  top5amt = rs("Top5Amt").Value 
0187: 
0188:  If MyKind = "MC" Then
0189: 
0190:  TotalAmount = rsp("MTop10").Value
0191:  
0192:  	Select Case Rank
0193: 			Case 1
0194: 				TotalAmount = rsp("M1").Value
0195: 			Case 2
0196: 				TotalAmount = rsp("M2").Value
0197: 			Case 3
0198: 				TotalAmount = rsp("M3").Value
0199: 			Case 4
0200: 				TotalAmount = rsp("M4").Value
0201: 			Case 5
0202: 				TotalAmount = rsp("M5").Value
0203: 		End Select
0204: 
0205: ElseIf MyKind = "S16" Then
0206: 
0207:  TotalAmount = rsp("STop10").Value
0208:  
0209:  	Select Case Rank
0210: 			Case 1
0211: 				TotalAmount = rsp("S1").Value
0212: 			Case 2
0213: 				TotalAmount = rsp("S2").Value
0214: 			Case 3
0215: 				TotalAmount = rsp("S3").Value
0216: 			Case 4
0217: 				TotalAmount = rsp("S4").Value
0218: 			Case 5
0219: 				TotalAmount = rsp("S5").Value
0220: 		End Select
0221: 
0222: Else
0223: 
0224:  	Select Case Rank
0225: 			Case 1
0226: 				TotalAmount = rsp("B1").Value
0227: 			Case 2
0228: 				TotalAmount = rsp("B2").Value
0229: 			Case 3
0230: 				TotalAmount = rsp("B3").Value
0231: 			Case 4
0232: 				TotalAmount = rsp("B4").Value
0233: 			Case 5
0234: 				TotalAmount = rsp("B5").Value
0235: 		End Select
0236: 
0237: 
0238: 	End If
0239: 
0240: 		If Top10Amt <> 0 Then
0241: 	TotalAmount = Top10Amt
0242: 	End If
0243: 
0244: 
0245: If MyKind = "MC" Then
0246: 	KindName = "Main Contest"
0247: ElseIf MyKind = "S16" Then
0248: 	KindName = "Sweet 16" 
0249: Else
0250: 	KindName = "Biggest Loser"
0251: End If
0252: 
0253:  %>
0254:   </tr>
0255: 
0256: 	    <td class="norm" align="left" ><%= KindName  %></td>
0257: 
0258:     <td class="norm" align="Right" ><%= rs("Rank").Value %></td>
0259:     <td class="norm" align="left" ><%= FullName %></td>
0260:     <td class="norm" align="left" ><%= City %>, <%= State %> </td>
0261:     <td class="norm" align="right" ><b><%=  TotalAmount %></a></td>
0262: 
0263:   </tr>
0264: <%	
0265: 'End If
0266: 
0267:       rs.MoveNext
0268: 		Loop
0269: 		If bgcolor = "#e8e8e8" Then
0270: 				bgcolor = "#ffffff"
0271: 			Else
0272: 				bgcolor = "#e8e8e8"
0273: 			End If
0274: 
0275: 		rs.Close
0276: 		Set rs = Nothing	%>
0277: 
0278: <tr> </td><td> </td><td> </td><td> </td><td> </td><td> </td>
0279: </tr>
0280: </table>
0281: </body>
0282: </html>