edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen lan variable in link in lang piucker und sidemenü

Browse Source
This commit is contained in:
ja
2021-08-12 09:38:58 +02:00
parent f53ad3c258
commit 7499dd08bb
2 changed files with 40 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
newpageJulius_Sidebar.aspx
View File

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

81
status_Julius.aspx
View File

@@ -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 -->
<!-- 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 />