%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim country Dim country_numRows Set country = Server.CreateObject("ADODB.Recordset") country.ActiveConnection = MM_props_STRING country.Source = "SELECT * FROM ozvilla_newedge.vwHeadAllCount ORDER BY countryname ASC" country.CursorType = 0 country.CursorLocation = 2 country.LockType = 1 country.Open() country_numRows = 0 %> <% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_props_STRING rs.Source = "SELECT propertyID, pName, country, subregion1, subregion2, subregion3, subregion4, AdHeadline, pBedrooms, pSleeps, aRateFrom, aRateTo, photo1, photo1a FROM ozvilla_newedge.tblProperties WHERE AdStatus='1' AND inthemed='1' AND photo1<>'comingsoon' AND photo1a='1' ORDER BY propertyID DESC" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 rs_numRows = rs_numRows + Repeat1__numRows %>
Private villas to rent in spain, florida holiday homes and worldwide villas direct from the owner or agent |
|
|
© Copyright 2009 new edge media ltd |