% 'no security checking %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" dim x_Desc xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("find/find.mdb") & ";" %> <% displayRecs = 10 recRange = 10 %> <% ' Get table name tablename = "[find]" dbwhere = "" a_search = "" b_search = "" %> <% ' Get search criteria for basic search psearch = Request.QueryString("psearch") If psearch <> "" Then psearch = replace(psearch,"'","''") psearch = replace(psearch,"[","[[]") b_search = b_search & "[Keywords] LIKE '%" & psearch & "%' OR " End If If len(b_search) > 4 Then b_search = mid(b_search,1,len(b_search)-4) b_search = "(" & b_search & ")" End If %> <% 'Build search criteria If a_search <> "" Then dbwhere = dbwhere & a_search 'advance search ElseIf b_search <> "" Then dbwhere = dbwhere & b_search 'basic search End If 'Save search criteria If dbwhere <> "" Then Session("tablename") = tablename Session("dbwhere") = dbwhere 'reset start record counter startRec = 1 Session("search_REC") = startRec Else If tablename = Session("tablename") Then dbwhere = Session("dbwhere") Else 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If 'Get clear search cmd If Request.QueryString("cmd").Count > 0 then cmd=Request.QueryString("cmd") If ucase(cmd) = "RESET" Then 'reset search criteria dbwhere = "" Session("dbwhere") = dbwhere End If End If %> <% ' Load Default Order DefaultOrder = "" DefaultOrderType = "" ' Check for an Order parameter OrderBy = "" If Request.QueryString("order").Count > 0 Then OrderBy = Request.QueryString("order") ' Check if an ASC/DESC toggle is required If Session("search_OB") = OrderBy Then If Session("search_OT") = "ASC" Then Session("search_OT") = "DESC" Else Session("search_OT") = "ASC" End if Else Session("search_OT") = "ASC" End If Session("search_OB") = OrderBy Session("search_REC") = 1 Else OrderBy = Session("search_OB") if OrderBy = "" then OrderBy = DefaultOrder Session("search_OB") = OrderBy Session("search_OT") = DefaultOrderType End If End If ' Check for a START parameter If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("search_REC") = startRec Else startRec = Session("search_REC") if not isnumeric(startRec) or startRec = "" then 'reset start record counter startRec = 1 Session("search_REC") = startRec End If End If ' Open Connection to the database set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str ' Build Query strsql = "select * from [Find]" If dbwhere <> "" Then strsql = strsql & " WHERE " & dbwhere End If if OrderBy <> "" then strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("search_OT") end if 'response.write strsql set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 totalRecs = rs.RecordCount %>