Count Lines in Pages
Contents of Page: DisplayMyS16Brackets.asp
Number of Lines: 91
Last Modified: 4/22/2025 6:07:32 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: <!-- #include FILE="include/funcs.asp" -->
0006: 
0007: <%
0008: 	EMail = Request.QueryString("Email")
0009: 	
0010: 		Set rsEntry = Server.CreateObject("ADODB.Recordset")
0011:     	sqlString = "SELECT * FROM mmEntries " & _
0012: 							"WHERE EmailAddress = '" & Email & "' " & _
0013: 							"AND Season = " & season
0014: 	rsEntry.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0015: 	If Not rsEntry.EOF Then
0016: '	Response.Write("<BR>" & rsEntry("City").Value)
0017: 		CitySt = rsEntry("City").Value & ", " & rsEntry("State").Value
0018: 		Name = rsEntry("Name").Value
0019:     	FirstName = rsEntry("FirstName").Value
0020:  '   	Country = rsEntry("Country").Value
0021: 	End If
0022:    	rsEntry.Close
0023: 	Set rsEntry = Nothing
0024: 	
0025: 			Set rs = Server.CreateObject("ADODB.Recordset")
0026: 
0027: sqlString = "SELECT * FROM mm2ndPicks " & _
0028: 							"WHERE EmailAddress = '" & EMail & "' " & _
0029: 							"AND Season = " & season & " " & _
0030: 							"AND Complete = 'Yes' ORDER BY ID"
0031: 	rs.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0032: 	
0033: %>
0034: 
0035: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
0036: 
0037: <html>
0038: <head>
0039: 	<title>March Madness - Display My Brackets</title>
0040: 	<link href="mm.css" rel="stylesheet" type="text/css">
0041: 	<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">	
0042: 
0043: </head>
0044: 
0045: <body bgcolor="#ffffff">
0046: 
0047: 
0048: <table border="0" width="1200" >
0049: 	<tr><td colspan="10"  class="norm" align="center">
0050: 					<input type="Submit" value="Close Window "
0051:     class="button_close" onClick="window.close()">
0052: 	</td>
0053: 	</tr>
0054: 	
0055: 
0056: 
0057: 	<tr height="30"><td colspan="10"  class="norm">
0058: 
0059: <%	
0060: Kount = 0
0061: FirstPickLink = ""
0062: 	Do Until rs.EOF
0063: 
0064: Kount = Kount + 1
0065: 
0066: 
0067: 		PicksID = rs("ID").Value
0068: 		If Kount = 1 Then
0069: 			FirstPickLink =  "Display2ndpicks.asp?Pick=" & PicksID & "&NoReturn=Y"
0070: 		End If
0071: 		
0072: 		EntryName = rs("EntryName").Value 
0073: ' Links = Links & " | <a href=" & chr(34) & "CALMAAddressList.asp?Letter=" & XLetter & """>" & XLetter & "</a>"	
0074: ' Links = Links & " | <a href=" & chr(34) & "Display2ndpicks.asp?Pick=" & PicksID & "&NoReturn=Y" & chr(34) & " target=" & chr(34) & "PickIFrame" & Chr(34) & ">" & EntryName & "</a>"
0075: 
0076: Links = Links & " | <a class=" & chr(34) & "button-40" & chr(34) & " href=" & chr(34) & "Display2ndpicks.asp?Pick=" & PicksID & "&NoReturn=Y" & chr(34) & " target=" & chr(34) & "PickIFrame" & Chr(34) & ">" & EntryName & "</a>"
0077: 
0078:     rs.MoveNext
0079: 		Loop
0080: 
0081: Links = Links & " |"
0082: 
0083: %>
0084: <big><%= Links %>
0085: </tr>
0086: <tr>
0087:   <td width="100%"><Iframe  name="PickIFrame" src="<%= FirstPickLink %>"  width="100%" height="900"  valign="top"></Iframe></td>
0088: </table>
0089: 
0090: </body>
0091: </html>