<% set fs = server.CreateObject("scripting.filesystemobject") set folder = fs.getfolder(server.MapPath("images/tacelest/gal")) %>


  • Flat consists of 3 Bedrooms and can sleep 6
  • 1 bathroom and 1 shower room ensuit
  • Use of air space
  • A quiet area in Gharb in Virtu Street


    Click on pictures to enlarge.

  • <% maxwindowwidth ="" 500 MaxWindowHeight = 500 ' Set Image = Server.CreateObject("csImageFile.Manage") FOR EACH file in folder.files IF RIGHT(UCASE(file.name),3) = "JPG" THEN PictureCount = PictureCount + 1 'Image.ReadFile Server.MapPath("images/ZerZur/gal/" & file.name ) set myImg = loadpicture(Server.MapPath("images/tacelest/gal/" & file.name)) Width = round(myImg.width / 26.4583) Height = round(myImg.height / 26.4583) set myImg = nothing IF Width > MaxWindowWidth OR Height > MaxWindowHeight THEN NewHeight = CINT((Height/Width) * MaxWindowWidth) IF NewHeight > MaxWindowHeight THEN 'Resizing Based On Height NewHeight = MaxWindowHeight NewWidth = CINT((NewHeight/Height) * Width) ELSE NewWidth = MaxWindowWidth END IF ELSE NewHeight = Height NewWidth = Width END IF %> <% if PictureCount mod 3 = 0 THEN Response.Write("") END IF NEXT IF PictureCount mod 3 <> 0 THEN FOR x = 1 to (3-(PictureCount mod 3)) response.Write("") NEXT END IF set fs = nothing ' set Image = nothing %>
     
     


    © Joe Cauchi .      Designed and  Hosted by OSł