<%
Dim navParent = "AvisoTV_Flex.aspx?"
Dim laenderkuerzel As String = "de"
Dim imgPath As String = ""
If HttpContext.Current.Request.Url.AbsoluteUri.ToString.Contains("admin.aspx") Then
navParent = "admin.aspx"
imgPath = "../"
End If
Dim curentMenuId As String = "1"
If Not Request.QueryString("menuID") Is Nothing Then
curentMenuId = Request.QueryString("menuID")
End If
If Not Request.QueryString("lan") Is Nothing Then
laenderkuerzel = Request.QueryString("lan")
End If
%>
<%
'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)) %>
Verag 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
' MsgBox(VERAGSQL.GetADMINConnectionString())
'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
Dim VarA As String = ""
Dim AvisoId = ""
Dim ID As Integer = AVISO_dt.Rows.IndexOf(AVISO_ROW)
Try
'AvisoId = VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt("")
AvisoId = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(AVISO_ROW("AvisoID"))
Catch ex As Exception
If Request.QueryString("test") = "VERIMEX" Then
AvisoId = "596981"
End If
End Try
'Dim link As String = "Par1=" + AVISO_ROW("LKW_Nr") + "Par2=" + AVISO_ROW("Frächter") + "Par3=" + AVISO_ROW("Auftraggeber") + "Par4=" + AVISO_ROW("Ankunft") + "Par5=" + AVISO_ROW("LKW_Fertig") + "Par6=" + STANDORT + "Par7=" + lan
%>
| <%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
%>
<%-- --%>