Count Lines in Pages
Contents of Page: MMWinningLabels.asp
Number of Lines: 296
Last Modified: 4/9/2019 8:49:26 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: 
0006: 	HidePaid = Trim(Request.QueryString("HidePaid"))	
0007: 	If StartNo = "" Then StartNo = 1
0008: user = Request.Cookies("user")
0009: 	yr = Request.QueryString("yr")
0010: 	If yr = "" Then yr = season
0011: 	
0012: 
0013: 	Set rsp = Server.CreateObject("ADODB.Recordset")
0014: 	sqlString = "SELECT * FROM mmPrizes " & _
0015: 			"WHERE Season = " & season
0016: 	rsp.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0017: 
0018: 
0019: 
0020: 	Set rs = Server.CreateObject("ADODB.Recordset")
0021: 	sqlString = "SELECT * FROM mmTop10" & _
0022: 			" WHERE Season = " & yr & " " & _
0023: 			" AND Contest <> 'PP' " & _
0024: 			" ORDER BY Name, TotalAmt DESC" 
0025: '   Response.Write(sqlString)			
0026: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0027: 	totreg = 0
0028:    totentries = 0
0029:    totmade = 0
0030: %>
0031: <html>
0032: 
0033: <head>
0034: <title>March Madness - Top 10% Standings</title>
0035: <link href="mm.css" rel="stylesheet" type="text/css">
0036: </head>
0037: 
0038: <body bgcolor="#ffffff">
0039: 
0040: <% 
0041: 
0042: tablewidth = 500
0043: 
0044: If user = "jt@folga.org" Then
0045: tablewidth = 800
0046: End If
0047: 
0048: Count = 0
0049: 
0050: 
0051: %>
0052: 
0053: <table cellspacing="1" border="0" cellpadding="0" width="<%= tablewidth %>" height="53">
0054: <%
0055: 
0056: 		Do Until rs.EOF
0057: 
0058: 
0059: 
0060: 		PicksID = rs("PicksID").value
0061: TotalAmount = rs("TotalAmt").Value 
0062: Top10Amt = rs("Top10Amt").Value
0063: RegNumber = rs("RegNumber").Value
0064: Rank = rs("Rank").Value
0065: CheckNo = Trim(rs("CheckNo").Value)
0066: 
0067: If IsNull(CheckNo) = True Then
0068: CheckNo = ""
0069: End If
0070: DonatedAmount = rs("DonatedAmount").Value
0071:           Contest = rs("Contest").Value
0072: '			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0073: '			sqlString = "SELECT * FROM mmPicks " & _
0074: '							"WHERE ID = " & PicksID 
0075: '			rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0076: '	
0077: '			emailaddr = rspicks("EmailAddress").value
0078: '			EntryName = rspicks("EntryName").Value
0079: ' 		   rsPicks.Close
0080: '			set rsPicks = Nothing
0081: '			Set rsEntries = Server.CreateObject("ADODB.Recordset")
0082: '			sqlString = "SELECT * FROM mmEntries " & _
0083: '							"WHERE EmailAddress = '" & emailaddr & "' " & _
0084: '							"AND Season = " & season & " " 
0085: '			rsEntries.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0086: '   RegNumber = rsEntries("RegNumber").Value
0087: '   		AmountDonatedToCOH =rsEntries("AmountDonatedToCOH").Value
0088: '  			rsEntries.Close
0089: '			set rsEntries = Nothing
0090: 
0091: 					
0092: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0093: 	sqlString = "SELECT * FROM MY4_Master " & _
0094: 							"WHERE RegNumber = '" & RegNumber & "' " 
0095: 	rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0096: 	If rsm.EOF Then
0097: 	
0098: 	Else
0099:  			City = rsm("City").Value
0100:  			Address = Trim(rsm("Address").Value)
0101:  			State = rsm("State").Value
0102:           Zip = rsm("Zip").Value
0103:  			FirstName = rsm("FirstName").Value
0104:  			LastName = rsm("LastName").Value
0105: 
0106: '		AmountDonatedToCOH =rsm("AmountDonatedToCOH").Value
0107:            EmailAddress = rsm("EmailAddress").Value
0108:           PayPalEmailAddress = rsm("PayPalEmailAddress").Value
0109:  			FullName = FirstName & " " & LastName
0110: 
0111: 		rsm.Close
0112: 		Set rsm = Nothing	
0113:      End If
0114: 
0115: ' Response.Write("<br>Name=" & FullName & " Address=" & Address & " DonateAmount= " & DonatedAmount & " CheckNo=" & CheckNo & "=")
0116: 
0117: If IsNull(Address) = True Then
0118: Address = ""
0119: End If
0120: 
0121:  Hideit = "N"
0122: 
0123:  If  CheckNo <> "" Then
0124:  HideIt = "Y"
0125:  End If
0126:  
0127:  If HidePaid <> "Y" Then
0128:  Hideit = "N"
0129:  End If
0130: 
0131:  If HideIt = "N" Then
0132: 
0133: Count = Count + 1
0134: 		
0135: 			If bgcolor = "#e8e8e8" Then
0136: 				bgcolor = "#ffffff"
0137: 			Else
0138: 				bgcolor = "#e8e8e8"
0139: 			End If
0140: 
0141: 			totreg = totreg + 1
0142: If AmountDonatedToCOH > 0 Then	
0143: PayOutAmount = TotalAmount - AmountDonatedToCOH
0144: Else
0145: PayOutAmount = TotalAmount
0146: End If
0147: 
0148: 	%>
0149: <% top5amt = rs("Top5Amt").Value 
0150: 
0151: If Contest = "MC" Then
0152: 
0153:  TotalAmount = rsp("MTop10").Value
0154: 
0155:  ContestName = "Main Contest"
0156:   If Rank > 5 Then
0157:  ContestPrize = "top 10%"
0158:  Else
0159:  ContestPrize = "top 5"
0160:  End If
0161:  
0162:  	Select Case Rank
0163: 			Case 1
0164: 				TotalAmount = rsp("M1").Value
0165: 			Case 2
0166: 				TotalAmount = rsp("M2").Value
0167: 			Case 3
0168: 				TotalAmount = rsp("M3").Value
0169: 			Case 4
0170: 				TotalAmount = rsp("M4").Value
0171: 			Case 5
0172: 				TotalAmount = rsp("M5").Value
0173: 		End Select
0174: 
0175: ElseIf Contest = "S16" Then
0176:  TotalAmount = rsp("STop10").Value
0177: 
0178:  
0179:  ContestName = "Sweet 16 Contest"
0180:  If Rank > 5 Then
0181:  ContestPrize = "top 10%"
0182:  Else
0183:  ContestPrize = "top 5"
0184:  End If
0185:  
0186:  	Select Case Rank
0187: 			Case 1
0188: 				TotalAmount = rsp("S1").Value
0189: 			Case 2
0190: 				TotalAmount = rsp("S2").Value
0191: 			Case 3
0192: 				TotalAmount = rsp("S3").Value
0193: 			Case 4
0194: 				TotalAmount = rsp("S4").Value
0195: 			Case 5
0196: 				TotalAmount = rsp("S5").Value
0197: 		End Select
0198: ElseIf Contest = "BL" Then
0199: 
0200: 
0201:  ContestName = "Biggest Loser Contest"
0202:  ContestPrize = "top 5"
0203: 
0204:  	Select Case Rank
0205: 			Case 1
0206: 				TotalAmount = rsp("B1").Value
0207: 			Case 2
0208: 				TotalAmount = rsp("B2").Value
0209: 			Case 3
0210: 				TotalAmount = rsp("B3").Value
0211: 			Case 4
0212: 				TotalAmount = rsp("B4").Value
0213: 			Case 5
0214: 				TotalAmount = rsp("B5").Value
0215: 		End Select
0216: 
0217: Else
0218: 
0219:  ContestName = "Proposition Bets Contest"
0220:  ContestPrize = "top 2"
0221: 
0222:  	Select Case Rank
0223: 			Case 1
0224: 				TotalAmount = rsp("P1").Value
0225: 			Case 2
0226: 				TotalAmount = rsp("P2").Value
0227: 			Case 3
0228: 				TotalAmount = rsp("P3").Value
0229: 
0230: 		End Select
0231: 
0232: End If
0233: 
0234: If DonatedAmount > 0 Then
0235: Donated = "(Donated - " & DonatedAmount & ")"
0236: Else
0237: Donated = ""
0238: End If
0239: 
0240: 	If Top10Amt <> 0 Then
0241: 	TotalAmount = Top10Amt
0242: 	End If
0243: 
0244: 
0245: 
0246: %>
0247: 
0248:   <tr>
0249: 
0250: 
0251:       <td></td>
0252: 
0253: <% OnBehalfOf = FirstName & " " & LastName %>
0254: <tr><td class="smalldark" valign="bottom">5</td>
0255: <tr><td width="50"class="smalldark">6</td></tr>
0256: 
0257: <tr><td class="smalldark">7</td>
0258: 
0259: <tr><td class="smalldark">8</td>
0260: <tr><td class="smalldark">9 - <%= Count %></td>
0261: <tr><td>&nbsp;</td>
0262: 
0263: 
0264: 	   <td class="norm" width="500"><b>Congratulations <%= FirstName %>, you finished in the money!</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%= EmailAddress %><br><br>
0265: 
0266: 	   You finished in the <b><%= ContestPrize %></b> of the <b><%= ContestName %></b>.&nbsp;&nbsp;&nbsp;You won: <b>$<%= TotalAmount %>&nbsp;&nbsp;<%= Donated %></b><br>
0267: 	   Thanks once again for participating and choosing to make a difference.
0268: </tr>
0269: <tr><td>&nbsp;</td>
0270: <tr><td>&nbsp;</td></tr>
0271: 
0272: <tr><td>&nbsp;</td></tr>
0273: <tr><td>&nbsp;</td></tr>
0274: <tr> <td>&nbsp;</td></tr>
0275: <tr><td>&nbsp;</td>
0276: <tr> <td>&nbsp;</td></tr>
0277:  <tr>
0278:       <td>&nbsp;</td><td  class="normbold" align="left"><big><%= OnBehalfOf %><br><%= Address %><br><%= City %>,&nbsp;<%= State %>&nbsp;&nbsp;&nbsp; <%= Zip %></big></td></tr>
0279: <tr><td class="smalldark">1</td>
0280: <tr><td class="smalldark">2</td>
0281: 
0282: <tr><td class="smalldark">3</td>
0283: <tr><td class="smalldark">4</td>
0284: 
0285: 
0286: <%	   
0287:      End If
0288:       rs.MoveNext
0289: 		Loop
0290:        
0291: 		rs.Close
0292: 		Set rs = Nothing		
0293: %>
0294: </table>
0295: </body>
0296: </html>