<%session("linko")="3"%> scc
 Enter Consignment Awb.Nos
(Separate multiple Entering by ',' (comma)


<% 'response.Write(request.Form("awbno")) track = trim((request.form("awbno"))) 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 'ram set rs1 = mycon.execute("select awbno from BillEntry where awbno = '"& ar &"'") 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 & "") 'ram 'set rs2 = mycon.execute("select * from billentry where awbno = '" & ar & "'") 'set rs = mycon.execute("select * from tracking where awbno = '" & ar & "'") 'set rsTmp = mycon.execute("select * from TempPODEntry where awbno = '" & ar & "'") awb = "" st = "" dest = "" bkdt = "" webAgt = "" venAwb = "" vendor = "" deldt = "" delvtime = "" remark = "" recev = "" tmpAwb = "" tmpDeldt = "" tmpDeltime = "" tmpDest = "" tmpRemark = "" Consignee="" Tel="" if not rs2.eof then awb = trim(rs2("awbno")) st = trim(rs2("status")) dest = trim(rs2("Destination_Name")) bkdt = day(rs2("BookDate")) & "/" & month(rs2("BookDate")) & "/" & year(rs2("BookDate")) 'bkdt = trim(rs2("bookdt")) 'webAgt = trim(rs2("VendorWeb")) venAwb = trim(rs2("VendorAwbno1")) webAgt= trim(rs2("WebAgent")) 'vendor = trim(rs2("VendorWeb")) Consignee = trim(rs2("Consignee_Name")) 'Tel = trim(rs2("TelNo")) 'end if 'if not rs.eof then 'deldt = day(rs2("DelvDt"))&"/" & month(rs2("DelvDt")) & "/" & year(rs2("DelvDt")) deldt = trim(rs2("delvdt")) delvtime = trim(FormatDateTime(rs2("DelvTime"),3)) remark = trim(rs2("Remark")) recev = trim(rs2("RecvName")) end if '120909 if not rsTmp.eof then '120909 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")) '120909 end if %> <% 'rs.close rs2.close end if rs1.close end if next mycon.close set mycon = nothing %>
SNo Booking
Date		 Air way
Bill no		 Reference. No Destination Consignee
Name		 Status Status
Date		 Delivery
Time 		Receiver Tel. No Remarks PODImg
<%=counter%> <%=ar%> This airway bill does not exist.
<%=counter%> <% if trim(bkdt) = "" then response.write("--") else response.write(bkdt) end if %> <% '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(awb) end if %> <% if trim(venAwb) = "" then response.write("--") else if not trim(webAgt) = "" then if trim(UCase(webAgt))="ARAMEX" then response.write(""+venAwb+"") elseif trim(UCase(webAgt))="TNT" then response.write(""+venAwb+"") elseif trim(UCase(webAgt))="FEDEX" then response.write(""+venAwb+"") elseif trim(UCase(webAgt))="DHL" then response.write(""+venAwb+"") elseif trim(UCase(webAgt))="OCSTRACKING" then response.write(""+venAwb+"") elseif trim(UCase(webAgt))="UPS" 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(Consignee) = "" then response.write("--") else response.write(Consignee) end if %> <% if trim(st) = "" then response.write("--") else response.write(" "&st&" ") end if %> <% if trim(deldt) = "" then response.write("--") else response.write(deldt) end if %> <% if trim(delvtime) = "" then response.write("--") else response.write(delvtime) end if %> <% if trim(recev) = "" then response.write("--") else response.write(" "&recev&" ") end if %> <% if trim(remark) = "" then response.write("--") else response.write(remark) end if %> <% if trim(remark) = "" then response.write("--") else response.write(remark) end if %> <% if trim(st) <> "Delivered" then response.write("--") else response.write("View") end if %>
 

Designed And Developed By NEOTECH