<%@LANGUAGE="VBSCRIPT"%>
<%
Dim ConsultaFoto
Dim ConsultaFoto_cmd
Dim ConsultaFoto_numRows
Set ConsultaFoto_cmd = Server.CreateObject ("ADODB.Command")
ConsultaFoto_cmd.ActiveConnection = MM_sportdivers_STRING
ConsultaFoto_cmd.CommandText = "SELECT * FROM menu WHERE seccion = 'galeria' AND opcion = 'fotos'"
ConsultaFoto_cmd.Prepared = true
Set ConsultaFoto = ConsultaFoto_cmd.Execute
ConsultaFoto_numRows = 0
%>
<%
Dim ConsultaFotosDestinos
Dim ConsultaFotosDestinos_cmd
Dim ConsultaFotosDestinos_numRows
Set ConsultaFotosDestinos_cmd = Server.CreateObject ("ADODB.Command")
ConsultaFotosDestinos_cmd.ActiveConnection = MM_sportdivers_STRING
ConsultaFotosDestinos_cmd.CommandText = "SELECT * FROM submenu WHERE orden LIKE 4.3 ORDER BY suborden ASC"
ConsultaFotosDestinos_cmd.Prepared = true
Set ConsultaFotosDestinos = ConsultaFotosDestinos_cmd.Execute
ConsultaFotosDestinos_numRows = 0
%>
<%
Dim ConsultaVideo
Dim ConsultaVideo_cmd
Dim ConsultaVideo_numRows
Set ConsultaVideo_cmd = Server.CreateObject ("ADODB.Command")
ConsultaVideo_cmd.ActiveConnection = MM_sportdivers_STRING
ConsultaVideo_cmd.CommandText = "SELECT * FROM menu WHERE opcion = 'Videos'"
ConsultaVideo_cmd.Prepared = true
Set ConsultaVideo = ConsultaVideo_cmd.Execute
ConsultaVideo_numRows = 0
%>
<%
Dim ConsultaVideosDestinos
Dim ConsultaVideosDestinos_cmd
Dim ConsultaVideosDestinos_numRows
Set ConsultaVideosDestinos_cmd = Server.CreateObject ("ADODB.Command")
ConsultaVideosDestinos_cmd.ActiveConnection = MM_sportdivers_STRING
ConsultaVideosDestinos_cmd.CommandText = "SELECT * FROM submenu WHERE orden LIKE 4.2 ORDER BY suborden ASC"
ConsultaVideosDestinos_cmd.Prepared = true
Set ConsultaVideosDestinos = ConsultaVideosDestinos_cmd.Execute
ConsultaVideosDestinos_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
ConsultaFotosDestinos_numRows = ConsultaFotosDestinos_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
ConsultaVideosDestinos_numRows = ConsultaVideosDestinos_numRows + Repeat2__numRows
%>
Sport Divers Tienda de Buceo, Guadalajara, MEXICO.
