-
-
-
-
-
- <%
- 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 %>
-
-
-
-
-
-
- | Auswahl | LKW-Nr. | Kennzeichen | Standort | Frächter | Fracht | Info |
|---|
-
-
- | 1 | PAN WE 231 | SUBEN | TESTFRÄCHTER | 2 Pck Teer |
- | 2 | SME IE 889 | SUBEN | TESTFRÄCHTER | 2 Pck Kaugummis |
- | 3 | BGI TA 233 | SUBEN | TESTFRÄCHTER | 2 Pck Metallstäbe |
- | 4 | SWT DD 233 | SUBEN | TESTFRÄCHTER | 2 Pck Kohle |
- | 5 | MF6 F7 666 | Waidhaus | TESTFRÄCHTER2 | 3500 kg Bonbons |
- | 6 | VTO 4A 333 | Bad Reichenhall | TESTFRÄCHTER | 2 Pck Teer |
- | 7 | PD6 C7 111 | Waidhaus | TESTFRÄCHTER | 200 Pck Kafee |
- | 8 | EH2 VK 444 | Bad Reichenhall | TESTFRÄCHTER | 2 Pck Salz |
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
Tankstellen
-
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Blandit libero volutpat sed cras ornare arcu dui vivamus arcu. Iaculis urna id volutpat lacus laoreet non curabitur gravida arcu. Velit scelerisque in dictum non consectetur a erat nam at. Vestibulum rhoncus est pellentesque elit ullamcorper dignissim cras.
-
-
-
-
-
-
LKWs
-
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Blandit libero volutpat sed cras ornare arcu dui vivamus arcu. Iaculis urna id volutpat lacus laoreet non curabitur gravida arcu. Velit scelerisque in dictum non consectetur a erat nam at. Vestibulum rhoncus est pellentesque elit ullamcorper dignissim cras.
-
-
-
-
-
-
Tiere
-
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Blandit libero volutpat sed cras ornare arcu dui vivamus arcu. Iaculis urna id volutpat lacus laoreet non curabitur gravida arcu. Velit scelerisque in dictum non consectetur a erat nam at. Vestibulum rhoncus est pellentesque elit ullamcorper dignissim cras.
-
-
-
-
-
-
-
- <% End If
- End If
- End If
- Catch ex As Exception
- Response.Write(ex.Message & ex.StackTrace)
- End Try %>
-
-
-
-