<%
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "MenorcaVillas"
pg = TRIM( Request( "pg" ) )
IF pg = "" THEN pg = 1 END IF
Dte = TRIM(Request ("Dte") )
beds = TRIM(Request ("beds") )
rowCount = 0
Select Case Dte
Case "W1"
vDte = "Fri 01 April 05"
Case "W2"
vDte = "Fri 08 April 05"
Case "W3"
vDte = "Fri 15 April 05"
Case "W4"
vDte = "Fri 22 April 05"
Case "W5"
vDte = "Fri 29 April 05"
Case "W6"
vDte = "Fri 06 May 05"
Case "W7"
vDte = "Fri 13 May 05"
Case "W8"
vDte = "Fri 20 May 05"
Case "W9"
vDte = "Fri 27 May 05"
Case "W10"
vDte = "Fri 03 June 05"
Case "W11"
vDte = "Fri 10 June 05"
Case "W12"
vDte = "Fri 17 June 05"
Case "W13"
vDte = "Fri 14 June 05"
Case "W14"
vDte = "Fri 01 July 05"
Case "W15"
vDte = "Fri 08 July 05"
Case "W16"
vDte = "Fri 15 July 05"
Case "W17"
vDte = "Fri 22 July 05"
Case "W18"
vDte = "Fri 29 July 05"
Case "W19"
vDte = "Fri 05 August 05"
Case "W20"
vDte = "Fri 12 August 05"
Case "W21"
vDte = "Fri 19 August 05"
Case "W22"
vDte = "Fri 26 August 05"
Case "W23"
vDte = "Fri 02 September 05"
Case "W24"
vDte = "Fri 09 September 05"
Case "W25"
vDte = "Fri 16 September 05"
Case "W26"
vDte = "Fri 23 September 05"
Case "W27"
vDte = "Fri 30 September 05"
Case "W28"
vDte = "Fri 07 October 05"
Case "W29"
vDte = "Fri 14 September 05"
Case "W30"
vDte = "Fri 21 September 05"
End Select
sql2 = "Select * from Availability "
sql2 = sql2 & "Where " & Dte & " = " & False
sql2 = sql2 & " And Bedrooms = " & beds
sql2 = sql2 & " Order By VillaName"
Set villaRS = Server.CreateObject( "ADODB.Recordset" )
villaRS.ActiveConnection = Con
villaRS.CursorType = 3
villaRS.PageSize = 60
%>
Holiday Villas :: Villa Holidays in Menorca :: Spain
To make a reservation either call our sales office on 0845 344 0342 or complete our enquiry form which can be found by clicking the link in the villa description page.
