%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsMarcasPais Dim rsMarcasPais_numRows Set rsMarcasPais = Server.CreateObject("ADODB.Recordset") rsMarcasPais.ActiveConnection = MM_repuestos_STRING rsMarcasPais.Source = "select m.descMarca, p.descPais, m.idMarca, p.idPais from Marcas m, MarcasPais mp, Pais p where mp.idPais="""&Request("pais")&""" and m.idMarca=mp.idMarca and mp.idPais=p.idPais order by mp.orden" rsMarcasPais.CursorType = 0 rsMarcasPais.CursorLocation = 2 rsMarcasPais.LockType = 1 rsMarcasPais.Open() rsMarcasPais_numRows = 0 %> <% Dim pais Dim pais_numRows Set pais = Server.CreateObject("ADODB.Recordset") pais.ActiveConnection = MM_repuestos_STRING pais.Source = "SELECT * FROM dbo.Pais ORDER BY descPais ASC" pais.CursorType = 0 pais.CursorLocation = 2 pais.LockType = 1 pais.Open() pais_numRows = 0 %>