Count Lines in Pages
Contents of Page: MMBLWinningLabels.asp
Number of Lines: 149
Last Modified: 8/22/2018 1:32:52 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: 	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 mmBLTop10" & _
0022: 			" WHERE Season = " & yr & " " & _
0023: 			" ORDER BY ID" 
0024: '   Response.Write(sqlString)			
0025: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0026: 	totreg = 0
0027:    totentries = 0
0028:    totmade = 0
0029: %>
0030: <html>
0031: 
0032: <head>
0033: <title>March Madness - Top 10% Standings</title>
0034: <link href="mm.css" rel="stylesheet" type="text/css">
0035: </head>
0036: 
0037: <body bgcolor="#ffffff">
0038: 
0039: <% 
0040: 
0041: tablewidth = 500
0042: 
0043: If user = "jt@folga.org" Then
0044: tablewidth = 800
0045: End If
0046: 
0047: 
0048: 
0049: 
0050: %>
0051: 
0052: <table cellspacing="1" border="0" cellpadding="0" width="<%= tablewidth %>" align="center" height="53">
0053: <%
0054: 
0055: 		Do Until rs.EOF
0056: 		RegNumber = rs("RegNumber").value
0057: 		Top5Amt = rs("Top5Amt").Value
0058: 				
0059: 		Set rsm = Server.CreateObject("ADODB.Recordset")
0060: 	sqlString = "SELECT * FROM MY4_Master " & _
0061: 							"WHERE RegNumber = '" & RegNumber & "' " 
0062: 	rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0063: 	If rsm.EOF Then
0064: 	
0065: 	Else
0066:  			City = rsm("City").Value
0067:  			Address = rsm("Address").Value 			
0068:  			State = rsm("State").Value
0069:           Zip = rsm("Zip").Value
0070:  			FirstName = rsm("FirstName").Value
0071:  			LastName = rsm("LastName").Value
0072: '		AmountDonatedToCOH =rsm("AmountDonatedToCOH").Value
0073:           PayPalEmailAddress = rsm("PayPalEmailAddress").Value
0074:  			FullName = FirstName & " " & LastName
0075: 
0076: 		rsm.Close
0077: 		Set rsm = Nothing	
0078:      End If
0079: 		
0080: 			If bgcolor = "#e8e8e8" Then
0081: 				bgcolor = "#ffffff"
0082: 			Else
0083: 				bgcolor = "#e8e8e8"
0084: 			End If
0085: 
0086: 			totreg = totreg + 1
0087: If AmountDonatedToCOH > 0 Then	
0088: PayOutAmount = TotalAmount - AmountDonatedToCOH
0089: Else
0090: PayOutAmount = TotalAmount
0091: End If
0092: 
0093: 	%>
0094: <% top5amt = rs("Top5Amt").Value 
0095: 
0096:  	Select Case totreg
0097: 			Case 1
0098: 				TotalAmount = rsp("B1").Value
0099: 			Case 2
0100: 				TotalAmount = rsp("B2").Value
0101: 			Case 3
0102: 				TotalAmount = rsp("B3").Value
0103: 			Case 4
0104: 				TotalAmount = rsp("B4").Value
0105: 			Case 5
0106: 				TotalAmount = rsp("B5").Value
0107: 		End Select
0108: 
0109: %>
0110: 
0111:   <tr>
0112: 
0113: 
0114:       <td></td>
0115: 
0116: <% OnBehalfOf = FirstName & " " & LastName %>
0117: <tr><td width="80">&nbsp;</td></tr>
0118: <tr><td>&nbsp;</td>
0119: 
0120: 	   <td class="norm" width="500"><b>Congratulations, you are a winner!</b><br>
0121: 	   You finished in the top 5 of the Biggest Losers contest.&nbsp;&nbsp;&nbsp;You won: <b>$<%= TotalAmount %></b><br>
0122: 	   Thanks once again for participating and choosing to make a difference.
0123: </tr>
0124: <tr><td>&nbsp;</td></tr>
0125: <tr><td>&nbsp;</td></tr>
0126: <tr><td>&nbsp;</td></tr>
0127: <tr><td>&nbsp;</td></tr>
0128: 
0129: 
0130:  <tr>
0131:       <td>&nbsp;</td><td  class="normbold" align="left"><big><%= OnBehalfOf %><br><%= Address %><br><%= City %>,&nbsp;<%= State %>&nbsp;&nbsp;&nbsp; <%= Zip %></big></td></tr>
0132: <tr><td>&nbsp;</td></tr>
0133: <tr><td>&nbsp;</td></tr>
0134: <tr> <td>&nbsp;</td></tr>
0135: <tr> <td>&nbsp;</td></tr>
0136: <tr> <td>&nbsp;</td></tr>
0137: <tr><td>=</td></tr>
0138: 
0139: 
0140: <%	   
0141:       rs.MoveNext
0142: 		Loop
0143:        
0144: 		rs.Close
0145: 		Set rs = Nothing		
0146: %>
0147: </table>
0148: </body>
0149: </html>