<%@LANGUAGE="VBSCRIPT"%> <% Dim link Dim linkfrom Dim article Dim Subject Dim Email Dim top link = "/search.asp" linkfrom = "formMail.asp" article = "Search%20Our%20Archives" Email = "formMail.asp?link=" + link + "&linkfrom=" + linkfrom + "&article=" + article Subject = "Search%20Our%20Archives" top = "top2.inc" if not isnull(request("top")) and request("top")<>"" then top = request("top") end if %> <% Dim Recordset1__search Dim Recordset1__category Dim sSQL Recordset1__search = "%" Recordset1__category = "%" sSQL = "SELECT * FROM newstocks WHERE Article like '%" + Replace(Recordset1__search, "'", "''") + "%' ORDER BY ArticleDate Desc" if (Request.Form("search") <> "") then Recordset1__search = Request.Form("search") sSQL = "SELECT * FROM newstocks WHERE Article like '%" + Replace(Recordset1__search, "'", "''") + "%' ORDER BY ArticleDate Desc" elseif (Request.QueryString("category") <> "") then Recordset1__category = Request.QueryString("category") sSQL = "SELECT * FROM newstocks WHERE Cat like '%" + Replace(Recordset1__category, "'", "''") + "%' ORDER BY ArticleDate Desc" End If %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_ConWeek_STRING Recordset1.Source = sSQL Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count Recordset1_total = Recordset1.RecordCount ' set the number of rows displayed on this page If (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_total Elseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1 End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset1_total <> -1) Then If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset1_total = -1) Then ' count the total records by iterating through the recordset Recordset1_total=0 While (Not Recordset1.EOF) Recordset1_total = Recordset1_total + 1 Recordset1.MoveNext Wend ' reset the cursor to the beginning If (Recordset1.CursorType > 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If ' set the number of rows displayed on this page If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If %> <% Recordset1.Close() %>