| |
<%
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 *,(case when convert(time(0),delvdt) = '00:00:00' then delvtime else convert(time(0),delvdt) end) delvtime1 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 = ""
strAwbNo=""
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 = Right("0" & Day(rs2("BookDate")),2) &"/" & Right("0" & month(rs2("BookDate")),2) & "/" & year(rs2("BookDate"))
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("delvTime1")), 2) & ":" & Right("0" & Minute(rs2("delvTime1")), 2)
remark = trim(rs2("remark"))
recev = trim(rs2("RecvName"))
'sign= rs2("Sign")
'stamp= rs2("Stamp")
if webAgt="fedex" then
strAwbNo = awb
'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
%>
| Referance |
Air
way Bill No |
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
response.Write(venAwb)
end if
'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
%>
|
<%
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
%>
|
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
%>
|
|
|
|
|
|
|
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 = '" & strAwbNo & "' order by cast (DelvDt as datetime) desc,cast (delvTime as datetime) 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"))
if trim(webAgt)="dhl" then
tmpDeldt = trim(rsTmp("delvdt"))
else
tmpDeldt = Right("0" & Day(rsTmp("delvdt")),2) &"/" & Right("0" & month(rsTmp("delvdt")),2) & "/" & year(rsTmp("delvdt"))
end if
' tmpDeltime = trim(rsTmp("delvTime"))
if webAgt<>"" then
tmpDeltime =Right("0" & hour(rsTmp("delvTime")),2) &":" & Right("0" & minute(rsTmp("delvTime")),2)
tmpDest = trim(rsTmp("Destination_name"))
tmpRemark = trim(rsTmp("Remark"))
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
'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
%>
|
