<%@ LANGUAGE = "VBScript" %> <% catcode=request.querystring("catcode") set rscat=db.execute("select * from categories where catcode=" & catcode) if rscat.eof then response.redirect("error.asp?Unable to locate category!") end if 'get names and codes of all products in that category set rscatlist=db.execute("select name,productid from products where catcode=" & catcode & " order by name") %> City Computer Wholesalers - www.citycomputer.com.au
 
 
   
<%= rscat("catname") %>
<% 'Display list of other products in category if not rscatlist.eof then rscatlist.movefirst while not rscatlist.eof %> - "> <%=rscatlist("name")%>
<% rscatlist.movenext wend end if %>
 
 
<% ci=rscat("catimage") if ci<>"" then %> <%=rscat("catimage") %> <% else %>
<%=lcase(rscat("catname")) %>@<%=lcase(storename) %>

<%=lcase(rscat("catdes")) %> <% end if %>
 
 
 
 
<% db.close set db=nothing %>