| |
|
|
<%
Sql2="Select catid,catimage_menu,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
%>
|
|
|
|
<%
rs2.movenext
i=i+1
loop
end if
rs2.close
set rs2=nothing
%>
| |
|
|
|
|
