Count Lines in Pages
Contents of Page: biggestloserpost.asp
Number of Lines: 129
Last Modified: 2/15/2025 7:30:16 PM
0001: <% @Language = "VBScript" %>
0002: <!-- #include FILE="include/adovbs.inc" -->
0003: <!-- #include FILE="include/constants.inc" -->
0004: <!-- #include FILE="include/funcs.asp" -->
0005: <%
0006: 
0007: 	Demo = Request.QueryString("Demo")
0008: 	yr = Request.QueryString("yr")
0009: 	If yr = "" Then yr = season
0010: %>
0011: <html>
0012: 
0013: <head>
0014: <meta http-equiv="Content-Language" content="en-us">
0015: <meta name="viewport" content="width=device-width">
0016: <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
0017: 	<link href="mm.css" rel="stylesheet" type="text/css">
0018: 	<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">
0019: <title>March Madness - Which seed will have the &quot;early exit&quot;?</title>
0020: </head>
0021: <table border="1" cellpadding="5" width="250" align="left">
0022: <tr>
0023: <td colspan="2" class="norm">
0024: <big>These are your selections:<br><br>
0025: <%	
0026: 
0027: 	Set rst = Server.CreateObject("ADODB.Recordset")
0028: 	sqlString = "SELECT * FROM mmTeams WHERE Season = " & yr
0029: ' Response.Write(sqlString)
0030: 	rst.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0031: 
0032: RegNumber = Request.Form("RegNumber")
0033: P1 = Request.Form("Seed1")
0034: S1Name = rst(p1).Value
0035: Response.Write("<BR> #" & 1 & " - " & rst(p1).Value)
0036: P2 = Request.Form("Seed2")
0037: Response.Write("<BR> #" & 2 & " - " & rst(p2).Value)
0038: P3 = Request.Form("Seed3")
0039: Response.Write("<BR> #" & 3 & " - " & rst(p3).Value)
0040: P4 = Request.Form("Seed4")
0041: Response.Write("<BR> #" & 4 & " - " & rst(p4).Value)
0042: P5 = Request.Form("Seed5")
0043: Response.Write("<BR> #" & 5 & " - " & rst(p5).Value)
0044: P6 = Request.Form("Seed6")
0045: Response.Write("<BR> #" & 6 & " - " & rst(p6).Value)
0046: P7 = Request.Form("Seed7")
0047: Response.Write("<BR> #" & 7 & " - " & rst(p7).Value)
0048: P8 = Request.Form("Seed8")
0049: Response.Write("<BR> #" & 8 & " - " & rst(p8).Value)
0050: P9 = Request.Form("Seed9")
0051: Response.Write("<BR> #" & 9 & " - " & rst(p9).Value)
0052: P10 = Request.Form("Seed10")
0053: Response.Write("<BR> #" & 10 & " - " & rst(p10).Value)
0054: P11 = Request.Form("Seed11")
0055: Response.Write("<BR> #" & 11 & " - " & rst(p11).Value)
0056: P12 = Request.Form("Seed12")
0057: Response.Write("<BR> #" & 12 & " - " & rst(p12).Value)
0058: P13 = Request.Form("Seed13")
0059: Response.Write("<BR> #" & 13 & " - " & rst(p13).Value)
0060: P14 = Request.Form("Seed14")
0061: Response.Write("<BR> #" & 14 & " - " & rst(p14).Value)
0062: P15 = Request.Form("Seed15")
0063: Response.Write("<BR> #" & 15 & " - " & rst(p15).Value)
0064: P16 = Request.Form("Seed16")
0065: Response.Write("<BR> #" & 16 & " - " & rst(p16).Value)
0066: 
0067: S1Name = rst(p1).Value
0068: S2Name = rst(p2).Value
0069: S3Name = rst(p3).Value
0070: S4Name = rst(p4).Value
0071: 
0072: 
0073: If Demo <> "YES" Then
0074: 
0075:    Set cn = Server.CreateObject("ADODB.Connection")
0076: 	cn.Open conn
0077: 	sqlString = "DELETE FROM mmBiggestLoser " & _
0078: 							"WHERE Season = " & yr &  _
0079: 							" AND RegNumber = '" & RegNumber & "'"
0080: 	cn.Execute sqlString, lngRecs, adExecuteNoRecords
0081: 	cn.Close
0082: 	Set cn = Nothing
0083: 
0084:        Set rs = Server.CreateObject("ADODB.Recordset")
0085: 		rs.Open "mmBiggestLoser", conn, adOpenDynamic, adLockOptimistic, adCmdTable
0086: 		rs.AddNew
0087: 		rs("RegNumber").Value = RegNumber
0088: 		rs("Season").Value = yr
0089: 		rs("Seed01").Value = p1
0090: 		rs("Seed02").Value = p2
0091: 		rs("Seed03").Value = p3
0092: 		rs("Seed04").Value = p4
0093: 		rs("Seed05").Value = p5
0094: 		rs("Seed06").Value = p6
0095: 		rs("Seed07").Value = p7
0096: 		rs("Seed08").Value = p8
0097: 		rs("Seed09").Value = p9
0098: 		rs("Seed10").Value = p10
0099: 		rs("Seed11").Value = p11
0100: 		rs("Seed12").Value = p12
0101: 		rs("Seed13").Value = p13
0102: 		rs("Seed14").Value = p14
0103: 		rs("Seed15").Value = p15
0104: 		rs("Seed16").Value = p16
0105: 		rs("Seed01TeamName") = S1Name
0106: 		rs("Seed02TeamName") = S2Name
0107: 		rs("Seed03TeamName") = S3Name
0108: 		rs("Seed04TeamName") = S4Name
0109: 
0110:     rs.Update
0111:        rs.Close
0112:        Set rs = Nothing
0113: 
0114: 	   Response.Redirect("biggestloserpick_m.asp")
0115: 
0116: Response.Write("<br><br>Selections recorded.")
0117: Else
0118: %>
0119: <tr>
0120: <td colspan="2" class="norm">
0121: <button class="button_close" onclick="window.close()">Close Window</button>
0122: </td>
0123: </tr>
0124: 
0125: <%
0126: End If
0127: %>
0128: </TABLE>
0129: </html>