%@LANGUAGE="VBSCRIPT"%> <% Dim galeria Dim galeria_numRows Set galeria = Server.CreateObject("ADODB.Recordset") galeria.ActiveConnection = MM_conn_STRING galeria.Source = "SELECT * FROM GALERIA WHERE BAJA=0 ORDER BY FECHA DESC" galeria.CursorType = 0 galeria.CursorLocation = 2 galeria.LockType = 1 galeria.Open() galeria_numRows = 0 %> <% primera_galeria=galeria("ID_GALERIA") %> <% Dim galeria_sel__MMColParam galeria_sel__MMColParam = primera_galeria If (Request.QueryString("id") <> "") Then galeria_sel__MMColParam = Request.QueryString("id") End If %> <% Dim galeria_sel Dim galeria_sel_numRows Set galeria_sel = Server.CreateObject("ADODB.Recordset") galeria_sel.ActiveConnection = MM_conn_STRING galeria_sel.Source = "SELECT * FROM GALERIA WHERE ID_GALERIA = " + Replace(galeria_sel__MMColParam, "'", "''") + "" galeria_sel.CursorType = 3 galeria_sel.CursorLocation = 2 galeria_sel.LockType = 1 galeria_sel.Open() galeria_sel_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 galeria_numRows = galeria_numRows + Repeat1__numRows %> <% total_fotos = galeria_sel("NUMERO_IMAGENES") %>
|
|||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||