<%session("linko")="3"%> :: Uts express Cargo ::

Tracking

Enter Consignment Awb.Nos.
( Separate multiple Tracking By Enter-Key )
<% dim arr1 'response.Write(request.Form("awbno")) track = trim((request.form("awbno"))) track=Replace(track, vbCrLf, "
") track=Replace(track,",","
") arr = Split(track,"
") counter = 0 for i=0 to ubound(arr) 'Response.Write(ubound(arr)) 'ar = "" if arr(i) <> "" then if isnumeric(arr(i)) = true then ar = abs(arr(i)) 'Response.Write(ar) 'ar = Replace(ar," ","") 'response.Write(len(ar)) else if len(arr(i)) > 3 then ' if isnumeric(mid(arr(i),4,len(arr(i))-3)) = true then ar = arr(i) 'response.Write(ar) ' end if end if end if end if if ar <> "" then set rs1 = mycon.execute("select awbno from EntryMast where awbno = '"& ar &"'") 'response.Write("select awbno from BillEntry where awbno = '"&ar&"'") counter = counter + 1 if rs1.eof then %> <% else set rs2 = mycon.execute("select e.*,D.Destination_Name as Destination from EntryMast as e,DestinationMast as D where E.Origin_code=D.Destination_Code and awbno = '" & ar & "'") 'set rs = mycon.execute("select * from tracking where awbno = '" & ar & "'") set rsTmp = mycon.execute("select * from TempPODEntry where awbno = '" & ar & "'") awb = "" st = "" Consignor="" Consig = "" modeType = "" origin = "" dest = "" bkdt = "" webAgt = "" venAwb = "" vendor = "" deldt = "" delvtime = "" remark = "" recev = "" tmpAwb = "" tmpDeldt = "" tmpDeltime = "" tempFromDest = "" tmpDest = "" tmpRemark = "" sign="" stamp="" refNo="" if not rs2.eof then awb = trim(rs2("awbno")) st = trim(rs2("status")) Consignor= trim(rs2("Customer_Name")) Consig = trim(rs2("Consignee_Name")) 'modeType = trim(rs2("Product_Name")) origin = trim(rs2("Destination")) dest = trim(rs2("Destination_Name")) bkdt = day(rs2("BookDate")) & "/" & Right("0" & month(rs2("BookDate")),2) & "/" & year(rs2("BookDate")) 'bkdt = trim(rs2("bookdt")) webAgt = trim(rs2("WebAgent")) venAwb = trim(rs2("VendorAwbNo1")) 'vendor = trim(rs2("Vendor_name")) deldt = day(rs2("delvdt"))&"/" & Right("0" & month(rs2("delvdt")),2) & "/" & year(rs2("delvdt")) 'delvtime= Hour(rs2("delvTime")) & ":" & Minute(rs2("delvTime")) delvtime= Right("0" & Hour(rs2("delvTime")), 2) & ":" & Right("0" & Minute(rs2("delvTime")), 2) remark = trim(rs2("remark")) recev = trim(rs2("RecvName")) sign= rs2("Sign") stamp= rs2("Stamp") refNo = day(rs2("ExptDateOfDelvDt"))&"/" & Right("0" & month(rs2("ExptDateOfDelvDt")),2) & "/" & year(rs2("ExptDateOfDelvDt")) end if 'if not rs.eof then 'deldt = day(rs("delvdt"))&"/" & month(rs("delvdt")) & "/" & year(rs("delvdt")) 'deldt = trim(rs("delvdt")) 'delvtime = trim(rs("delvtime")) 'remark = trim(rs("remark")) 'recev = trim(rs("RecvName")) 'end if if not rsTmp.eof then tmpAwb = trim(rsTmp("awbno")) 'tmpDeldt = day(rsTmp("delvdt"))&"/" & month(rsTmp("delvdt")) & "/" & year(rsTmp("delvdt")) 'tmpDeltime = trim(rsTmp("DelvTime")) 'tmpDest = trim(rsTmp("Destination_name")) 'tmpRemark = trim(rsTmp("Remark")) end if %> <% 'rs.close rs2.close end if rs1.close end if next mycon.close set mycon = nothing %>
 
  Air way Bill No
<%=ar%> This airway bill does not exist.    
  Air way Bill No
  Referance Destination Booking Date Status
