<%@ Language=VBScript %> <% if request.Form("Submit")="Track" then '============ form variables history ================================ BLNo=trim(request.form("BLNo")) BLMonth=trim(request.form("BLMonth")) BLDay=trim(request.form("BLDay")) BLYear=trim(request.form("BLYear")) '====== check if shipment exists =================================== Set RsGuestList = Server.CreateObject ("ADODB.Recordset") RsGuestList.ActiveConnection = OBJdbConnection RsGuestList.CursorType = 1 RsGuestList.LockType = 3 RsGuestList.Open "select * from Shipments where (MasterBL='"&BlNo&"' and Day(MasterBLDate)='"&BLDay&"' and Month(MasterBLDate)='"&BLMonth&"' and Year(MasterBLDate)='"&BLYear&"') or (HouseBL='"&BlNo&"' and Day(HouseBLDate)='"&BLDay&"' and Month(HouseBLDate)='"&BLMonth&"' and Year(HouseBLDate)='"&BLYear&"')" '====== shipment exists ============================================ if not RsGuestList.EOF then msg="exists" ShipmentType=RsGuestList("ShipmentType") if ShipmentType="Sea" then UserID=RsGuestList("UserID") MasterBL=RsGuestList("MasterBL") MasterBLDate=RsGuestList("MasterBLDate") HouseBL=RsGuestList("HouseBL") HouseBLDate=RsGuestList("HouseBLDate") Shipper=RsGuestList("Shipper") Consignee=RsGuestList("Consignee") Notify=RsGuestList("Notify") Vessel=RsGuestList("Vessel") VoyageNo=RsGuestList("VoyageNo") VoyageDate=RsGuestList("VoyageDate") ETA=RsGuestList("ETA") ETD=RsGuestList("ETD") LoadPort=RsGuestList("LoadPort") DischargePort=RsGuestList("DischargePort") Status=RsGuestList("Status") elseif ShipmentType="Air" then UserID=RsGuestList("UserID") MasterBL=RsGuestList("MasterBL") MasterBLDate=RsGuestList("MasterBLDate") HouseBL=RsGuestList("HouseBL") HouseBLDate=RsGuestList("HouseBLDate") Shipper=RsGuestList("Shipper") Consignee=RsGuestList("Consignee") Notify=RsGuestList("Notify") Vessel=RsGuestList("Vessel") VoyageNo=RsGuestList("VoyageNo") VoyageDate=RsGuestList("VoyageDate") ETA=RsGuestList("ETA") ETD=RsGuestList("ETD") LoadPort=RsGuestList("LoadPort") DischargePort=RsGuestList("DischargePort") Status=RsGuestList("Status") elseif ShipmentType="Clearance" then UserID=RsGuestList("UserID") MasterBL=RsGuestList("MasterBL") MasterBLDate=RsGuestList("MasterBLDate") HouseBL=RsGuestList("HouseBL") HouseBLDate=RsGuestList("HouseBLDate") Company=RsGuestList("Company") DeclarationNo=RsGuestList("DeclarationNo") ShippingLine=RsGuestList("ShippingLine") Commodity=RsGuestList("Commodity") ArrivalDate=RsGuestList("ArrivalDate") DocumentsDate=RsGuestList("DocumentsDate") DeliveryOrderDate=RsGuestList("DeliveryOrderDate") ReleaseDate=RsGuestList("ReleaseDate") DutiesAmount=RsGuestList("DutiesAmount") DutiesDate=RsGuestList("DutiesDate") Volume=RsGuestList("Volume") Packages=RsGuestList("Packages") Procedures=RsGuestList("Procedures") CustomsOperation=RsGuestList("CustomsOperation") Status=RsGuestList("Status") end if RsGuestList.close else '====== user doesn't exists ======================================== RsGuestList.close msg="error" end if end if %> 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:

 
 

  Shipment Tracking ..

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

<%if msg="exists" then%> <%end if%>
"exists" then%>height="185" <%end if%> > <%'======================================================================================================%>

<% if msg="error" then %> <% end if%>

Enter your B/L number and date in the below boxes and click "Track".

Unable to find shipment, the information you have inserted might be incorrect. Please try again.

B/L Number:
B/L Date: Day:      Month:    Year:

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

Tracking Results

