Y
y1
Unregistered / Unconfirmed
GUEST, unregistred user!
<%
dim category,item_no,descp,caca
caca=trim(Request.QueryString("category"))
category=caca
if caca = "" then
category="tb"
if caca = "Toitery+Bags" then
category = "tb"
if caca = "Pouch" then
category = "po"
if caca = "Handbag" then
category = "hb"
if caca = "Portfolio" then
category = "pf"
if caca = "Zipper+Bags" then
category = "zb"
if caca = "Frame+Purze" then
category = "fp"
if caca = "Backpack" then
category= "bp"
if caca = "tb" then
caca = "Toitery Bags"
if caca = "po" then
caca = "Pouch"
if caca = "hb" then
caca = "Handbag"
if caca = "pf" then
caca = "Portfolio"
if caca = "zb" then
caca = "Zipper Bags"
if caca = "fp" then
caca = "Frame Purze"
if caca = "bp" then
caca = "Backpack"
pageno=Request.QueryString("pageno")
if not isnumeric(pageno) then
pageno=1
item_no=trim(Request.QueryString("item_no"))
descp=trim(Request.QueryString("descp"))
dbpath=server.mappath("product.mdb")
set conn=server.createobject("adodb.connection")
conn.open "Provider = Microsoft.Jet.OLEDB.4.0;
Data Source ="&dbpath
set rs=server.createobject("adodb.recordset")
sqltext="select * from product where"
if category<>"" then
sqltext=sqltext &
" category='"&category&"'"
if item_no<>"" then
sqltext=sqltext &
" and itemno like %'"&itemno&"'%"
if descp<>"" then
sqltext=sqltext &
" and description like %'"&descp&"'%"
sqltext=sqltext &
"order by date desc"
rs.open sqltext,conn,1,1
rs.pagesize=6
if not(rs.eof) then
rs.absolutepage=pageno
end if
%>
dim category,item_no,descp,caca
caca=trim(Request.QueryString("category"))
category=caca
if caca = "" then
category="tb"
if caca = "Toitery+Bags" then
category = "tb"
if caca = "Pouch" then
category = "po"
if caca = "Handbag" then
category = "hb"
if caca = "Portfolio" then
category = "pf"
if caca = "Zipper+Bags" then
category = "zb"
if caca = "Frame+Purze" then
category = "fp"
if caca = "Backpack" then
category= "bp"
if caca = "tb" then
caca = "Toitery Bags"
if caca = "po" then
caca = "Pouch"
if caca = "hb" then
caca = "Handbag"
if caca = "pf" then
caca = "Portfolio"
if caca = "zb" then
caca = "Zipper Bags"
if caca = "fp" then
caca = "Frame Purze"
if caca = "bp" then
caca = "Backpack"
pageno=Request.QueryString("pageno")
if not isnumeric(pageno) then
pageno=1
item_no=trim(Request.QueryString("item_no"))
descp=trim(Request.QueryString("descp"))
dbpath=server.mappath("product.mdb")
set conn=server.createobject("adodb.connection")
conn.open "Provider = Microsoft.Jet.OLEDB.4.0;
Data Source ="&dbpath
set rs=server.createobject("adodb.recordset")
sqltext="select * from product where"
if category<>"" then
sqltext=sqltext &
" category='"&category&"'"
if item_no<>"" then
sqltext=sqltext &
" and itemno like %'"&itemno&"'%"
if descp<>"" then
sqltext=sqltext &
" and description like %'"&descp&"'%"
sqltext=sqltext &
"order by date desc"
rs.open sqltext,conn,1,1
rs.pagesize=6
if not(rs.eof) then
rs.absolutepage=pageno
end if
%>