<% '============ 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:

 
 

  Services ->> International Trucking Services

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

<%'======================================================================================%>

Trans Misr provides International Trucking Services from Egypt to all Arabian countries and to the Middle East.

Our experience in this field and our competitive rates make the difference with the concurrent firms.

We will always be able to reach wherever your traffic originated, and we are offering you top, custom made services to meet your requirements. Our Operation Department and Customer Service Officers are ready to receive your inquiry and comments.

PAGE TOP Terms and Conditions l Privacy Statement l Sitemap