%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Izquierda Dim Izquierda_numRows Set Izquierda = Server.CreateObject("ADODB.Recordset") Izquierda.ActiveConnection = MM_CafeDeCalaGamba_STRING Izquierda.Source = "SELECT * FROM dbo.Eventos WHERE Posicion=1" Izquierda.CursorType = 0 Izquierda.CursorLocation = 2 Izquierda.LockType = 1 Izquierda.Open() Izquierda_numRows = 0 %> <% Dim Centro Dim Centro_numRows Set Centro = Server.CreateObject("ADODB.Recordset") Centro.ActiveConnection = MM_CafeDeCalaGamba_STRING Centro.Source = "SELECT * FROM dbo.Eventos WHERE Posicion=2" Centro.CursorType = 0 Centro.CursorLocation = 2 Centro.LockType = 1 Centro.Open() Centro_numRows = 0 %> <% Dim Derecha Dim Derecha_numRows Set Derecha = Server.CreateObject("ADODB.Recordset") Derecha.ActiveConnection = MM_CafeDeCalaGamba_STRING Derecha.Source = "SELECT * FROM dbo.Eventos WHERE Posicion=3" Derecha.CursorType = 0 Derecha.CursorLocation = 2 Derecha.LockType = 1 Derecha.Open() Derecha_numRows = 0 %>
|
|||||||||||||||||||||