<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rs_museo
Dim rs_museo_numRows
Set rs_museo = Server.CreateObject("ADODB.Recordset")
rs_museo.ActiveConnection = MM_cn_hisnatiba_STRING
rs_museo.Source = "SELECT * FROM Museo WHERE Era='Historia Antigua' ORDER BY Objeto"
rs_museo.CursorType = 0
rs_museo.CursorLocation = 2
rs_museo.LockType = 1
rs_museo.Open()
rs_museo_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_museo_numRows = rs_museo_numRows + Repeat1__numRows
%>
Hisn Atiba - Historia Antigua en el Museo
Historia Antigua en el Museo
<%
While ((Repeat1__numRows <> 0) AND (NOT rs_museo.EOF))
%>
