<%@ 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:

 
 

  Frequently Asked Questions (FAQ) ..

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

<%'======================================================================================%> <% Set RsGuestList = Server.CreateObject ("ADODB.Recordset") RsGuestList.ActiveConnection = OBJdbConnection RsGuestList.CursorType = 1 RsGuestList.LockType = 3 RsGuestList.Open "select * from FAQ order by Question" if RsGuestList.EOF then%>

No FAQ are currently available. If you need an answer to question, please submit your question using the web contact form.

<%else x=0%> <%do while not RsGuestList.eof x=x+1%> <%RsGuestList.MoveNext loop RsGuestList.close%> <% x=0 Set RsGuestList1 = Server.CreateObject ("ADODB.Recordset") RsGuestList1.ActiveConnection = OBJdbConnection RsGuestList1.CursorType = 1 RsGuestList.LockType = 3 RsGuestList1.Open "select * from FAQ order by Question" do while not RsGuestList1.eof x=x+1 Answer=RsGuestList1("Answer") Answer=Replace(Answer, vbCrLf, "
") %> <%RsGuestList1.MoveNext loop RsGuestList1.close%>

If you do not see an answer to your question you can submit your question using the web contact form.

- <%=RsGuestList("Question")%>

Q) <%=RsGuestList1("Question")%>
A) <%=Answer%>
<%end if%> <%'======================================================================================%>
PAGE TOP Terms and Conditions l Privacy Statement l Sitemap