|
Хотите знать где находится Ваше отправление в данный момент? – Вы можете это сделать с помошью «Track & Trace».
You want to know where your shipment is at this very moment? You can check this here on «Track & Trace».
<%
If Zakaz<>"" Then
' Set DB = Server.CreateObject("ADODB.Connection")
' DB.Open "cityexpress"
Set db = Conn
'Set query = Server.CreateObject("ADODB.Command")
'Set RS = Server.CreateObject("ADODB.Recordset")
'Query.CommandText = "select cod, status_text, final from tint_status"
'Set Query.ActiveConnection = DB
'RS.Open Query, , 1, 1
'StatArrayMax=RS.RecordCount
'StatArray = Null
'StatArray = RS.GetRows()
'RS.Close
'DB.Close
' Открытие основного рекордсета
'Set DB = Server.CreateObject("ADODB.Connection")
'DB.Open "cityexpress"
Set query = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject("ADODB.Recordset")
Query.CommandText = "select ord_numb, status, text1, id from tint where ord_numb="+Zakaz+" order by id"
Set Query.ActiveConnection = DB
RS.Open Query, , 1, 1
Max=CInt(RS.RecordCount)
If Max<>0 Then
TrackArray=RS.GetRows()
End If
RS.Close
DB.Close
Else
Max=-1
End If
%>
<%
If Max=-1 Then %>
| |
<% Else
If Max=0 Then %>
| Such order number (<% Response.Write(Zakaz) %>) does not exist |
<% Else %>
| Order |
Status |
Information |
<%
' Вывод полей:
'**** Отстреливаем лишние записи с одинаковым номером
VFinal=False
VCount=0
TrackArray2=TrackArray
For j=1 to Max
i=Max-j
If FinalStat(TrackArray(1,i))=1 Then
VFinal=True
TrackArray2(0,VCount)=TrackArray(0,i)
TrackArray2(1,VCount)=TrackArray(1,i)
TrackArray2(2,VCount)=TrackArray(2,i)
VCount=VCount+1
Else
If VFinal=False Then
TrackArray2(0,VCount)=TrackArray(0,i)
TrackArray2(1,VCount)=TrackArray(1,i)
TrackArray2(2,VCount)=TrackArray(2,i)
VCount=VCount+1
VFinal=True
End If
End If
Next
'****
For j = 1 to VCount
i=VCount-j
%>
| <% Response.Write(Zakaz) %> |
<% Response.Write (TrackArray2(1,i)) %> |
<% Response.Write (TrackArray2(2,i)) %> |
<%
Next
End If
End If%>
|
