Count Lines in Pages

Contents of Page: IncludeCheckTop10Updated.asp Number of Lines: 23 Last Modified: 4/4/2026 10:32:53 AM
0001: <%
0002: 
0003: 
0004: ' Check to see if Top 10 has been updated
0005: '
0006: 
0007: 	Set rsu = Server.CreateObject("ADODB.Recordset")
0008: 	sqlString = "SELECT * FROM mmTop10 " & _
0009: 			"WHERE Season = " & season & " AND CheckNo <> '' "
0010: 			
0011: 	Response.Write(sqlstring & "<br>")
0012: 	rsu.Open sqlString, conn, adOpenStatic, adLockReadOnly, adCmdText
0013: 	
0014: 	If Not rsu.EOF then
0015: 	rsu.Close
0016: 	Set rsu = Nothing
0017: 	Response.Redirect("Top10AlreadyUpdated.asp")
0018: 	End If
0019: 	
0020: 	rsu.Close
0021: 	Set rsu = Nothing
0022: 	
0023: %>