<%@ Language=VBScript %> TRANS MISR shipping, clearing and trading <% '============ 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:

 
 

  Trans Misr News ..

" 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">

<%'======================================================================================%> <% NewsID = Request.QueryString("newsID") Set RsGuestList = Server.CreateObject ("ADODB.Recordset") RsGuestList.ActiveConnection = OBJdbConnection RsGuestList.CursorType = 1 RsGuestList.LockType = 3 RsGuestList.Open "SELECT * FROM News WHERE NewsID=" & NewsID Title=RsGuestList("Title") PostDate=RsGuestList("Date") Article=RsGuestList("Article") Article=Replace(Article, vbCrLf, "
") %>
 <%=Title%>

<%=Article%>

<%RsGuestList.close%>

 

 

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

PAGE TOP Terms and Conditions l Privacy Statement l Sitemap