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