%@LANGUAGE="VBSCRIPT"%> <% set Marques_nou = Server.CreateObject("ADODB.Recordset") Marques_nou.ActiveConnection = MM_Toyota_STRING Marques_nou.Source = "SELECT DISTINCT(Marca) AS Marques FROM Nous WHERE Tipo = ('cotxe');" Marques_nou.CursorType = 0 Marques_nou.CursorLocation = 2 Marques_nou.LockType = 3 Marques_nou.Open() Marques_nou_numRows = 0 %> <% set Motos_nou = Server.CreateObject("ADODB.Recordset") Motos_nou.ActiveConnection = MM_Toyota_STRING Motos_nou.Source = "SELECT DISTINCT(Marca) AS Marques FROM Nous WHERE Tipo = ('moto');" Motos_nou.CursorType = 0 Motos_nou.CursorLocation = 2 Motos_nou.LockType = 3 Motos_nou.Open() Motos_nou_numRows = 0 %> <% set Marques = Server.CreateObject("ADODB.Recordset") Marques.ActiveConnection = MM_Toyota_STRING Marques.Source = "SELECT * FROM Marcas_Ocasio" Marques.CursorType = 0 Marques.CursorLocation = 2 Marques.LockType = 3 Marques.Open() Marques_numRows = 0 %> <% set Marques_Accesoris = Server.CreateObject("ADODB.Recordset") Marques_Accesoris.ActiveConnection = MM_Toyota_STRING Marques_Accesoris.Source = "SELECT * FROM Marques_Accesoris" Marques_Accesoris.CursorType = 0 Marques_Accesoris.CursorLocation = 2 Marques_Accesoris.LockType = 3 Marques_Accesoris.Open() Marques_Accesoris_numRows = 0 %> <% set Model_Accesoris = Server.CreateObject("ADODB.Recordset") Model_Accesoris.ActiveConnection = MM_Toyota_STRING Model_Accesoris.Source = "SELECT * FROM Models_Accesoris" Model_Accesoris.CursorType = 0 Model_Accesoris.CursorLocation = 2 Model_Accesoris.LockType = 3 Model_Accesoris.Open() Model_Accesoris_numRows = 0 %>
|
||||||||||||||||||||||