<%
'Dim lan As String = Request.QueryString("lan")
'If lan ="" then lan="de"
'Dim menuID As String = Request.QueryString("menuID")
'If menuID = "" Then menuID = "1"
'Dim DB2 As New cDBFunctions
%>
<%
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim LT As New VERAG_PROG_ALLGEMEIN.cLanguageText_LIST("HOMEPAGE", "LOGIN", "STATUS", "")
Dim V_LST As New VERAG_PROG_ALLGEMEIN.cVermerkeCodes_LIST
Dim lan = "DE"
'Response.Write(DB2.qry_contentNew(menuID, lan)) %>
AVISO-TV Online
Hier finden Sie Informationen zu den aktuell an der Grenze stehenden LKWs.
<% '?key=hello%20world
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124)
Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
'Response.Write(AD.Ordnungsbegriff)
Dim STANDORT = "SUB"
If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("STANDORT") IsNot Nothing) Then
Try
STANDORT = (Request.QueryString("STANDORT"))
Catch ex As Exception
STANDORT = "SUB"
End Try
End If
If True Then
Dim AVISO_dt As System.Data.DataTable = VERAG_PROG_ALLGEMEIN.cAviso.getAVISO_List(STANDORT)
If AVISO_dt IsNot Nothing Then
If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE
%>
<% =STANDORT %>
| Nr. | LKW Kennzeichen | Frächter | Avisierer | Ankunft | Dauer | LKW fertig |
|---|
<%
Dim cnt = 0
For Each AVISO_ROW In AVISO_dt.Rows
Dim dauer = ""
If AVISO_ROW("Ankunft") IsNot DBNull.Value Then
Dim rMinute = DateDiff(DateInterval.Minute, CDate(AVISO_ROW("Ankunft")), Now)
Dim m_TimeSpan As TimeSpan = New TimeSpan(0, rMinute, 0)
dauer = Format((m_TimeSpan.Days * 24) + m_TimeSpan.Hours, "0") & " Std. " & Format(m_TimeSpan.Minutes, "00") & " min"
End If
Dim statOK_style = "" '" class=""statusNONE"" "
If AVISO_ROW("LKW_Fertig") = "OK" Then 'IsNot Nothing And s.tblSnd_Vorbereitet IsNot Nothing) Then
statOK_style = " class=""statusOK"" "
End If
%>
| <% Response.Write(cnt + 1) %> | <% Response.Write(AVISO_ROW("LKW_Nr"))%> | <% Response.Write(AVISO_ROW("Frächter")) %> | <% Response.Write(AVISO_ROW("Auftraggeber")) %> | <% Response.Write(AVISO_ROW("Ankunft")) %> | <% Response.Write(dauer)%> | ><% Response.Write(AVISO_ROW("LKW_Fertig")) %> |
<%
cnt += 1
Next
%>
<%
End If
End If
End If
Catch ex As Exception
Response.Write(ex.Message & ex.StackTrace)
End Try
%>