| |
<%
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
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 = '" & ar & "'")
awb = ""
st = ""
Consig = ""
modeType = ""
origin = ""
dest = ""
bkdt = ""
webAgt = ""
venAwb = ""
vendor = ""
deldt = ""
delvtime = ""
remark = ""
recev = ""
tmpAwb = ""
tmpDeldt = ""
tmpDeltime = ""
tmpDest = ""
tmpRemark = ""
sign=""
stamp=""
Dt=""
stDrsNo=""
if not rs2.eof then
awb = trim(rs2("awbno"))
st = trim(rs2("status"))
Consig = trim(rs2("Consignee_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"))
deldt = TRIM(rs2("delvdt")) 'day(rs2("delvdt"))&"/" & month(rs2("delvdt")) & "/" & year(rs2("delvdt")) -->
delvtime= rs2("delvTime")
'if delvtime = "" then
' delvtime = ""
'else
' delvtime= Hour(rs2("delvTime")) & ":" & Minute(rs2("delvTime")) & ":" & Second(rs2("delvTime"))
'end if
remark = trim(rs2("remark"))
recev = trim(rs2("RecvName"))
if webAgt="fedex" then
strAwbNo = venAwb
' venAwb =""
else
' venAwb =""
strAwbNo = awb
end if
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+"")
elseif trim(webAgt)="skycomex" then
response.write(""+venAwb+"")
elseif trim(webAgt)="tccs" then
response.write(""+venAwb+"")
'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
%>
|
Date |
Time |
Location |
Status |
<%
' set rsTmp= mycon.execute("select * from TempPODEntry where awbno = '" & strAwbNo & "' order by delvdt Desc")
set rsTmp= mycon.execute("select awbno,LEN(DELVDT) as Dt,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 = '" & strAwbNo & "' or awbno='" & awb & "' order by DelvDt desc ,strTime desc , DelvTime desc ")
counter = 1
if rsTmp.eof then
'response.Redirect("tracking.asp")
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"))
if webAgt="fedex" or webAgt="spoton" or webAgt="aramex" or webAgt="paceexp" or webAgt="bluedart" then
if rsTmp("Dt")="21" then
tmpDeltime =Right(rsTmp("delvdt"),10)
elseif rsTmp("Dt")="19" then
'tmpDeltime =Right(rsTmp("delvdt"),7)
tmpDeltime =Right("0" & hour(rsTmp("DelvTime")),2) &":" & Right("0" & minute(rsTmp("DelvTime")),2)
elseif rsTmp("Dt")="17" then
tmpDeltime =Right(rsTmp("delvdt"),5)
end if
tmpDest = trim(rsTmp("Remark"))
tmpRemark = trim(rsTmp("Status"))
if IsNull(rsTmp("Status")) then
tmpDeltime =Right("0" & hour(rsTmp("strTime")),2) &":" & Right("0" & minute(rsTmp("strTime")),2)
tmpDest = trim(rsTmp("Destination_name"))
tmpRemark = trim(rsTmp("Remark"))
end if
else
tmpDeltime =Right("0" & hour(rsTmp("strTime")),2) &":" & Right("0" & minute(rsTmp("strTime")),2)
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(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
end if
next
mycon.close
set mycon = nothing
%>
|