<script type="text/javascript" language="JavaScript1.2" src="stmenu.js"></script>
<script type="text/javascript" language="JavaScript1.2">
<!--
stm_bm(["menu3a7f",640,"","blank.gif",0,"","",0,0,250,0,1000,1,0,0,"","",0,0,1,2,"default","hand",""],this);
stm_bp("p0",[1,4,0,0,1,3,15,7,100,"",-2,"",-2,50,0,0,"#999999","#FFFFF7","",3,0,0,"#000000"]);
stm_ai("p0i0",[0,"Home","","",-1,-1,0,"default.asp","_self","","","menu_0.gif","menu_1.gif",15,8,0,"","",0,0,0,0,1,"<%= menu %>",0,"<%= menu1 %>",0,"","",3,3,0,0,"#FFFFF7","#000000","#333333","#FFFFFF","11px 'Arial','Verdana'","11px 'Arial','Verdana'",0,0],160,22);
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open MM_conn_STRING
Set Rs = Server.CreateObject("ADODB.RecordSet")
Call_SP = "SELECT CAT.ca_nombre, CAT.ca_id, CAT.ca_modo, IsNull((SELECT Count(*) FROM CATEGORIAS WHERE ca_parent = CAT.ca_id),0) as tsub FROM CATEGORIAS AS CAT WHERE CAT.ca_parent = 0 and CAT.ca_subcat = 0 AND ( CAT.ca_modo = 0 OR CAT.ca_modo = 2) and CAT.ca_tipo = 0 and CAT.ca_sitio = "&SITIO&" ORDER BY CAT.ca_modo desc, CAT.ca_orden"
Rs.Open Call_SP, oConn, 1
While Not Rs.Eof
If Rs("tsub") > 0 Then %>
stm_aix("p0i1","p0i0",[0,"<%= Rs("ca_nombre") %>","","",-1,-1,0,"","_self","","","menu_0.gif","menu_1.gif",15,8,0,"","",7,7],160,22);
stm_bpx("p1","p0",[1,2,3]);
<%
Set Rs2 = Server.CreateObject("ADODB.RecordSet")
Call_SP = "SELECT CAT.ca_nombre, CAT.ca_id, CAT.ca_modo, IsNull((SELECT Count(*) FROM CATEGORIAS WHERE ca_subcat = CAT.ca_id),0) as tsub2 FROM CATEGORIAS AS CAT WHERE CAT.ca_parent = "& Rs("ca_id") &" ORDER BY CAT.ca_orden"
'response.Write(Call_SP)
Rs2.Open Call_SP, oConn, 1
While Not Rs2.Eof
%>
stm_aix("p1i2","p0i1",[0,"<%= Rs2("ca_nombre") %>","","",-1,-1,0,"<% If rs2("tsub2") = 0 Then %>informacion.asp?idq=<%= Rs2("ca_id") %><% End If %>"],170,22);
<%
If Rs2("tsub2") > 0 Then %>
stm_bpx("p2","p0",[1,2,2,0,1,3,15,0]);
<%
Set Rs3 = Server.CreateObject("ADODB.RecordSet")
Call_SP = "SELECT * FROM CATEGORIAS WHERE ca_subcat = "& Rs2("ca_id") &" order by ca_orden"
'response.Write(Call_SP)
Rs3.Open Call_SP, oConn, 1
While Not Rs3.Eof
%>
stm_aix("p2i0","p0i0",[0,"<%= Rs3("ca_nombre") %>","","",-1,-1,0,"informacion.asp?idq=<%= Rs3("ca_id") %>"],160,22);
<%
Rs3.MoveNext()
Wend
Rs3.Close
Set Rs3 = Nothing %>
stm_ep();//cierra rs3
<%
End If
Rs2.MoveNext()
Wend
Rs2.Close
Set Rs2 = Nothing %>
stm_ep();//cierra rs2
<%
Else %>
stm_aix("p0i2","p0i0",[0,"<%= Rs("ca_nombre") %>","","",-1,-1,0,"informacion.asp?idq=<%= Rs("ca_id") %>"],160,22);
<%
End If
Rs.MoveNext()
Wend
Rs.Close
Set Rs = Nothing
oConn.Close
Set oConn = Nothing
%>
stm_aix("p0i2","p0i0",[0,"<%= NNoticias %>","","",-1,-1,0,"noticias_listado.asp"],160,22);
stm_ep();//cierra rs1
stm_em();
//-->
</script>