| |
<%
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 e.*,D.Destination_Name as Destination_Name from EntryMast as e,DestinationMast as D where E.Destination_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("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_code1"))
deldt =rs2("delvdt")
' deldt = left("0" & day(rs2("delvdt")),2)&"/" & 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= rs2("Qty")
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 |
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(consignor) = "" then
response.write("--")
else
response.write(consignor)
end if
%>
|
|
|
Consignee Name |
|
<%
if trim(Consig) = "" then
response.write("--")
else
response.write(Consig)
end if
%>
|
|
|
Destination Name |
|
<%
if trim(dest) = "" then
response.write("--")
else
response.write(dest)
end if
%>
|
|
|
Status |
|
<%
if trim(st) = "" then
response.write("--")
else
response.write(" "&st&" ")
'response.write(st)
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
%>
|
|
|
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
%>
|
|
|
RecvName |
|
<%
if trim(recev) = "0:0" 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("POD View")
end if
%>
|
<%
if trim(st) = "" then
response.write("--")
else
response.write("Sign View")
end if
%>
|
|
Date |
Time |
Location |
Status |
<%
set rsTmp= mycon.execute("select awbno,convert(varchar, DelvDt, 103) as DelvDt,right(convert(varchar, DelvDt, 108),10) as delvTime,convert(varchar, DelvTime, 103) as strTime,Destination_Name,Remark,Status From TempPodEntry where awbno = '" & Awb & "' order by id desc")
counter = 1
if rsTmp.eof then
'response.Redirect("tracking.php")
else
do while not rsTmp.eof 'then
tmpAwb = trim(rsTmp("awbno"))
tmpDeldt = Right("0" & Day(rsTmp("delvdt")),2) &"/" & Right("0" & month(rsTmp("delvdt")),2) & "/" & year(rsTmp("delvdt"))
'tmpDeldt = trim(rsTmp("delvdt"))
' tmpDeltime = trim(rsTmp("delvTime"))
if webAgt="fedex" or webAgt="spoton" or webAgt="aramex" or webAgt="paceexp" then
tmpDeltime =Right("0" & hour(rsTmp("delvTime")),2) &":" & Right("0" & minute(rsTmp("delvTime")),2)
tmpDest = trim(rsTmp("Remark"))
tmpRemark = trim(rsTmp("Status"))
else
tmpDeltime =Right("0" & hour(rsTmp("strTime")),2) &":" & Right("0" & minute(rsTmp("strTime")),2)
tmpDest = trim(rsTmp("Destination_name"))
tmpDes = trim(rsTmp("Remark"))
tmpRemark = trim(rsTmp("Remark"))
end if
'end if
%>
|
<%
if trim(tmpDeldt)="" then
response.write(" ")
else
response.write(tmpDeldt)
end if
%>
|
<%
if trim(tmpDeltime)="" then
response.write(" ")
else
response.write(tmpDeltime)
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
%>
|
<%
counter = counter + 1
rsTmp.movenext
loop
end if
%>
|
| |
<%
'rs.close
rs2.close
end if
rs1.close
end if
next
mycon.close
set mycon = nothing
%>
