When it comes to renting or leasing a car in Europe, our aggressive safety research over the last 40 years has made us the unrivaled leader in European auto safety; the only automaker to obtain Euro NCAP's maximum 5-star safety rating on five of its vehicles.

With major technological innovations in accident prevention and vehicle occupant protection devices, Renault strives to provide the same optimum safety level for both front and rear seat passengers.  So it is no coincidence that Renault is a leader in vehicle excellence. Our aim has always been to protect you and your family.

We hope this page provides you with the information you need to decide which Renault vehicle is ideal for your next European vacation.  Other pictures are available by clicking on the car image.  Please note that all our cars come with air-conditioning.

Please note: car pictures on our site are non-contractual.  

<% Dim ad, ch ad = "" ch = "" Dim strPath, objFSO, objFolder Dim prefix, count strPath = "Models/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DSN=R2G2;Database=R2G2;UID=;PWD=;" objConn.Open strSQL = "SELECT DISTINCT * FROM carsDIST WHERE CarRank > 0 ORDER BY CarRank;" Set obRS = Server.CreateObject("ADODB.Recordset") On Error Resume Next obRS.Open strSQL, objConn If Err.Description <> "" Then Response.Write "" + Err.Description + "" Response.End Else If obRS.EOF And obRS.BOF Then Response.Write "" Response.Write "

No cars found in our online database.  Please call our office.

" Response.Write "" Else Set FSO = Server.CreateObject("Scripting.FileSystemObject") Do Until obRS.EOF AdultsNoChild = obRS("AdultsNoChild") AdultsWithChild = obRS("AdultsWithChild") Children = obRS("Children") CarLength = obRS("CarLength") CarWidth = obRS("CarWidth") CarHeight = obRS("CarHeight") Trunk = obRS("Trunk") BarName = obRS("BarName") FootNote = obRS("FootNote") BarImage = BarName & "Bar.jpg" Pict = Server.MapPath( "Models") & "\" & BarName & ".jpg" If not FSO.FileExists(Pict) Then Pic = "ComingSoon.gif" Else Pic = BarName & ".jpg" End If count = CountImages(BarName) %>

Length	<%=CarLength%> ft.	Click On Car for More Images.
Width	<%=CarWidth%> ft.
Height	<%=CarHeight%> ft.
Trunk	<%=Trunk%> cu. ft.
Passengers	<%=Passengers(AdultsNoChild,AdultsWithChild,Children)%>
<%=FootNote%>

<% obRS.MoveNext Loop Set FSO = Nothing End If obRS.Close End If set obRS = Nothing objConn.close Set objConn = Nothing Set objFolder = Nothing Set objFSO = Nothing Function CountImages(prefix) Dim objItem, n, k, str prefix = LCase(prefix) n = Len(prefix) k = 0 For Each objItem In objFolder.Files str = LCase(objItem.Name) If Left(str,n) = prefix And Right(objItem.Name,4) = ".jpg" And Len(str) = (n + 5) Then k = k + 1 End If Next Set objItem = Nothing CountImages = k End Function Function Passengers(p,p1,p2) p = CInt(p) p1 = CInt(p1) p2 = CInt(p2) ' clio - use children with option If p < (p1 + p2) And p <= p1 Then For l = 1 To p1 Response.write ad Next For l = 1 To p2 Response.write ch Next Else ' kangoo - use both If p < p1 + p2 And p1 > 1 And p2 > 1 Then For l = 1 To p Response.write ad Next Response.write "OR" For l = 1 To p1 Response.write ad Next For l = 1 To p2 Response.write ch Next Else ' Megane/trafic - use adult option If p = (p1 + p2) Or ((p1 + p2) = 0) Then For l = 1 To p Response.write ad Next End If End If End If End Function %>

Webmaster:  © 2000-2008, Corporate Technology, Inc.