%
OpenDB()
rsfound = false
cat = request("cat")
if not isnumeric(cat) then
response.End()
end if
sid = request("sid")
if sid <> "" then
if not isnumeric(sid) then
response.End()
end if
end if
cid = request("cid")
if cid <> "" then
if not isnumeric(cid) then
response.End()
end if
end if
pid = ("gift.asp")
If cat <> "" Then
If sid <>"" then
sql = "select products.*,categories.* from (products Inner join categories ON products.cid=categories.catid) where cid = "&cat&" AND subcatid = "&sid&" order by productid desc"
Else
sql = "select products.*,categories.* from (products Inner join categories ON products.cid=categories.catid) where cid = "&cat&" order by productid desc"
End If
rs.Open sql,conn,1,3
If not rs.eof then
categoryname = rs("categoryname")
End If
End If
%>
Product Catalogue
Gifts
If you are stuck for present ideas take a look at our gift range, you are sure to find something to mark any special occasion. We have a large range of men's leather wallets especially an excellent range from Zippo, we have cuff links & tie bars from S.T.Dupont & Stratton of England. We also stock business card holders, money clips, pens from S.T.Dupont and watches from Zippo.
<% closedb %>