<% Dim navParent = "Kundenseite.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)) %>

Kundencenter

Hier finden Sie Informationen zu den aktuell an der Grenze stehenden LKWs.

<%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 %>

LKW-Nr.	Kennzeichen	Standort	Frächter	Fracht
1	PAN WE 231	SUBEN	TESTFRÄCHTER	2 Pck Teer
2	BMV 6N 888	SUBEN	TESTFRÄCHTER	2 Pck Teer
3	PD6 C7 111	SUBEN	TESTFRÄCHTER	2 Pck Teer
4	BMV 6N 888	SUBEN	TESTFRÄCHTER	2 Pck Kohle

<% End If End If End If Catch ex As Exception Response.Write(ex.Message & ex.StackTrace) End Try %>

<%--

--%>