<%session("linko")="3"%> Trans
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 ar = arr(i) 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 * from EntryMast where awbno = '" & ar & "'") 'set rs = mycon.execute("select * from tracking where awbno = '" & ar & "'") set rsTmp = mycon.execute("select * from TempPODEntry where awbno = '" & ar & "'") awbno = "" awb = "" st = "" Consig = "" modeType = "" origin = "" dest = "" bkdt = "" webAgt = "" venAwb = "" vendor = "" deldt = "" delvtime = "" remark = "" recev = "" tmpAwb = "" tmpDeldt = "" tmpDeltime = "" tmpDest = "" tmpRemark = "" sign="" stamp="" if not rs2.eof then awb = trim(rs2("awbno")) st = trim(rs2("status")) Consig = trim(rs2("Consignee_Name")) 'modeType = trim(rs2("Product_Name")) 'origin = trim(rs2("Origin_Name")) 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") end if if trim(webAgt)="fedex" then awbno = venAwb else awbno = awb 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 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") response.Write(awb) 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 %>    
  Consignee Name
  <% if trim(Consig) = "" then response.write("--") else response.write(Consig) end if %>    
  Destination
<% if trim(dest) = "" then response.write("--") else response.write(dest) end if %>
  Signatory
  <% if (sign) = true and (stamp)= true then response.write("Sign/Stamp") elseif (sign) = true and (stamp)= false then response.write("Sign") elseif (sign) = false and (stamp)= true then response.write("Stamp") else response.write("--") end if %>    
  Delivery Date
  <% if trim(deldt) = "1/01/1900" then response.write("") else response.write(deldt) end if %>    
  Delivery Time
  <% if trim(delvtime) = "" then response.write("--") else response.write(delvtime) end if %>    
  RecvName
<% if trim(recev) = "0:0" then response.write("") else response.write(recev) end if %>
  Status
  <% if trim(st) = "" then response.write("--") else response.write(" "&st&" ") '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 = '" & awbno & "' 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("Status")) tmpDest = trim(rsTmp("Destination_name")) tmpRemark = trim(rsTmp("Remark")) 'end if %> <% counter = counter + 1 rsTmp.movenext loop end if %>
           Date
Location Status
<% if trim(tmpDeldt)="" then response.write(" ") else response.write(tmpDeldt) end if %>
<% if trim(tmpRemark )="" then response.write(" ") else response.write(" "&tmpRemark ) end if %>
<% if trim(tmpDeltime)="" then response.write(" ") else response.write(tmpDeltime) end if %>