<%if ShipmentType="Sea" then%> <%if MasterBL<>"" then%> <%end if%> <%if MasterBLDate<>"" then%> <%end if%> <%if HouseBL<>"" then%> <%end if%> <%if HouseBLDate<>"" then%> <%end if%> <%if Shipper<>"" then%> <%end if%> <%if Consignee<>"" then%> <%end if%> <%if Notify<>"" then%> <%end if%> <%if Vessel<>"" then%> <%end if%> <%if VoyageNo<>"" then%> <%end if%> <%if VoyageDate<>"" then%> <%end if%> <%if ETA<>"" then%> <%end if%> <%if ETD<>"" then%> <%end if%> <%if LoadPort<>"" then%> <%end if%> <%if DischargePort<>"" then%> <%end if%> <%if Status<>"" then%> <%end if%> <%elseif ShipmentType="Air" then%> <%if MasterBL<>"" then%> <%end if%> <%if MasterBLDate<>"" then%> <%end if%> <%if HouseBL<>"" then%> <%end if%> <%if HouseBLDate<>"" then%> <%end if%> <%if Shipper<>"" then%> <%end if%> <%if Consignee<>"" then%> <%end if%> <%if Notify<>"" then%> <%end if%> <%if Vessel<>"" then%> <%end if%> <%if VoyageNo<>"" then%> <%end if%> <%if VoyageDate<>"" then%> <%end if%> <%if ETA<>"" then%> <%end if%> <%if ETD<>"" then%> <%end if%> <%if LoadPort<>"" then%> <%end if%> <%if DischargePort<>"" then%> <%end if%> <%if Status<>"" then%> <%end if%> <%elseif ShipmentType="Clearance" then%> <%if MasterBL<>"" then%> <%end if%> <%if MasterBLDate<>"" then%> <%end if%> <%if HouseBL<>"" then%> <%end if%> <%if HouseBLDate<>"" then%> <%end if%> <%if Company<>"" then%> <%end if%> <%if DeclarationNo<>"" then%> <%end if%> <%if ShippingLine<>"" then%> <%end if%> <%if Commodity<>"" then%> <%end if%> <%if ArrivalDate<>"" then%> <%end if%> <%if DocumentsDate<>"" then%> <%end if%> <%if DeliveryOrderDate<>"" then%> <%end if%> <%if ReleaseDate<>"" then%> <%end if%> <%if DutiesAmount<>"" then%> <%end if%> <%if DutiesDate<>"" then%> <%end if%> <%if Volume<>"" then%> <%end if%> <%if Packages<>"" then%> <%end if%> <%if Procedures<>"" then%> <%end if%> <%if CustomsOperation<>"" then%> <%end if%> <%if Status<>"" then%> <%end if%> <%end if%>
Master B/L No.:  <%=MasterBL%>
Master B/L date:  <%=MonthName(Month(MasterBLDate), 1) %> <%=Day(MasterBLDate)%>, <%=Year(MasterBLDate)%>
House B/L No.:  <%=HouseBL%>
House B/L date:  <%=MonthName(Month(HouseBLDate), 1) %> <%=Day(HouseBLDate)%>, <%=Year(HouseBLDate)%>
Shipper:  <%=Shipper%>
Consignee:  <%=Consignee%>
Notify:  <%=Notify%>
Vessel:  <%=Vessel%>
Voyage No.:  <%=VoyageNo%>
Voyage date:  <%=VoyageDate%>
ETA:  <%=ETA%>
ETD:  <%=ETD%>
P.O.L:  <%=LoadPort%>
P.O.D:  <%=DischargePort%>
Status:  <%=Status%>
Master AWB/L No.:  <%=MasterBL%>
Master AWB/L date:  <%=MonthName(Month(MasterBLDate), 1) %> <%=Day(MasterBLDate)%>, <%=Year(MasterBLDate)%>
House AWB/L No.:  <%=HouseBL%>
House AWB/L date:  <%=MonthName(Month(HouseBLDate), 1) %> <%=Day(HouseBLDate)%>, <%=Year(HouseBLDate)%>
Shipper:  <%=Shipper%>
Consignee:  <%=Consignee%>
Notify:  <%=Notify%>
Flight:  <%=Vessel%>
Voyage No.:  <%=VoyageNo%>
Voyage date:  <%=MonthName(Month(VoyageDate), 1) %> <%=Day(VoyageDate)%>, <%=Year(VoyageDate)%>
ETA:  <%=ETA%>
ETD:  <%=ETD%>
Departure airport:  <%=LoadPort%>
Arrival airport:  <%=DischargePort%>
Status:  <%=Status%>
Master B/L No.:  <%=MasterBL%>
Master B/L date:  <%=MonthName(Month(MasterBLDate), 1) %> <%=Day(MasterBLDate)%>, <%=Year(MasterBLDate)%>
House B/L No.:  <%=HouseBL%>
House B/L date:  <%=MonthName(Month(HouseBLDate), 1) %> <%=Day(HouseBLDate)%>, <%=Year(HouseBLDate)%>
Company:  <%=Company%>
Declaration No.  <%=DeclarationNo%>
Shipping line:  <%=ShippingLine%>
Commodity:  <%=Commodity%>
M/V arrival date:  <%=MonthName(Month(ArrivalDate), 1) %> <%=Day(ArrivalDate)%>, <%=Year(ArrivalDate)%>
Documents date:  <%=MonthName(Month(DocumentsDate), 1) %> <%=Day(DocumentsDate)%>, <%=Year(DocumentsDate)%>
Delivery order date:  <%=MonthName(Month(DeliveryOrderDate), 1) %> <%=Day(DeliveryOrderDate)%>, <%=Year(DeliveryOrderDate)%>
Release date:  <%=MonthName(Month(ReleaseDate), 1) %> <%=Day(ReleaseDate)%>, <%=Year(ReleaseDate)%>
Customs duties amount:  <%=DutiesAmount%>
Duties date:  <%=MonthName(Month(DutiesDate), 1) %> <%=Day(DutiesDate)%>, <%=Year(DutiesDate)%>
Volume:  <%=Volume%>
No. of packages:  <%=Packages%>
Procedures:  <%=Procedures%>
Customs operation type:  <%=CustomsOperation%>
Status:  <%=Status%>
<%'======================================================================================================%>
PAGE TOP Terms and Conditions l Privacy Statement l Sitemap