|
<%
yes = "yes"
no = "no"
matches = 0
DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath(strDataPath & "/fpdb/fishkid.mdb")
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open DB_CONNECTIONSTRING, "activeip\fishkid", "123456"
one = "select * from search"
Set RS1 = MyConn.Execute(one)
WHILE NOT RS1.EOF
keywords = RS1("keywords")
name = RS1("name")
description = RS1("description")
stock = RS1("stock")
keywords= replace(keywords,"A","a")
keywords= replace(keywords,"B","b")
keywords= replace(keywords,"C","c")
keywords= replace(keywords,"D","d")
keywords= replace(keywords,"E","e")
keywords= replace(keywords,"F","f")
keywords= replace(keywords,"G","g")
keywords= replace(keywords,"H","h")
keywords= replace(keywords,"I","i")
keywords= replace(keywords,"J","j")
keywords= replace(keywords,"K","k")
keywords= replace(keywords,"L","l")
keywords= replace(keywords,"M","m")
keywords= replace(keywords,"N","n")
keywords= replace(keywords,"O","o")
keywords= replace(keywords,"P","p")
keywords= replace(keywords,"Q","q")
keywords= replace(keywords,"R","r")
keywords= replace(keywords,"S","s")
keywords= replace(keywords,"T","t")
keywords= replace(keywords,"U","u")
keywords= replace(keywords,"V","v")
keywords= replace(keywords,"W","w")
keywords= replace(keywords,"X","x")
keywords= replace(keywords,"Y","y")
keywords= replace(keywords,"Z","z")
name= replace(name,"A","a")
name= replace(name,"B","b")
name= replace(name,"C","c")
name= replace(name,"D","d")
name= replace(name,"E","e")
name= replace(name,"F","f")
name= replace(name,"G","g")
name= replace(name,"H","h")
name= replace(name,"I","i")
name= replace(name,"J","j")
name= replace(name,"K","k")
name= replace(name,"L","l")
name= replace(name,"M","m")
name= replace(name,"N","n")
name= replace(name,"O","o")
name= replace(name,"P","p")
name= replace(name,"Q","q")
name= replace(name,"R","r")
name= replace(name,"S","s")
name= replace(name,"T","t")
name= replace(name,"U","u")
name= replace(name,"V","v")
name= replace(name,"W","w")
name= replace(name,"X","x")
name= replace(name,"Y","y")
name= replace(name,"Z","z")
description= replace(description,"A","a")
description= replace(description,"B","b")
description= replace(description,"C","c")
description= replace(description,"D","d")
description= replace(description,"E","e")
description= replace(description,"F","f")
description= replace(description,"G","g")
description= replace(description,"H","h")
description= replace(description,"I","i")
description= replace(description,"J","j")
description= replace(description,"K","k")
description= replace(description,"L","l")
description= replace(description,"M","m")
description= replace(description,"N","n")
description= replace(description,"O","o")
description= replace(description,"P","p")
description= replace(description,"Q","q")
description= replace(description,"R","r")
description= replace(description,"S","s")
description= replace(description,"T","t")
description= replace(description,"U","u")
description= replace(description,"V","v")
description= replace(description,"W","w")
description= replace(description,"X","x")
description= replace(description,"Y","y")
description= replace(description,"Z","z")
category = RS1("category")
searchkeywords = category
if instr(searchkeywords,search) then
total = total + 1
end if
select case stock
case "yes"
if instr(searchkeywords,search) and total < max and total > min or total = max then
%>
<%
end if
end select
RS1.MoveNext
WEND
if total = 0 then
Response.Write("No matches were found.")
end if
if total > max then
nextpage = page + 1
%>
|
