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


  • Flat contains 2 Bedrooms and can sleep 4 to 6 people
  • Finished in an old style with old wooden beams and old Stone slabs.
  • Floor is all Cingattura (Flag Stone)
  • 2 bathrooms ensuit
  • Ground floor and the above in mine too.
  • Has its own Small Courtyard and can use the roof on top only for my own flats the airspace.
  • 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/ZerZur/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 .        Hosted by GoDaddył