<% Dim ConnectionString set objConn = Server.CreateObject("ADODB.Connection") 'define connection string, specify database driver and location of the database objConn.open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=213.171.200.85; PORT=3306; DATABASE=villas; USER=Nick_P2; PASSWORD=nick753848x2; OPTION=3;" location = "Tenerife" Onsite = "Yes" sql = "Select * from VillasFull" sql = sql & " Where Destination = " & "'" & location & "'" sql = sql & " And Live = " & "'" & Onsite & "'" Set villaRS = objConn.Execute (sql) %>

Villas With Pools

Villas With Pools

Tenerife Villa Rental Holidays 2021/2022

Tenerife Villa Rentals

Known as the sub-tropical Canary Island, toasty temperatures are more or less guaranteed in Tenerife. With a coastline that’s framed by beaches of both dark volcanic and champagne coloured sands, where fun in the sun is more or less compulsory – you’ll fall in love with everything Tenerife has to offer!

Tenerife Villas

<% while not villaRS.EOF %>

<%=villaRS("VillaName")%>, <%=villaRS("Resort")%>

Sleeps: <%=villaRS("Sleeps")%>
Tour Operator:
<%=villaRS("Top")%>

<%=villaRS("Description")%>

<% IF villaRS("Top") = "Olivers Travels" THEN %>

" target="new"> ">

<% ELSE %>

">

<% END IF %>

<% villaRS.MoveNext %> <% WEND %>

Tenerife Resorts

Playa De Las Americas - La Caleta - Costa Adeje

<% VillaRS.Close objConn.Close set villaRS = nothing set objConn = nothing %>