%@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
%>
<% 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%> |
||||
<%hitType = "listed"%>
" target="_blank">" alt="<% = rsItems("manufacturer") %> <% = rsItems("model") %>" title="<% = rsItems("manufacturer") %> <% = rsItems("model") %>" width="150" border="0">
<%if rsItems("status") = "SOLD" then%> SOLD <%end if%> |
" target="_blank">
<% = rsItems("manufacturer") %>
<% = rsItems("model") %>
<%If session("key") = "ADMIN" then%>
" target="_blank">[EDIT]
<%end if%>
<% = (mid(rsItems("itemDescription"),1,150) & "...")%> |
R <% = rsItems("price") %> <%if rsItems("special") = "SOLD" then %> <%end if%> |
||