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

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 %> <% 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 %> <% rcsCat.Close set rcsCat = Nothing %>
   
ANNO 
 
 
<% 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.
&codCat=<%=request("codCat")%>&descrMacro=<%=request("descrMacro")%>&descrCat=<%=request("descrCat")%>&ordina=MARCA ASC"> &codCat=<%=request("codCat")%>&descrMacro=<%=request("descrMacro")%>&descrCat=<%=request("descrCat")%>&ordina=MARCA DESC"> &codCat=<%=request("codCat")%>&descrMacro=<%=request("descrMacro")%>&descrCat=<%=request("descrCat")%>&ordina=ANNO ASC"> &codCat=<%=request("codCat")%>&descrMacro=<%=request("descrMacro")%>&descrCat=<%=request("descrCat")%>&ordina=ANNO DESC">