<% 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 = "Almeria" 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

Almeria Villa Rental Holidays 2021/2022

Almeria Villa Rentals

Almeria 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 %>

Almeria Resorts:

Desert Springs Resort

 

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