<% '============ Random Images Function ======================================================= Function RandomImage(strPath,strDefault) On Error Resume Next Randomize Timer Dim objFSO, objFolder, objFiles, objFile Dim strFiles, strImages, strPhysical, strFile Const strValid = ".gif.jpg.png.swf" If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47) strPhysical = Server.MapPath(strPath) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysical) Set objFiles = objFolder.Files For Each objFile in objFiles strFile = LCase(objFile.Name) If Instr(strValid,Right(strFile,4)) Then strFiles = strFiles & strFile & vbTab End If Next strImages = Split(strFiles,vbTab) If UBound(strImages) > 1 Then RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages))) Else RandomImage = strDefault End If End Function %>

  Date:

  About Us | Services | Rate Query | Shipment Tracking | FAQ | Careers | Contact Us
 
<%if ((session("username")="") or (session("password")="")) then %> <%else%> <%end if%>
 

 

 

User Name:

Password:

 
 

   Port Information ->> El Dekheila Port

" width="160" height="100">

" width="160" height="100">

"> " pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj34" width="160" height="100" quality="High">

<%'======================================================================================%>
 El Dekheila Port:
  El Dekheila Port
 Latitude  3108'N
 Longitude:  02949'E
 Time Zone:  GMT+2
 UNCTAD Code:  EGEDK
General Information
Total Area 6sq M
Handling Capacity: 12,75 Million Ton/Year
No Of Berthes: 16
Min Draft: 12m
Max Draft: 20m
Port Length: 3.65 Km
Total Yards Area: 869000 Sq M
PAGE TOP Terms and Conditions l Privacy Statement l Sitemap