<% ' Declare our variables... always good practice! Dim cnnSimple ' ADO connection Dim rstSimple ' ADO recordset Dim strDBPath ' path to our Access database (*.mdb) file Dim SCRIPT_NAME Dim CarSelect, CarMyType SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME") ' MapPath of virtual database file path to a physical path. ' If you want you could hard code a physical path here. strDBPath = Server.MapPath("../../data/MyData.mdb") ' Create an ADO Connection to connect to the scratch database. ' We're using OLE DB but you could just as easily use ODBC or a DSN. Set cnnSimple = Server.CreateObject("ADODB.Connection") ' This line is for the Access sample database: cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" ' We're actually using SQL Server so we use this line instead: 'cnnSimple.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _ ' & "Initial Catalog=samples;User Id=samples;Password=password;" _ ' & "Connect Timeout=15;Network Library=dbmssocn;" ' Execute a query using the connection object. It automatically ' creates and returns a recordset which we store in our variable. strSQL = "SELECT * FROM CarsT WHERE CarGroup = '" & Request.QueryString("CarGroup") & "';" Set rstSimple = cnnSimple.Execute(strSQL) ' Display a table of the data in the recordset. We loop through the ' recordset displaying the fields from the table and using MoveNext ' to increment to the next record. We stop when we reach EOF. 'Response.write "Status Variable = " & S1 'Response.write strSQL EuroPrice = formatnumber((rstSimple.Fields("W2days").value),2) EuroPrice = "€" & EuroPrice CarSelect = "../Cars/" & rstSimple.Fields("CarPhoto").value CarMyType = rstSimple.Fields("CarType").value %>

" width="190" height="120">

  Car Rentals
Home
About us
Car Rental
Bike Rental
Villas & Flats
Testimonials
Contact us

<%= rstSimple.Fields("CarType").Value %>

" width="160" height="106" alt="Reserve this Car">

<%= rstSimple.Fields("CarDescription").Value %>

Rates
Winter Rates - EURO (€) per day
1st November - 31st March 		Summer Rates - EURO (€) per day
1st April - 31st October
2 days 3-7 days 8-15 days 16-28 days 2 days 3-7 days 8-15 days 16-28 days
<%=EuroPrice%> <%= "€" & formatNumber((rstSimple.Fields("W2to7days").Value),2) %> <%= "€" & formatNumber((rstSimple.Fields("W8to15days").Value),2) %> <%= "€" & formatNumber((rstSimple.Fields("W16to28days").Value),2) %> <%= "€" & formatNumber((rstSimple.Fields("S2days").Value),2) %> <%= "€" & formatNumber((rstSimple.Fields("S2to7days").Value),2) %> <%= "€" & formatNumber((rstSimple.Fields("S8to15days").Value),2) %> <%= "€" & formatNumber((rstSimple.Fields("S16to28days").Value),2) %>
<% ' Close our recordset and connection and dispose of the objects rstSimple.Close Set rstSimple = Nothing cnnSimple.Close Set cnnSimple = Nothing ' That's all folks! %>

Reserve this Car

Above prices include:
• 15% VAT
• Fully comprehensive insurance
• Personal accident insurance
• Collection and delivery from/to Paphos Airport or Hotel or villa
• Unlimited mileage
• Free additional drivers
• Infant, baby and booster seats if required
• Road maps

There is EUR€300.00 excess on the insurance, which can be waived for an optional further payment of EUR€2.00 per day. This insurance does not cover damage to the tyres, windscreen or the oil sump. These can be covered with an optional further payment of EUR€2.00 per day. Please note that our insurance does not cover driving within the Turkish Occupied Area.

Regarding the fuel we will deliver the car “as it comes” and you have to return it at the same level. For your convenience, we can deliver it full or put only 20 or 30 or 40 Euros. We will charge you for the fuel and you then return it empty.