Änderungen lan variable in link in lang piucker und sidemenü
This commit is contained in:
ja
@@ -880,7 +880,7 @@
|
||||
</li>
|
||||
<li style="transform: rotate(0);">
|
||||
<!--<a id="ButtonTürkeiLangPicker" class="btn btn-primary btn-sm" href="<%'= navParent%>&lan=TR"><img src="<%'= imgPath%>images/flags/flagge_TR.gif" <%' If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%>/>TR</a>-->
|
||||
<a id="ButtonTürkeiLangPicker2" href="<%= navParent%>&lan=TR&lan3=0" class="stretched-link"><img src="<%= imgPath%>images/flags/flagge_TR_big.gif"; width="20";" <% If laenderkuerzel = "tr" Then Response.Write("style='border:1px solid #000'")%>/><%=strTRlang %></a>
|
||||
<a id="ButtonTürkeiLangPicker2" href="<%= navParent%>&lan2=TR&lan3=0" class="stretched-link"><img src="<%= imgPath%>images/flags/flagge_TR_big.gif"; width="20";" <% If laenderkuerzel = "tr" Then Response.Write("style='border:1px solid #000'")%>/><%=strTRlang %></a>
|
||||
</li>
|
||||
</ul>
|
||||
</div>
|
||||
|
||||
@@ -455,60 +455,59 @@ Imports System.Data.SqlClient
|
||||
<div id="bodycontent">
|
||||
<span class="content_all" style="background-color:#fff;align-content:center">
|
||||
<%
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
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 LT As New VERAG_PROG_ALLGEMEIN.cLanguageText_LIST("HOMEPAGE", "LOGIN", "STATUS", "")
|
||||
Dim V_LST As New VERAG_PROG_ALLGEMEIN.cVermerkeCodes_LIST
|
||||
|
||||
Dim lan = "DE"
|
||||
Dim lan = "DE"
|
||||
|
||||
If (Request.QueryString.Count > 0) AndAlso Request.QueryString("lan2") IsNot Nothing Then
|
||||
lan = Request.QueryString("lan2")
|
||||
End If
|
||||
If (Request.QueryString.Count > 0) AndAlso Request.QueryString("lan") IsNot Nothing Then
|
||||
lan = Request.QueryString("lan")
|
||||
ElseIf (Request.QueryString.Count > 0) AndAlso (Request.QueryString("AvisoId") IsNot Nothing Or Request.QueryString("test") IsNot Nothing) Then
|
||||
If (Request.QueryString.Count > 0) AndAlso Request.QueryString("lan2") IsNot Nothing Then
|
||||
lan = Request.QueryString("lan2")
|
||||
End If
|
||||
If (Request.QueryString.Count > 0) AndAlso Request.QueryString("lan") IsNot Nothing Then
|
||||
lan = Request.QueryString("lan")
|
||||
ElseIf (Request.QueryString.Count > 0) AndAlso (Request.QueryString("AvisoId") IsNot Nothing Or Request.QueryString("test") IsNot Nothing) Then
|
||||
|
||||
Dim navParent = "status_Julius.aspx?AvisoId=" & Request.QueryString("AvisoId")
|
||||
Dim navParent = "status_Julius.aspx?AvisoId=" & Request.QueryString("AvisoId")
|
||||
|
||||
Dim flagpath = "images/flags/flagge_DE_AT.gif"
|
||||
Dim laenderkuerzel As String = "DE"
|
||||
Dim flagpath = "images/flags/flagge_DE_AT.gif"
|
||||
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 imgPath As String = ""
|
||||
If HttpContext.Current.Request.Url.AbsoluteUri.ToString.Contains("admin.aspx") Then
|
||||
navParent = "admin.aspx"
|
||||
imgPath = "../"
|
||||
End If
|
||||
|
||||
Dim lan3 As String = Request.QueryString("lan3")
|
||||
If lan = "DE" And lan3 = "0" Then
|
||||
flagpath = "images/flags/flagge_DE_AT.gif"
|
||||
ElseIf lan = "EN" And lan3 = "0" Then
|
||||
flagpath = "images/flags/flagge_GB.gif"
|
||||
ElseIf lan = "SRB" And lan3 = "0" Then
|
||||
flagpath = "images/flags/flagge_BIH.gif"
|
||||
ElseIf lan = "SRB" And lan3 = "1" Then
|
||||
flagpath = "images/flags/flagge_SM.gif"
|
||||
ElseIf lan = "BG" And lan3 = "0" Then
|
||||
flagpath = "images/flags/flagge_BG.gif"
|
||||
ElseIf lan = "TR" And lan3 = "0" Then
|
||||
flagpath = "images/flags/flagge_TR.gif"
|
||||
End If
|
||||
Dim lan3 As String = Request.QueryString("lan3")
|
||||
If lan = "DE" And lan3 = "0" Then
|
||||
flagpath = "images/flags/flagge_DE_AT.gif"
|
||||
ElseIf lan = "EN" And lan3 = "0" Then
|
||||
flagpath = "images/flags/flagge_GB.gif"
|
||||
ElseIf lan = "SRB" And lan3 = "0" Then
|
||||
flagpath = "images/flags/flagge_BIH.gif"
|
||||
ElseIf lan = "SRB" And lan3 = "1" Then
|
||||
flagpath = "images/flags/flagge_SM.gif"
|
||||
ElseIf lan = "BG" And lan3 = "0" Then
|
||||
flagpath = "images/flags/flagge_BG.gif"
|
||||
ElseIf lan = "TR" And lan3 = "0" Then
|
||||
flagpath = "images/flags/flagge_TR.gif"
|
||||
End If
|
||||
%>
|
||||
|
||||
<!-- Page Content -->
|
||||
|
||||
<div class="container" style="/*margin-top:5px;*/margin-top:0.313rem; margin-top:0.6510416666666667vw; place-content:center; margin-left:10px;margin-right:4px">
|
||||
|
||||
<div class="d-none d-md-block">
|
||||
<nav class="navbar navbar-expand-lg navbar-light bg-light">
|
||||
<a class="navbar-brand" id="navbarbrandhauptpage" href="newpageJulius_Sidebar.aspx?lan2=DE&lan3=0"><img src="images/Logo_small.png" alt="Logo Verag Spedition (Blaue Schrift) AG (Graue Schrift)" data-toggle="tooltip" data-placement="top" title="https://www.verag.ag"/></a>
|
||||
<%
|
||||
Dim curentMenuId As String = "1"
|
||||
If Not Request.QueryString("menuID") Is Nothing Then
|
||||
curentMenuId = Request.QueryString("menuID")
|
||||
End If
|
||||
%>
|
||||
Dim curentMenuId As String = "1"
|
||||
If Not Request.QueryString("menuID") Is Nothing Then
|
||||
curentMenuId = Request.QueryString("menuID")
|
||||
End If%>
|
||||
|
||||
<div style="/*width:62%;*/width: 97.25490196078431vw;"></div>
|
||||
<div class="me-auto">
|
||||
<div class="dropdown" style="background-color:#fff; color:#043381; margin-right:9.813rem;">
|
||||
@@ -575,7 +574,7 @@ Imports System.Data.SqlClient
|
||||
</li>
|
||||
<li style="transform: rotate(0);">
|
||||
<!--<a id="ButtonTürkeiLangPicker" class="btn btn-primary btn-sm" href="<%'= navParent%>&lan=TR"><img src="<%'= imgPath%>images/flags/flagge_TR.gif" <%' If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%>/>TR</a>-->
|
||||
<a id="ButtonTürkeiLangPicker2" href="<%= navParent%>&lan=TR&lan3=0" class="stretched-link"><img src="<%= imgPath%>images/flags/flagge_TR_big.gif"; width="20";" <% If laenderkuerzel = "tr" Then Response.Write("style='border:1px solid #000'")%>/><%=strTRlang %></a>
|
||||
<a id="ButtonTürkeiLangPicker2" href="<%= navParent%>&lan2=TR&lan3=0" class="stretched-link"><img src="<%= imgPath%>images/flags/flagge_TR_big.gif"; width="20";" <% If laenderkuerzel = "tr" Then Response.Write("style='border:1px solid #000'")%>/><%=strTRlang %></a>
|
||||
</li>
|
||||
</ul>
|
||||
</div>
|
||||
@@ -593,10 +592,8 @@ Imports System.Data.SqlClient
|
||||
</div> -->
|
||||
<%
|
||||
End If
|
||||
|
||||
'Response.Write(DB2.qry_contentNew(menuID, lan)) %>
|
||||
<br /><br />
|
||||
|
||||
<h1><%= LT.getTxt(1, lan, "Herzlich Willkommen bei VERAG Spedition AG!")%></h1>
|
||||
<div id="line"></div>
|
||||
<br /><br />
|
||||
|
||||
Reference in New Issue
Block a user