%
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 = ("smokeacc.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
Smoking Accessories
We have every accessory a smoker needs, we stock cigarette cases in a wide range of sizes and designs, a large selection of cigarette holders from Dunhill, Friend, Medico, Denicotea and a selection for fancy dress parties. We also stock leather tobacco pouches for hand rolling, tobacco tins, rolling machines and cigarette snuffers, if you don't see what you want just ask us!
<% closedb %>