|
|
Shipment Summary
Times given are local to the service area in which the shipment checkpoint is recorded
<%
dim rs
dim i
Dim sawbno
Dim sawbno1
Dim sawbno2
Dim mRecFound
mRecFound = False
'Response.write (Request("txtawbno"))
sawbnos = replace(Request("txtawbno"),chr(13),",")
sawbnos = replace(sawbnos,chr(10),",")
sawbnos = replace(sawbnos," ",",")
'Response.write (sawbnos)
'Response.end
if Mid(sawbnos,len(sawbnos),1) <> "," then
sawbnos = sawbnos + ","
end if
For i = 1 To Len(sawbnos)
If Mid(sawbnos, i, 1) <> "," Then
'MsgBox (Mid(sawbnos, i, InStr(i, sawbnos, ",") - i))
sawbno = sawbno & Mid(sawbnos, i, InStr(i, sawbnos, ",") - i) & ","
End If
i = InStr(i, sawbnos, ",")
Next
'Response.write sawbno
'Response.end
For j = 1 To Len(sawbno)
sawbno1 = Mid(sawbno, j, CInt(InStr(j, sawbno, ",")) - j)
Set rs = Server.CreateObject("ADODB.Recordset")
sQuery = "select agentawbno1,Agentname1,Awbno,OrgName,DestName,recvrnam,DelvDt,DelvTM,custname,Custadd1,Custadd2,Custadd3,Custadd4,Custpin,Custtel,cnsgname,cnsgadd1,cnsgadd2,cnsgadd3,cnsgadd4,cnsgpin,cnsgtel from IccWebMast WHERE "
sQuery = sQuery & " awbno ='" & sawbno1 & "'"
rs.open sQuery,Conn
IF not rs.BOF THEN
mRecFound = True
Do while Not rs.eof %>
<% rs.movenext %>
<%loop
rs.close
set rs = nothing%>
<% else %>
Tracking / Airwaybill Number : <%=sawbno1%>
| From |
To |
Current Status |
| Airway Bill Number Not Found |
<% End if
j = InStr(j, sawbno, ",")
next
%>
<%
'Response.write (Request("txtawbno"))
sawbno = ""
sawbnos = replace(Request("txtawbno"),chr(13),",")
sawbnos = replace(sawbnos,chr(10),",")
'sawbnos = replace(sawbnos," ",",")
'Response.write (sawbnos)
'Response.end
if Mid(sawbnos,len(sawbnos),1) <> "," then
sawbnos = sawbnos + ","
end if
For i = 1 To Len(sawbnos)
If Mid(sawbnos, i, 1) <> "," Then
'MsgBox (Mid(sawbnos, i, InStr(i, sawbnos, ",") - i))
sawbno = sawbno & Mid(sawbnos, i, InStr(i, sawbnos, ",") - i) & ","
End If
i = InStr(i, sawbnos, ",")
Next
%>
<%
'Response.write (sawbno)
For j = 1 To Len(sawbno)
sawbno1 = Mid(sawbno, j, CInt(InStr(j, sawbno, ",")) - j)
Set rs = Server.CreateObject("ADODB.Recordset")
sQuery = "select agentawbno1,Agentname1,Awbno,OrgName,DestName,recvrnam,DelvDt,DelvTM,custname,Custadd1,Custadd2,Custadd3,Custadd4,Custpin,Custtel,cnsgname,cnsgadd1,cnsgadd2,cnsgadd3,cnsgadd4,cnsgpin,cnsgtel from IccWebMast WHERE "
sQuery = sQuery & " awbno ='" & sawbno1 & "'"
rs.open sQuery,Conn
IF not rs.BOF THEN
Do while Not rs.eof
%>
<%
Response.Write ""
Response.Write " " & sawbno1 & " - Detailed Report "
Response.Write ""
%>
Customer
<%=rs.fields("custname")%>
<%=rs.fields("OrgName")%>
Consignee
<%=rs.fields("cnsgname")%>
<%=rs.fields("DestName")%>
<%
Set RsShipprogress = Server.createobject("ADODB.RECORDSET")
RsShipprogress.Open "Select AwbNo,actiondate,actiontime,location,Exception from iccShipProgress where Awbno = '"& sawbno1 & "' Order by ActionDate Desc,ActionTime Desc",Conn
IF NOT RsShipprogress.EOF THEN
%>
| Date |
Time |
Location Service Area |
Details |
<%
Do while not RsShipprogress.EOF
%>
| <%=monthname(month(RsShipprogress.fields("actiondate")))&" "&day(RsShipprogress.fields("actiondate"))&", "&year(RsShipprogress.fields("actiondate"))%> |
<%=RsShipprogress.fields("actiontime")%> |
<%=RsShipprogress.fields("location")%> |
<%=RsShipprogress.fields("Exception")%> |
<%
RsShipprogress.movenext
Loop
RsShipprogress.close
%>
<%
End if
rs.movenext
loop
rs.close
set rs = nothing
End if
j = InStr(j, sawbno, ",")
next
%>
<% IF mRecFound = True Then %>
<% End If %>
|
|
