<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsLtSecPP__MMColParam
rsLtSecPP__MMColParam = "1"
if (Request("MM_EmptyValue") <> "") then rsLtSecPP__MMColParam = Request("MM_EmptyValue")
%>
<%
set rsLtSecPP = Server.CreateObject("ADODB.Recordset")
rsLtSecPP.ActiveConnection = MM_hispano_STRING
rsLtSecPP.Source = "SELECT * FROM SecSubSec WHERE SubSeccionMainSec = " + Replace(rsLtSecPP__MMColParam, "'", "''") + " AND SubSeccionActive = 1 ORDER BY SubSeccionSort ASC"
rsLtSecPP.CursorType = 0
rsLtSecPP.CursorLocation = 2
rsLtSecPP.LockType = 3
rsLtSecPP.Open()
rsLtSecPP_numRows = 0
%>
<%
Dim rsMenu1__MMColParam
rsMenu1__MMColParam = "1"
if (Request("MM_EmptyValue") <> "") then rsMenu1__MMColParam = Request("MM_EmptyValue")
%>
<%
set rsMenu1 = Server.CreateObject("ADODB.Recordset")
rsMenu1.ActiveConnection = MM_hispano_STRING
rsMenu1.Source = "SELECT * FROM SecSubSec WHERE SubSeccionMainSec = " + Replace(rsMenu1__MMColParam, "'", "''") + " AND SubSeccionActive = 1 ORDER BY SubSeccionSort ASC"
rsMenu1.CursorType = 0
rsMenu1.CursorLocation = 2
rsMenu1.LockType = 3
rsMenu1.Open()
rsMenu1_numRows = 0
%>
<%
Dim rsMenu2__MMColParam
rsMenu2__MMColParam = "2"
if (Request("MM_EmptyValue") <> "") then rsMenu2__MMColParam = Request("MM_EmptyValue")
%>
<%
set rsMenu2 = Server.CreateObject("ADODB.Recordset")
rsMenu2.ActiveConnection = MM_hispano_STRING
rsMenu2.Source = "SELECT * FROM SecSubSec WHERE SubSeccionMainSec = " + Replace(rsMenu2__MMColParam, "'", "''") + " AND SubSeccionActive = 1 ORDER BY SubSeccionSort ASC"
rsMenu2.CursorType = 0
rsMenu2.CursorLocation = 2
rsMenu2.LockType = 3
rsMenu2.Open()
rsMenu2_numRows = 0
%>
<%
Dim rsMenu3__MMColParam
rsMenu3__MMColParam = "3"
if (Request("MM_EmptyValue") <> "") then rsMenu3__MMColParam = Request("MM_EmptyValue")
%>
<%
set rsMenu3 = Server.CreateObject("ADODB.Recordset")
rsMenu3.ActiveConnection = MM_hispano_STRING
rsMenu3.Source = "SELECT * FROM SecSubSec WHERE SubSeccionMainSec = " + Replace(rsMenu3__MMColParam, "'", "''") + " AND SubSeccionActive = 1 ORDER BY SubSeccionSort ASC"
rsMenu3.CursorType = 0
rsMenu3.CursorLocation = 2
rsMenu3.LockType = 3
rsMenu3.Open()
rsMenu3_numRows = 0
%>
<%
Dim rsMenuClima__MMColParam
rsMenuClima__MMColParam = "1"
if (Request("MM_EmptyValue") <> "") then rsMenuClima__MMColParam = Request("MM_EmptyValue")
%>
<%
set rsMenuClima = Server.CreateObject("ADODB.Recordset")
rsMenuClima.ActiveConnection = MM_hispano_STRING
rsMenuClima.Source = "SELECT * FROM clima WHERE ClimaActive = " + Replace(rsMenuClima__MMColParam, "'", "''") + " ORDER BY ClimaSort ASC"
rsMenuClima.CursorType = 0
rsMenuClima.CursorLocation = 2
rsMenuClima.LockType = 3
rsMenuClima.Open()
rsMenuClima_numRows = 0
%>
<%
Dim rsMenuCompras__MMColParam
rsMenuCompras__MMColParam = "1"
if (Request("MM_EmptyValue") <> "") then rsMenuCompras__MMColParam = Request("MM_EmptyValue")
%>
<%
set rsMenuCompras = Server.CreateObject("ADODB.Recordset")
rsMenuCompras.ActiveConnection = MM_hispano_STRING
rsMenuCompras.Source = "SELECT * FROM compras WHERE ComprasActive = " + Replace(rsMenuCompras__MMColParam, "'", "''") + " ORDER BY ComprasSort ASC"
rsMenuCompras.CursorType = 0
rsMenuCompras.CursorLocation = 2
rsMenuCompras.LockType = 3
rsMenuCompras.Open()
rsMenuCompras_numRows = 0
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = 11
Dim Repeat2__index
Repeat2__index = 0
rsMenu1_numRows = rsMenu1_numRows + Repeat2__numRows
%>
<%
Dim Repeat4__numRows
Repeat4__numRows = 11
Dim Repeat4__index
Repeat4__index = 0
rsMenu3_numRows = rsMenu3_numRows + Repeat4__numRows
%>
<%
Dim Repeat3__numRows
Repeat3__numRows = 11
Dim Repeat3__index
Repeat3__index = 0
rsMenu2_numRows = rsMenu2_numRows + Repeat3__numRows
%>
NoticieroHispano.com ...:::..:.:..::
<%
rsLtSecPP.Close()
%>
<%
rsMenu1.Close()
%>
<%
rsMenu2.Close()
%>
<%
rsMenu3.Close()
%>
<%
rsMenuClima.Close()
%>
<%
rsMenuCompras.Close()
%>
