<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

	CVR dispone di un vasto parco usato con veicoli di tutte le marche e di ogni tipologia, revisionati e collaudati. Visitate il nostro catalogo in linea. La nostra organizzazione commerciale è a Vostra disposizione per ulteriori informazioni sui veicoli di Vostro interesse. PORTATA COMPLESSIVA  <% set rcsMacroCat = Server.CreateObject("ADODB.Recordset") rcsMacroCat.ActiveConnection = connect rcsMacroCat.CursorType = 3 rcsMacroCat.LockType = 3 sqlString = "SELECT * FROM MACROCAT" rcsMacroCat.open sqlString %> <-- Selezionare --> <% while not rcsMacroCat.Eof %> <% If request("Macrocategoria") <> rcsMacroCat("CODICE") then %> "><%=rcsMacroCat("DESCRIZIONE")%> <% Else %> " selected><%=rcsMacroCat("DESCRIZIONE")%> <% End if %> <% rcsMacroCat.MoveNext wend %> <% rcsMacroCat.Close set rcsMacroCat = Nothing %>     ALLESTIMENTO  <% set rcsCat = Server.CreateObject("ADODB.Recordset") rcsCat.ActiveConnection = connect rcsCat.CursorType = 3 rcsCat.LockType = 3 sqlString = "SELECT * FROM CATEGORIE" rcsCat.open sqlString %> <-- Selezionare --> <% while not rcsCat.Eof %> <% If request("Allestimento") <> rcsCat("CODICE") then %> "><%=rcsCat("DESCRIZIONE")%> <% Else %> " selected><%=rcsCat("DESCRIZIONE")%> <% End if%> <% rcsCat.MoveNext wend %> <% rcsCat.Close set rcsCat = Nothing %>     ANNO  <-- Selezionare --> dal 2001 al 2004 dal 1996 al 2000 dal 1990 al 1995 altro     <% If request("Cerca") = 1 Then %> <% set rcsElencoVeicoli = Server.CreateObject("ADODB.Recordset") rcsElencoVeicoli.ActiveConnection = connect rcsElencoVeicoli.CursorType = 3 rcsElencoVeicoli.LockType = 3 sqlString = "SELECT * FROM VEICOLI " If request("Macrocategoria") <> "" OR request("Allestimento") <> "" OR request("Anno") <> "" then sqlString = sqlString & "WHERE Codice <> 0 " If request("Macrocategoria") <> "" Then sqlString = sqlString & "AND COD_MACRO = '" & request("Macrocategoria") & "'" End if If request("Allestimento") <> "" Then sqlString = sqlString & "AND COD_MACRO = '" & request("Macrocategoria") & "'" End if If request("Anno") <> "" Then Select case request("Anno") case "2001-2004" sqlString = sqlString & "AND Anno <= '2004' AND Anno >= '2001'" case "1996-2000" sqlString = sqlString & "AND Anno <= '2000' AND Anno >= '1996'" case "1990-1995" sqlString = sqlString & "AND Anno <= '1995' AND Anno >= '1990'" case "altro" sqlString = sqlString & "AND Anno < '1990' OR Anno > '2004'" End select End if End if if request("ordina") <> "" then sqlString = sqlString & " ORDER BY " & request("ordina") & "" end if 'response.Write(sqlString) 'response.End() rcsElencoVeicoli.open sqlString %> <% if rcsElencoVeicoli.RecordCount = 0 then %> <% else %> <% end if %> <% else %> <% end if %> ATTENZIONE. NELLA CATEGORIA SELEZIONATA NON CI SONO VEICOLI DISPONIBILI. <% while not rcsElencoVeicoli.EOF %> <% rcsElencoVeicoli.MoveNext wend %> ">" width=60 height=60 border=0> MARCA <%=rcsElencoVeicoli("MARCA")%> MODELLO <%=rcsElencoVeicoli("MODELLO")%> ALLESTIMENTO <%=rcsElencoVeicoli("ALLESTIMENTO")%> SELEZIONARE ALMENO UN PARAMETRO.