<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%option explicit%> <% Session("searchType") = "" Session("search1") = "" Session("search2") = "" Session("search3") = "" Session("search4") = "" Session("wildcard") = "" matchFound1 = 0 matchFound2 = 0 matchFound3 = 0 matchFound4 = 0 matchFound5 = 0 if request.QueryString("action") = "search" then search = lcase(request.Form("search")) else search = lcase(Request.QueryString("search")) end if If Request.QueryString("page") = "" then pagenumber = 1 Else pagenumber = Request.QueryString("page") End If If Request.QueryString("page") = "" then pagenumber = 1 Else pagenumber = Request.QueryString("page") End If hitType = "listed" Session("search1") = trim(search) if search <> "" then if len(search) > 2 then set conn1 = createObject("ADODB.connection") set rsItems = createObject("ADODB.recordset") conn1.Open GetConnectionStringItems() wordPointer = 1 words = split(trim(search)," ") if UBound(words) > 0 then for wordsIndex = LBound(words) to UBound(words) if words(wordsIndex) <> trim(search) then wordPointer = wordPointer + 1 Session("search" & wordPointer) = words(wordsIndex) end if if right(words(wordsIndex),1) = "s" then wordPointer = wordPointer + 1 newWord = left(words(wordsIndex),len(words(wordsIndex))-1) Session("search" & wordPointer) = newWord end if next 'response.End() end if else Response.Redirect("../index.asp") End if 'response.Write("1:" & session("search1") & ":1
") 'response.Write("2:" & session("search2") & ":2
") 'response.Write("3:" & session("search3") & ":3
") 'response.Write(ubound(words)) 'response.End() sql = "" sql = sql & "SELECT * from Items " sql = sql & "WHERE " sql = sql & " InStr([Items]![keywords],'" & session("search1") & "') > 0 " sql = sql & " AND " sql = sql & " InStr([Items]![status] ,'SOLD')" sql = sql & " = 0 " sql = sql & "ORDER BY id " rsItems.open sql, conn1, 3, 3 matchFound1 = rsItems.RecordCount if ubound(words) > 0 then if matchfound1 = 0 then rsItems.close if trim(session("search2")) <> "" then sql = "" sql = sql & "SELECT * from Items " sql = sql & "WHERE " sql = sql & " InStr([Items]![keywords] ,'" & session("search2") & "')" sql = sql & " > 0 " end if if trim(session("search3")) <> "" then sql = sql & " AND " sql = sql & " InStr([Items]![keywords] ,'" & session("search3") & "')" sql = sql & " > 0 " end if if trim(session("search4")) <> "" then sql = sql & " AND " sql = sql & " InStr([Items]![keywords] ,'" & session("search4") & "')" sql = sql & " > 0 " end if sql = sql & " AND " sql = sql & " InStr([Items]![status] ,'SOLD')" sql = sql & " = 0 " sql = sql & "ORDER BY id " rsItems.open sql, conn1, 3, 3 matchFound2 = rsItems.RecordCount if matchfound2 = 0 then rsItems.close if trim(session("search2")) <> "" then sql = "" sql = sql & "SELECT * from Items " sql = sql & "WHERE " sql = sql & "( InStr([Items]![keywords] ,'" & session("search2") & "')" sql = sql & " > 0 " end if if trim(session("search3")) <> "" then sql = sql & " or " sql = sql & " InStr([Items]![keywords] ,'" & session("search3") & "')" sql = sql & " > 0 " end if if trim(session("search4")) <> "" then sql = sql & " or " sql = sql & " InStr([Items]![keywords] ,'" & session("search4") & "')" sql = sql & " > 0 " end if sql = sql & ") AND " sql = sql & " InStr([Items]![status] ,'SOLD')" sql = sql & " = 0 " sql = sql & "ORDER BY id " rsItems.open sql, conn1, 3, 3 matchFound3 = rsItems.RecordCount end if End if end if 'response.Write(sql) rsItems.PageSize = 30 intPageCount = rsItems.pagecount %> <% = ucase(session("search1")) %> from Pawnbroker Mr Cash ">
<% end if %> <% do while rsItems.eof <> true counter = counter + 1 if counter <= 50 then%> <% end if rsItems.movenext loop %>

<% if matchFound1 > 0 then %> Exact Match for " <% = ucase(session("search1")) %> " <%end if%> <% if matchFound2 > 0 then %> Match Found for " <% = ucase(session("search2")) %> " and " <%=ucase(session("search3")) %> " <% if session("search4") <> "" then %> and " <% = ucase(session("search4")) %> " <%end if end if%> <% if matchFound3 > 0 then %> Match Found for " <%=ucase(session("search2")) %> " or " <%=ucase(session("search3")) %> " <% if session("search4") <> "" then %> or " <% = session("search4") %> " <%end if end if %>   <% If intPageCount <> 0 then %>  Page : <% For page = 1 to intPageCount If cstr(pagenumber) = cstr(page) then %> <% = page %> <% Else %> &page=<% = page %>"> <% = page %> <% End If %> <% next %> <% End If If intPageCount = 0 then%> Sorry, No matches for <%=ucase(session("search1"))%> found, please contact us and we will find what you are looking for. <%end if%>

R  <% = rsItems("price") %>
<%if rsItems("special") = "SOLD" then %> <%end if%>