| |
<%
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
%>
Air
way Bill No |
<%=ar%> |
This
airway bill does not exist. |
<%
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 = '" & rs2("vendorawbno1") & "'")
awb = ""
st = ""
Consig = ""
modeType = ""
origin = ""
dest = ""
bkdt = ""
webAgt = ""
venAwb = ""
vendor = ""
deldt = ""
delvtime = ""
remark = ""
recev = ""
tmpAwb = ""
tmpDeldt = ""
tmpDeltime = ""
tmpDest = ""
tmpRemark = ""
sign=""
stamp=""
stDrsNo=""
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")) & "/" & month(rs2("BookDate")) & "/" & year(rs2("BookDate"))
'bkdt = trim(rs2("bookdt"))
webAgt = trim(rs2("WebAgent"))
venAwb = trim(rs2("VendorAwbNo1"))
if webAgt="fedex" then
tmpAwb = trim(rs2("VendorAwbNo1"))
else
tmpAwb= trim(rs2("awbno"))
end if
'vendor = trim(rs2("Vendor_name"))
deldt = day(rs2("delvdt"))&"/" & month(rs2("delvdt")) & "/" & year(rs2("delvdt"))
delvtime= Hour(rs2("delvTime")) & ":" & Minute(rs2("delvTime")) & ":" & Second(rs2("delvTime"))
remark = trim(rs2("remark"))
recev = trim(rs2("RecvName"))
sign= rs2("Sign")
stamp= rs2("Stamp")
stDrsNo= trim(rs2("drsno"))
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
%>
Air
way Bill No |
|
<%
'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
%>
|
Forwarding
No |
|
<%
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+"")
' else
response.write(venAwb)
end if
else
response.Write(venAwb)
end if
'response.write(venAwb)
end if
'if trim(venAwb) = "" then
' response.write("--")
'else
' if not trim(webAgt) = "" then
' response.write(""+venAwb+"")
' else
' response.Write(venAwb)
' end if
'response.write(venAwb)
'end if
%>
|
BookingDate |
|
<%
if trim(bkdt) = "" then
response.write("--")
else
response.write(bkdt)
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
%>
|
DeliveryDate |
|
<%
if trim(deldt) = "" then
response.write("--")
else
response.write(deldt)
end if
%>
|
Deliverytime |
|
<%
if trim(delvtime) = "" then
response.write("--")
else
response.write(delvtime)
end if
%>
|
RecvName |
|
<%
if trim(recev) = "" 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(stDrsNo) = "" or trim(stDrsNo) = 0 then
response.write("--")
else
'response.write("View Signature")
response.write(""+ "View" +"")
'response.write(""+ awb +"")
end if
%>
|
Date |
Location |
Status |
Remark |
<%
set rsTmp= mycon.execute("select * from TempPODEntry where awbno = '" & tmpAwb & "' order by delvdt 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"))&"/" & month(rsTmp("delvdt")) & "/" & year(rsTmp("delvdt"))
'tmpDeldt = trim(rsTmp("delvdt"))
tmpDeltime = trim(rsTmp("Status"))
tmpDest = trim(rsTmp("Destination_name"))
tmpRemark = trim(rsTmp("Remark"))
'end if
%>
|
<%
if trim(tmpDeldt)="" then
response.write(" ")
else
response.write(tmpDeldt)
end if
%>
|
<%
if trim(tmpDeltime)="" then
response.write(" ")
else
response.write(tmpDest)
end if
%>
|
<%
if trim(tmpDest)="" then
response.write(" ")
else
response.write(tmpDeltime)
end if
%>
|
<%
if trim(tmpRemark)="" then
response.write(" ")
else
response.write(tmpRemark)
end if
%>
|
<%
counter = counter + 1
rsTmp.movenext
loop
end if
%>
|
| |
<%
'rs.close
rs2.close
end if
rs1.close
end if
next
mycon.close
set mycon = nothing
%>
1
2
3
4
