|
<%
catcode=request.querystring("catcode")
'get photos of that category
set rscatlist = Server.CreateObject("ADODB.Recordset")
rscatlist.CursorType = 3
rscatlist.LockType = 3
sql = "select catcode,name,productid,SmallImage from Photos where catcode=" & catcode & ""
rscatlist.Open sql,con
'dim rscatlist
'set rscatlist=con.execute("select * from Photos where catcode=" & catcode)
if not rscatlist.EOF then
no = 0
%>
<%
else
response.Write("Image not avilable")
end if
con.close
set con=nothing
%>
|
