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