Count Lines in Pages

Contents of Page: MMWinnerLabel.asp Number of Lines: 234 Last Modified: 3/17/2023 1:15:04 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 	ID = Request.QueryString("ID")
0007: 
0008: 	Set rs = Server.CreateObject("ADODB.Recordset")
0009: 		sqlString = "SELECT * FROM mmTop10 WHERE ID = " & ID
0010: 
0011: 							
0012: 	   rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0013:   If rs.EOF Then
0014:   FullName = "????"
0015: 
0016:   Else
0017:       FullName = rs("Name").Value
0018:       PicksID = rs("PicksID").Value
0019: 	  Rank = rs("Rank").Value
0020: 	  TotalAmt = rs("TotalAmt").Value
0021: 	  Contest = rs("Contest").Value
0022: 	  Top10Amt = rs("Top10Amt").Value	
0023: 	  DonatedAmount = rs("DonatedAmount").Value	
0024: 	  CheckNo = rs("CheckNo").Value	
0025: 	  RegNumber = rs("RegNumber").Value		  	  
0026:           Contest = rs("Contest").Value
0027:       rs.Close
0028:       set rs = Nothing
0029:       
0030: End If
0031: 
0032: 	Set rsm = Server.CreateObject("ADODB.Recordset")
0033: 	sqlString = "SELECT * FROM MY4_Master " & _
0034: 							"WHERE RegNumber = '" & RegNumber & "' " 
0035: 	rsm.Open sqlString, conn2, adOpenDynamic, adLockOptimistic, adCmdText
0036: 	If rsm.EOF Then
0037: 	
0038: 	Else
0039:  			City = rsm("City").Value
0040:  			Address = rsm("Address").Value 			
0041:  			State = rsm("State").Value
0042:           Zip = rsm("Zip").Value
0043:  			FirstName = rsm("FirstName").Value
0044:  			LastName = rsm("LastName").Value
0045: 		AmountDonatedToCOH =rsm("AmountDonatedToCOH").Value
0046:            EmailAddress = rsm("EmailAddress").Value
0047:            PayPalEmailAddress = rsm("PayPalEmailAddress").Value
0048: 		   VenMo = rsm("VenMo").Value
0049:  			FullName = FirstName & " " & LastName
0050: 
0051: 		rsm.Close
0052: 		Set rsm = Nothing	
0053:      End If
0054: 
0055: 
0056: 	Set rsp = Server.CreateObject("ADODB.Recordset")
0057: 	sqlString = "SELECT * FROM mmPrizes " & _
0058: 			"WHERE Season = " & season
0059: 	rsp.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0060: 
0061: 
0062: If Contest = "MC" Then
0063: 
0064: StandingsPage = "standings_label.asp"
0065: 
0066:  TotalAmount = rsp("MTop10").Value
0067: 
0068:  ContestName = "Main Contest"
0069: 
0070: 	Set rspk = Server.CreateObject("ADODB.Recordset")
0071: 	sqlString = "SELECT * FROM mmpicks " & _
0072: 			"WHERE ID = " & PicksID
0073: 	rspk.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0074: 
0075: 	EntryName = Chr(34) & rspk("EntryName").Value & Chr(34)
0076:  
0077:  	Select Case Rank
0078: 			Case 1
0079: 				TotalAmount = rsp("M1").Value
0080: 			Case 2
0081: 				TotalAmount = rsp("M2").Value
0082: 			Case 3
0083: 				TotalAmount = rsp("M3").Value
0084: 			Case 4
0085: 				TotalAmount = rsp("M4").Value
0086: 			Case 5
0087: 				TotalAmount = rsp("M5").Value
0088: 		End Select
0089: 
0090: ElseIf Contest = "S16" Then
0091:  TotalAmount = rsp("STop10").Value
0092: 
0093: StandingsPage = "standings2nd_label.asp"
0094: 
0095: 
0096:  
0097:  ContestName = "Sweet 16 Contest"
0098: 
0099: 	Set rspk = Server.CreateObject("ADODB.Recordset")
0100: 	sqlString = "SELECT * FROM mm2ndpicks " & _
0101: 			"WHERE ID = " & PicksID
0102: 	rspk.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0103: 
0104: 	EntryName = Chr(34) & rspk("EntryName").Value & Chr(34)
0105:  
0106:  	Select Case Rank
0107: 			Case 1
0108: 				TotalAmount = rsp("S1").Value
0109: 			Case 2
0110: 				TotalAmount = rsp("S2").Value
0111: 			Case 3
0112: 				TotalAmount = rsp("S3").Value
0113: 			Case 4
0114: 				TotalAmount = rsp("S4").Value
0115: 			Case 5
0116: 				TotalAmount = rsp("S5").Value
0117: 		End Select
0118: ElseIf Contest = "BL" Then
0119: 
0120: 	StandingsPage = "biggestloserstandings_label.asp"
0121: 
0122:  ContestName = "Biggest Loser Contest"
0123:  ContestPrize = "top 5"
0124: 
0125:  EntryName = ""
0126: 
0127:  	Select Case Rank
0128: 			Case 1
0129: 				TotalAmount = rsp("B1").Value
0130: 			Case 2
0131: 				TotalAmount = rsp("B2").Value
0132: 			Case 3
0133: 				TotalAmount = rsp("B3").Value
0134: 			Case 4
0135: 				TotalAmount = rsp("B4").Value
0136: 			Case 5
0137: 				TotalAmount = rsp("B5").Value
0138: 		End Select
0139: 
0140: End If
0141: 
0142: years = season - 1989
0143: 
0144: sufix = "th"
0145: LastD = Right(years,1)
0146: If LastD = "1" Then
0147: sufix = "st"
0148: End If
0149: If LastD = "2" Then
0150: sufix = "nd"
0151: End If
0152: If LastD = "3" Then
0153: sufix = "rd"
0154: End If
0155: 
0156: %>
0157: <html>
0158: 
0159: <head>
0160: <title>March Madness Contest - Winner Label</title>
0161: <meta name="viewport" content="width=device-width">
0162: <link href="mm.css" rel="stylesheet" type="text/css">
0163: </head>
0164: 
0165: <body>
0166: 
0167: <table width="950" border="0" height="101">
0168:   <tr valign="middle" border="0">     <td width="15%" align="center" class="smalldark" height="97"><a href="http://folga.org/ncaa" target="_top"><img border="0" src="images/mmlogo.jpg"
0169:     ></a> <br>
0170:   </td>
0171:     <td width="70%" align="center"> <font face="Arial"><font color="#0080FF"><i>Joe Toledo's <%= Years %><%= sufix %> Annual<br>
0172:     <big><big><big><big><strong><font color="#008000">March Madness Contest</font></strong></big><br>
0173:     <font color="#0080FF"><em>To Benefit Cancer Research</big></em></font></font>
0174:     <i>
0175: </em></font></font></big></td>
0176:    <td width="15%" align="center" class="smalldark">
0177:     
0178:     <a href="http://www.cityofhope.org"
0179:     target="_blank"><img border="0" src="http://folga.org/mm/images/cohlogo.gif"></a></td>
0180:   </tr>
0181: </table>
0182: <table width="950" border="0" height="101">
0183: 
0184: 
0185: <tr>
0186: 
0187: 
0188: 	   <td class="norm" width="500"><big><big>
0189: <br>
0190: <br>
0191: <br>
0192: <br>
0193: <br>
0194: <br>
0195: 	   
0196: 	   Congratulations <%= FirstName %>, you finished in the money!</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br><br>
0197: 
0198: 	   Your entry <b><%= EntryName %></b> finished in position <b><%= Rank %></b> of the <b><%= ContestName %></b>.&nbsp;&nbsp;&nbsp;You won: <b>$<%= TotalAmount %>&nbsp;&nbsp;<%= Donated %></b><br><br>&nbsp;
0199: 
0200: 
0201: 
0202: </td>
0203: </tr>
0204:   <tr>
0205: 
0206:   <td width="100%" align="center"><Iframe src="<%= StandingsPage %>?MyRank=<%= Rank %>" width="100%" align="center" height="550" valign="top"></Iframe></td>
0207: 	   <td class="norm" width="500">
0208: </tr>	   
0209: <tr><td class="norm">	   
0210: 	   <big>
0211: <br>
0212: <br>
0213: 	   Thanks once again for participating and choosing to make a difference.
0214: <br>
0215: <br>
0216: <br>
0217: <br>
0218: <br>
0219: <br>
0220: <br>
0221: 
0222: 
0223: 
0224: <p><br><br>&nbsp;<br>&nbsp;<br>&nbsp;<br>&nbsp;<br><big><big>
0225:     
0226: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%= FirstName %>&nbsp<%= LastName %><br>      
0227: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%= Address %><br>
0228: &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%= City %>,&nbsp; <%= State %>&nbsp;&nbsp;<%= Zip %><br>
0229:  
0230: </td></tr>
0231: </table>
0232: 
0233: </body>
0234: </html>