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

Icon hinzugefügt hamburger sidemenue sowie Displayweiten wurden angepasst, sowie die Weiten der Elemente dynamischer gestaltet (Navbar, etc).

Browse Source
This commit is contained in:
ja
2021-08-11 16:54:30 +02:00
parent c1786909ce
commit 77e7b309cd
4 changed files with 53 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
status_Julius.aspx
View File

@@ -461,45 +461,45 @@ Imports System.Data.SqlClient
<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 -->
@@ -510,10 +510,10 @@ Imports System.Data.SqlClient
<nav class="navbar navbar-expand-lg navbar-light bg-light">
<a class="navbar-brand" id="navbarbrandhauptpage" href="newpageJulius_Sidebar.aspx?lan2=DE"><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%;"></div>
<div class="me-auto">
@@ -521,11 +521,11 @@ Imports System.Data.SqlClient
<button class="dropbtn"> <center><img id="myImage" src="<%=flagpath%>" style="border:1px solid #fff;width:32px; justify-items:center;" alt="Logo Schriftzug: Verag Spedition AG Blaue Schrift: Verag Spedition Graue Schrift: AG" /></center></button>
<div class="dropdown-content">
<% Dim stringDE = "&nbsp DE"
Dim stringEN = "&nbsp EN"
Dim stringBIH = "&nbsp BIH"
Dim stringSRB = "&nbsp SRB"
Dim stringBG = "&nbsp BG"
Dim stringTR = "&nbsp TR"%>
Dim stringEN = "&nbsp EN"
Dim stringBIH = "&nbsp BIH"
Dim stringSRB = "&nbsp SRB"
Dim stringBG = "&nbsp BG"
Dim stringTR = "&nbsp TR"%>
<!--<a id="ButtonOesterreichLangPicker" class="btn btn-primary btn-sm" onclick="changeflag(A)" href="<%'= navParent%>?menuID=<%'= curentMenuId %>&lan=de"><img src="<%'= imgPath%>images/flags/flagge_A.gif" <%' If laenderkuerzel = "de" Then Response.Write("style='border:1px solid #000'")%> /> DE</a>-->
<a id="ButtonDeutschLangPicker" class="btn btn-primary btn-sm" href="<%= navParent%>&lan2=DE&lan3=0" style="background-color:#fff;color:#043381;"><img src="<%= imgPath%>images/flags/flagge_DE_AT_big.gif"; width="20"; <% If laenderkuerzel = "de" Then Response.Write("style='border:1px solid #000'")%>/><%=stringDE%></a>
<a id="ButtonTürkeiLangPicker" class="btn btn-primary btn-sm" href="<%= navParent%>&lan2=TR&lan3=0" style="background-color:#fff;color:#043381;"><img src="<%= imgPath%>images/flags/flagge_TR_big.gif"; width="20"; <% If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%>/><%=stringTR%></a>
@@ -541,7 +541,7 @@ Imports System.Data.SqlClient
</div>
<div class="d-md-none">
<nav class="navbar navbar-expand-lg navbar-light bg-light justify-content-between flex-nowrap">
<nav class="navbar navbar-expand-lg navbar-light bg-light justify-content-md-center flex-nowrap">
<a class="navbar-brand" href="newpageJulius_Sidebar.aspx?lan2=DE"><img src="images/Logo_small.png" style="width:initial;height:initial;" alt="VERAG Spedition AG Logo with blue word color until grey AG" data-toggle="tooltip" data-placement="top" title="https://www.verag.ag"></a>
<button class="btn btn-primary" type="button" data-bs-toggle="offcanvas" data-bs-target="#offcanvasWithBothOptions" aria-controls="offcanvasWithBothOptions" style="background-color:#fff; color:#043381;"><img id="myImage" src="<%=flagpath%>" style="border:1px solid #fff;width:30px;"/></button>
</nav>
@@ -553,11 +553,11 @@ Imports System.Data.SqlClient
</div>
<div class="offcanvas-body">
<% Dim strDElang = "&nbsp Deutsch"
Dim strENlang = "&nbsp Englisch"
Dim strBIHLang = "&nbsp Bosnien und Herzegowina"
Dim strSRBlang = "&nbsp Serbien"
Dim strBGlang = "&nbsp Bulgarien"
Dim strTRlang = "&nbsp Türkei"%>
Dim strENlang = "&nbsp Englisch"
Dim strBIHLang = "&nbsp Bosnien und Herzegowina"
Dim strSRBlang = "&nbsp Serbien"
Dim strBGlang = "&nbsp Bulgarien"
Dim strTRlang = "&nbsp Türkei"%>
<ul style="list-style: none;">
<li style="transform: rotate(0);">
<!--<a id="ButtonDeutschLangPicker" class="btn btn-primary btn-sm" href="<%'= navParent%>&lan=DE"><img src="<%'= imgPath%>images/flags/flagge_DE_AT.gif" <%' If laenderkuerzel = "de" Then Response.Write("style='border:1px solid #000'")%>/>DE/AT</a>-->
@@ -599,6 +599,7 @@ Imports System.Data.SqlClient
</div> -->
<%
End If
'Response.Write(DB2.qry_contentNew(menuID, lan)) %>
<br /><br />