%@LANGUAGE="VBScript" CODEPAGE="1252"%> <% Dim lmusados__MMColParam lmusados__MMColParam = "-1" If (Request("MM_EmptyValue") <> "") Then lmusados__MMColParam = Request("MM_EmptyValue") End If Dim lmusados Dim lmusados_cmd Dim lmusados_numRows Set lmusados_cmd = Server.CreateObject ("ADODB.Command") lmusados_cmd.ActiveConnection = MM_grijos_STRING lmusados_cmd.CommandText = "SELECT * FROM fsall WHERE Hide <> ? ORDER BY Marca ASC" lmusados_cmd.Prepared = true lmusados_cmd.Parameters.Append lmusados_cmd.CreateParameter("param1", 11, 1, -1, lmusados__MMColParam) ' adBoolean Set lmusados = lmusados_cmd.Execute lmusados_numRows = 0 Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 lmusados_numRows = lmusados_numRows + Repeat1__numRows menu = 4 page = 1 %>

| Marca | Modelo | Color | Año | Ubicación |
| <%=(lmusados.Fields.Item("Marca").Value)%> | <%=(lmusados.Fields.Item("Modelo").Value)%> | <%=(lmusados.Fields.Item("Color").Value)%> | <%=(lmusados.Fields.Item("Anio").Value)%> | <%=(lmusados.Fields.Item("Ubic").Value)%> |