%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsLineas Dim rsLineas_numRows Set rsLineas = Server.CreateObject("ADODB.Recordset") rsLineas.ActiveConnection = MM_webVempo_STRING rsLineas.Source = "SELECT * FROM tbLineas" rsLineas.CursorType = 0 rsLineas.CursorLocation = 2 rsLineas.LockType = 1 rsLineas.Open() rsLineas_numRows = 0 %> <% Dim rsArticulos Dim rsArticulos_numRows Set rsArticulos = Server.CreateObject("ADODB.Recordset") rsArticulos.ActiveConnection = MM_webVempo_STRING rsArticulos.Source = "SELECT * FROM tbTipos" rsArticulos.CursorType = 0 rsArticulos.CursorLocation = 2 rsArticulos.LockType = 1 rsArticulos.Open() rsArticulos_numRows = 0 %>
|
||||||||||||||||||||||||
|
||||||||||||||||||||||||