[
NEW PRODUCTSI
<%
Sql2="Select catid,catname,catactive from categories where catactive =true "
Set RS2=Server.CreateObject("ADODB.Recordset")
RS2.open Sql2,Conn,1,3
if not rs2.BOF and not rs2.EOF then
i=1
do while not rs2.eof
%>
" class="text_arrial_black"><%=rs2("catname")%>
<%
rs2.movenext
if not rs2.eof then response.write "l " end if
i=i+1
loop
end if
rs2.close
set rs2=nothing
%>
I CUE
I LEM
]