Count Lines in Pages

Contents of Page: editPicks2nd.asp Number of Lines: 24 Last Modified: 8/22/2018 1:32:42 PM
0001: <% @Language = "VBScript" %>
0002: 
0003: <!-- #include FILE="include/adovbs.inc" -->
0004: <!-- #include FILE="include/constants.inc" -->
0005: 
0006: <%
0007: 	user = Request.Cookies("user")
0008: 	picksid = Request.QueryString("pick")
0009: 	If user = "" Or picksid = "" Then Response.Redirect("login.asp?from=picks2nd.asp")
0010: 	page = Request.QueryString("page")
0011: 	If page = "" Then page = "region"
0012: 
0013: 	Set rs = Server.CreateObject("ADODB.Recordset")
0014: 	sqlString = "SELECT * FROM mm2ndPicks " & _
0015: 							"WHERE ID = " & picksid
0016: 	rs.Open sqlString, conn, adOpenDynamic, adLockOptimistic, adCmdText
0017: 	rs("Complete").Value = "No"
0018: 	rs.Update
0019: 	rs.Close
0020: 	Set rs = Nothing
0021: 
0022: 	Response.Redirect("picks12nd.asp")
0023: 
0024: %>