%
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 = ("cigacc.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
Cigar Accessories
Do you have a box of cigars but have no where to keep them, why not choose a humidor from our range from affordable to luxury. We also carry a great range of cigar cases and cigar cutters from inexpensive to luxury models from Dunhill and S.T.Dupont. We have a great selection of cigar holders, cigar snuffers and ashtrays.
<% closedb %>