"
response.write "Home >> "
response.write "Directory Search "
set r2=server.createobject("adodb.recordset")
set r3=server.createobject("adodb.recordset")
for i=0 to len(str) -1 step 3
temp=mid(str,1,i+3)
s2="select category, cat_id from category where index1 ='"&temp&"'"
r2.open s2, db, adopenstatic
s3="select Cat_Id from category where index1 like '"&temp&"%' "
r3.open s3, db, adopenstatic
if not r2.eof then
if i=len(str)-3 then
response.write ">> "&r2("category")&": "
session("Category") = r2("category")
else
response.write ">> "
response.write r2("category")& " "
session("Category") = r2("category")
end if
end if
r2.close
temp=""
r3.close
next
response.write "
"
end if
Alfabet = "A-Z"
if request.querystring("Name") <> "" then
Alfabet = request.querystring("Name")
if Alfabet <> "A-Z" then
s1="SELECT supplier_id,company_name,city,pin,state, address, tel1, tel2, fax, email ,website ,paid FROM supplier WHERE supplier_id in (select supplier_id from cat where cat_id ="& request.querystring("cat_id") & ") and company_name like '"& Alfabet &"%' ORDER BY paid DESC, Company_name, email desc"
else
s1="SELECT supplier_id, company_name, address,city,pin,state, tel1, tel2, fax, email,website,paid FROM supplier WHERE supplier_id in (select supplier_id from cat where cat_id ="&request.querystring("cat_id")&") ORDER BY paid DESC, Company_name,email desc"
end if
else
s1="SELECT supplier_id,company_name, address, city,pin,state,tel1, tel2, fax, email,website,paid FROM supplier WHERE supplier_id in (select supplier_id from cat where cat_id ="&request.querystring("cat_id")&") ORDER BY paid DESC, Company_name, email desc"
end if
set r1=server.createobject("adodb.recordset")
r1.CursorType=3
r1.CursorLocation=3
r1.open s1, db, adopenstatic
r1.PageSize=25
r1.CacheSize=25
pages=r1.pagecount
count=r1.recordcount
if request.querystring("currpage")="" then
currpage=1
else
currpage=int(request.querystring("currpage"))
end if
if r1.recordcount > 0 then
r1.AbsolutePage=currpage
start=r1.AbsolutePosition
end if
if currpage=pages then
finish=count
else
finish=start+r1.pagesize-1
end if
if Alfabet = "A-Z" then
response.write "
View A-Z | Jump to: "
else
response.write "
"
response.write "View A-Z | Jump to: "
end if
if Alfabet = "A" then
response.write "A "
else
response.write "A "
end if
if Alfabet = "B" then
response.write "B "
else
response.write "B "
end if
if Alfabet = "C" then
response.write "C "
else
response.write "C "
end if
if Alfabet = "D" then
response.write "D "
else
response.write "D "
end if
if Alfabet = "E" then
response.write "E "
else
response.write "E "
end if
if Alfabet = "F" then
response.write "F "
else
response.write "F "
end if
if Alfabet = "G" then
response.write "G "
else
response.write "G "
end if
if Alfabet = "H" then
response.write "H "
else
response.write "H "
end if
if Alfabet = "I" then
response.write "I "
else
response.write "I "
end if
if Alfabet = "J" then
response.write "J "
else
response.write "J "
end if
if Alfabet = "K" then
response.write "K "
else
response.write "K "
end if
if Alfabet = "L" then
response.write "L "
else
response.write "L "
end if
if Alfabet = "M" then
response.write "M "
else
response.write "M "
end if
if Alfabet = "N" then
response.write "N "
else
response.write "N "
end if
if Alfabet = "O" then
response.write "O "
else
response.write "O "
end if
if Alfabet = "P" then
response.write "P "
else
response.write "P "
end if
if Alfabet = "Q" then
response.write "Q "
else
response.write "Q "
end if
if Alfabet = "R" then
response.write "R "
else
response.write "R "
end if
if Alfabet = "S" then
response.write "S "
else
response.write "S "
end if
if Alfabet = "T" then
response.write "T "
else
response.write "T "
end if
if Alfabet = "U" then
response.write "U "
else
response.write "U "
end if
if Alfabet = "V" then
response.write "V "
else
response.write "V "
end if
if Alfabet = "W" then
response.write "W "
else
response.write "W "
end if
if Alfabet = "X" then
response.write "X "
else
response.write "X "
end if
if Alfabet = "Y" then
response.write "Y "
else
response.write "Y "
end if
if Alfabet = "Z" then
response.write "Z"
else
response.write "Z"
end if
response.write " |
