Count Lines in Pages
Contents of Page: mmpickmybuddiespost.asp
Number of Lines: 82
Last Modified: 3/22/2025 6:12:50 PM
0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
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: 	GroupName = Request.Form("GroupName")
0008: 	
0009: 			Columns = Request.QueryString("Columns")	
0010:         If Columns = "" then Columns = 3
0011: 		
0012: 		GroupNo = Request.QueryString("GroupNo")
0013: 		
0014: 		If GroupNo = "" Then GroupNo = 1
0015: 	
0016: 	Set rsPYPicks = Server.CreateObject("ADODB.Recordset")
0017: 	sqlString = "SELECT COUNT(ID) as RegCount FROM mmEntries " & _
0018: 							"WHERE Season = " & season
0019: 	rsPYPicks.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0020: 	
0021: 	
0022: 
0023: 	RegCount = rsPYPicks("RegCount").Value
0024: 	RegCount = Cint(RegCount)
0025:     rsPYPicks.Close
0026: 	
0027: 	  Set rs = Server.CreateObject("ADODB.Recordset")
0028: 	
0029: 	sqlString = "SELECT * FROM mmEntries WHERE ID = " & ID
0030: 
0031: 	
0032: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0033: 
0034: MyBuddies = GroupName & "|"
0035: 
0036: 	
0037: 	Max = 0
0038: 	Do Until Max = RegCount
0039: 	Max = Max + 1
0040: 	FieldID = "Pick" & Max
0041: 	Buddy = Request.Form(FieldID)
0042: 	If Buddy <> "" Then
0043: 	MyBuddies = MyBuddies & Buddy & "|"
0044: '	Response.Write("<br>" & Buddy)
0045: 	End If
0046: 	Loop
0047: 
0048: 	BuddiesFieldName = "MyBuddies" & GroupNo
0049: 
0050: '	Response.Write("<br>" & MyBuddies)
0051: 
0052: rs(	BuddiesFieldName).Value = MyBuddies
0053: 	rs.Update
0054: 
0055: 		rs.Close
0056: 		Set rs = Nothing
0057: 
0058: %>
0059: <html>
0060: 
0061: <head>
0062: <link href="mm.css" rel="stylesheet" type="text/css">
0063: 	<link href="https://mychinodes.org/desb.css" rel="stylesheet" type="text/css">
0064: <title>March Madness - My Buddies Update</title>
0065: </head>
0066: <table cellspacing="1" border="0" cellpadding="0" width="500">
0067: <tr><td class="norm"><big><big>
0068: Group# <%= GroupNo %> Updated!<br><br>
0069: <a href="mmpickmybuddies.asp" class="button-40">Change/Review Groups</a>&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;
0070: 
0071: <% If Columns <> 3 Then %>		  
0072: 		  <a href="standingsmybuddies.asp" class="button-40">My Group Standings</a>
0073: <% Else %>		  
0074: 		  <a href="standingsmybuddies_m.asp" class="button-40">My Group Standings</a>	
0075: <% End If %>	
0076:  
0077: </td>
0078: </tr>
0079: </table>
0080: <body>
0081: </body>
0082: </html>