Count Lines in Pages
Contents of Page: MMS16WinningLabels.asp
Number of Lines: 173
Last Modified: 8/22/2018 1:32:56 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <%
0005: 
0006: 	StartNo = Trim(Request.QueryString("StartNo"))	
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: 	
0014: 	Set rsp = Server.CreateObject("ADODB.Recordset")
0015: 	sqlString = "SELECT * FROM mmPrizes " & _
0016: 			"WHERE Season = " & season
0017: 	rsp.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0018: 
0019: 	
0020: 
0021: 	Set rs = Server.CreateObject("ADODB.Recordset")
0022: 	sqlString = "SELECT * FROM mm2ndTop10" & _
0023: 			" WHERE Season = " & yr & " " & _
0024: 			" ORDER BY ID" 
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: 
0049: 
0050: 
0051: %>
0052: 
0053: <table cellspacing="1" border="0" cellpadding="0" width="<%= tablewidth %>" align="center" height="53">
0054: <%
0055: 
0056: 		Do Until rs.EOF
0057: 		PicksID = rs("PicksID").value
0058: TotalAmount = rs("TotalAmt").Value 
0059: Top10Amt = rs("Top10Amt").Value
0060: 			Set rsPicks = Server.CreateObject("ADODB.Recordset")
0061: 			sqlString = "SELECT * FROM mm2ndPicks " & _
0062: 							"WHERE ID = " & PicksID 
0063: 			rsPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0064: 	
0065: 			emailaddr = rspicks("EmailAddress").value
0066: 			EntryName = rspicks("EntryName").Value
0067:  		   rsPicks.Close
0068: 			set rsPicks = Nothing
0069: 			Set rsEntries = Server.CreateObject("ADODB.Recordset")
0070: 			sqlString = "SELECT * FROM mmEntries " & _
0071: 							"WHERE EmailAddress = '" & emailaddr & "' " & _
0072: 							"AND Season = " & season & " " 
0073: 			rsEntries.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0074:    RegNumber = rsEntries("RegNumber").Value
0075:    		AmountDonatedToCOH =rsEntries("AmountDonatedToCOH").Value
0076:   			rsEntries.Close
0077: 			set rsEntries = Nothing
0078: 
0079: 					
0080: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0081: 	sqlString = "SELECT * FROM MY4_Master " & _
0082: 							"WHERE RegNumber = '" & RegNumber & "' " 
0083: 	rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0084: 	If rsm.EOF Then
0085: 	
0086: 	Else
0087:  			City = rsm("City").Value
0088:  			Address = rsm("Address").Value 			
0089:  			State = rsm("State").Value
0090:           Zip = rsm("Zip").Value
0091:  			FirstName = rsm("FirstName").Value
0092:  			LastName = rsm("LastName").Value
0093: '		AmountDonatedToCOH =rsm("AmountDonatedToCOH").Value
0094:           PayPalEmailAddress = rsm("PayPalEmailAddress").Value
0095:  			FullName = FirstName & " " & LastName
0096: 
0097: 		rsm.Close
0098: 		Set rsm = Nothing	
0099:      End If
0100: 		
0101: 			If bgcolor = "#e8e8e8" Then
0102: 				bgcolor = "#ffffff"
0103: 			Else
0104: 				bgcolor = "#e8e8e8"
0105: 			End If
0106: 
0107: 			totreg = totreg + 1
0108: If AmountDonatedToCOH > 0 Then	
0109: PayOutAmount = TotalAmount - AmountDonatedToCOH
0110: Else
0111: PayOutAmount = TotalAmount
0112: End If
0113: 
0114: 	%>
0115: <% top5amt = rs("Top5Amt").Value
0116: 
0117: 
0118: 
0119:  TotalAmount = rsp("STop10").Value
0120:  
0121:  	Select Case totreg
0122: 			Case 1
0123: 				TotalAmount = rsp("S1").Value
0124: 			Case 2
0125: 				TotalAmount = rsp("S2").Value
0126: 			Case 3
0127: 				TotalAmount = rsp("S3").Value
0128: 			Case 4
0129: 				TotalAmount = rsp("S4").Value
0130: 			Case 5
0131: 				TotalAmount = rsp("S5").Value
0132: 		End Select
0133: 
0134: 
0135: %>
0136: 
0137:   <tr>
0138: 
0139: 
0140:       <td></td>
0141: 
0142: <% OnBehalfOf = FirstName & " " & LastName %>
0143: <tr><td width="80">&nbsp;</td></tr>
0144: <tr><td>&nbsp;</td>
0145: 
0146: 	   <td class="norm" width="500"><b>Congratulations, you are a winner!</b><br>
0147: 	   You finished in the top 10% of the Sweet 16 contest.&nbsp;&nbsp;&nbsp;You won: <b>$<%= TotalAmount %></b><br>
0148: 	   Thanks once again for participating and choosing to make a difference.
0149: </tr>
0150: <tr><td>&nbsp;</td></tr>
0151: <tr><td>&nbsp;</td></tr>
0152: <tr><td>&nbsp;</td></tr>
0153: <tr><td>&nbsp;</td></tr>
0154: <tr><td>&nbsp;</td></tr>
0155: 
0156:  <tr>
0157:       <td>&nbsp;</td><td  class="normbold" align="left"><big><%= OnBehalfOf %><br><%= Address %><br><%= City %>,&nbsp;<%= State %>&nbsp;&nbsp;&nbsp; <%= Zip %></big></td></tr>
0158: <tr><td>&nbsp;</td></tr>
0159: <tr><td>&nbsp;</td></tr>
0160: <tr> <td>&nbsp;</td></tr>
0161: <tr><td>-</td></tr>
0162: 
0163: 
0164: <%	   
0165:       rs.MoveNext
0166: 		Loop
0167:        
0168: 		rs.Close
0169: 		Set rs = Nothing		
0170: %>
0171: </table>
0172: </body>
0173: </html>