<% 'response.write(venAwb) if trim(tmpAwb) = trim(awb) then 'if trim(ucase(webAgt))= "DHL" or trim(ucase(webAgt))="SKYCOM2000"then response.write(""+awb+"") 'response.Write("DHL") else response.Write(awb) 'response.write ("No DHL") end if %> <% if trim(venAwb) = "" then response.write("--") else if not trim(webAgt) = "" then if trim(webAgt)="aramex" then response.write(""+venAwb+"") elseif trim(webAgt)="tnt" then response.write(""+venAwb+"") elseif trim(webAgt)="fedex" then response.write(""+venAwb+"") elseif trim(webAgt)="dhl" then response.write(""+venAwb+"") elseif trim(webAgt)="ocstracking" then response.write(""+venAwb+"") elseif trim(webAgt)="dhl-usa" then response.write(""+venAwb+"") elseif trim(webAgt)="ups" then response.write(""+venAwb+"") elseif trim(webAgt)="airwingsindia" then response.write(""+venAwb+"") elseif trim(webAgt)="dtdc" then response.write(""+venAwb+"") elseif trim(webAgt)="afl" then response.write(""+venAwb+"") elseif trim(webAgt)="tcixps" then response.write(""+venAwb+"") elseif trim(webAgt)="bluedart" then response.write(""+venAwb+"") else response.write(venAwb) end if else response.Write(venAwb) end if 'response.write(venAwb) end if %> <% if trim(dest) = "" then response.write("--") else response.write(dest) end if %> <% if trim(bkdt) = "" then response.write("--") else response.write(bkdt) end if %> <% if trim(st) = "" then response.write("--") else response.write(" "&st&" ") 'response.write(st) end if %>
<% if trim(bkdt) = "" then response.write("--") else response.write(awb) end if %> <% if trim(bkdt) = "" then response.write("--") else response.write("Details["&st&"]") end if %>    
  Consignor Name
  <% if trim(Consig) = "" then response.write("--") else response.write(Consignor) end if %>    
  Consignee Name
<% if trim(Consig) = "" then response.write("") else response.write(Consig) end if %>
  Origin
  <% if (sign) =""then response.write("") else response.write(Origin) end if %>    
  Destination
  <% if trim(dest) = "" then response.write("") else response.write(dest) end if %>    
  Status
  <% if trim(st) = "" then response.write("--") else response.write(st) end if %>    
  Expt.Date of delivery
<% if trim(refNo) = "1/01/1900" then response.write("") else response.write(refNo) end if %>
  Delivery Date
  <% if trim(deldt) = "1/01/1900" then response.write("") else response.write(deldt) end if %>    
  Receiver Name
  <% if trim(recev) = "" then response.write("") else response.write(recev) end if %>    
  Remark
  <% if trim(st) = "" then response.write("") else response.write(remark) 'response.write(st) end if %>    
  Image Track
  <% if trim(st) = "" then response.write("--") else 'response.write("View Signature") response.write("View") end if %>    
<% set rsTmp= mycon.execute("select * from TempPODEntry where awbno = '" & Awb & "' order by id desc") counter = 1 if rsTmp.eof then 'response.Redirect("tracking.asp") else do while not rsTmp.eof 'then tmpAwb = trim(rsTmp("awbno")) tmpDeldt = day(rsTmp("delvdt"))&"/" & Right("0" & month(rsTmp("delvdt")),2) & "/" & year(rsTmp("delvdt")) 'tmpDeldt = trim(rsTmp("delvdt")) tmpDeltime = trim(rsTmp("DelvTime")) tempFromDest = trim(rsTmp("Destination_Code")) tmpDest = trim(rsTmp("Destination_name")) tmpRemark = trim(rsTmp("Remark")) 'end if %> <% counter = counter + 1 rsTmp.movenext loop end if %>
           Date | Time   
From Station To Station Remark
<% if trim(tmpDeldt)="" then response.write(" ") else response.write(tmpDeldt & " | " & tmpDeltime ) end if %> <% if trim(tempFromDest)="" then response.write(" ") else response.write(tempFromDest) end if %> <% if trim(tmpDest)="" then response.write(" ") else response.write(tmpDest) end if %> <% if trim(tmpRemark)="" then response.write(" ") else response.write(tmpRemark) end if %>