Our Products

<% i=0 Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from Product where Status='Y' and New='Y' order by ProductName;" rs.Open sql,conn,0,1 Do Until rs.EOF i=i+1 if i mod 5=1 then Response.Write "" end if %> <% if i mod 5=0 then Response.Write "" end if rs.MoveNext Loop rs.Close if i mod 5>0 then Response.Write "" end if %>
<%=rs("ProductName").value%> ','','');">
">

 

All products
<% i=0 sql="select * from ProductType where Status='Y' order by TypeName;" rs.Open sql,conn,0,1 Do Until rs.EOF i=i+1 if i mod 2=1 then Response.Write "" end if %> <% if i mod 2=0 then Response.Write "" end if rs.MoveNext Loop rs.Close %>