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

Responsive Julius Version1

Browse Source
This commit is contained in:
ja
2021-07-28 16:37:28 +02:00
parent 7937ab972e
commit 16b4f4e6b7
145 changed files with 122829 additions and 603 deletions
Download Patch File Download Diff File Expand all files Collapse all files

156
index_TEST.aspx
View File

@@ -6,13 +6,14 @@
<head>
<%@ import Namespace="MySql.Data.MySqlClient" %>
<script runat="server">
Sub Page_Load() Handles Me.Load
' MsgBox ("test")
' MsgBox ("test")
'Dim con As New MySqlConnection
'Dim cmd As New MySqlCommand
' Dim reader As MySqlDataReader
' con.ConnectionString = "Server=localhost;Database=verag_homepage;Uid=sec_user;Pwd=eKcGZr59zAa2BEWU;"
' cmd.Connection = con
'cmd.CommandText = "select * from map"
@@ -22,11 +23,11 @@
'reader = cmd.ExecuteReader
'grid.DataSource = reader
'reader.Read()
'MsgBox(reader("title"))
'DataBind()
'reader.Close()
'Catch ex As Exception
' MsgBox("err")
' End Try
@@ -34,13 +35,12 @@
End Sub
' Public ReadOnly Property CurrentCity() As String
' Get
' Return "asd"
' Return "asd"
' End Get
' End Property,
</script>
</script>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>VERAG Spedition AG</title>
@@ -87,12 +87,13 @@
<!--[if gte IE 5.5]>
<link rel="stylesheet" type="text/css" href="css/main.css">
<![endif]-->
</head>
<body >
<a href="login/login_TEST.aspx" style="position:absolute;left:10px;top:10px;">LOGIN</a>
<<!-- <a href="login/login_TEST.aspx" style="position:center;left:20px;top:10px;">LOGIN</a> -->
<form id="leftLinks" runat="server">
<a href="sendFeedback.aspx" toptions="type = iframe, effect = fade, width = 500, height = 500, overlayClose = 1,shaded=0, layout = flatlook" style='padding:0px;margin:0px;width:50px;height:11px;color:#fff;text-decoration: none;'>
<a href="sendFeedback.aspx" toptions="type = iframe, effect = fade, width = 500, height = 500, overlayClose = 1,shaded=0, layout = flatlook" style='padding:0px;margin:0px;width:10px;height:10px;color:#fff;text-decoration: none;'>
<div class="feedback">
<div class="feedback_txt">
Feedback
@@ -107,88 +108,85 @@
</div>
</a>
<div id="bodycontent">
<div id="bodycontent">
<!-- #include file="navigation.aspx" -->
<div id="main-page">
<div class="pagecontent">
<%
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
%>
<% Response.Write(DB2.qry_contentNew(menuID, lan)) %>
<div id="main-page">
<div class="pagecontent">
<!-- Platz für sidepar "Header" -->
<%
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
%>
<% Response.Write(DB2.qry_contentNew(menuID, lan)) %>
<!-- Platz für Sidebar "Footer" -->
</div>
</div>
</div>
<div class="footer_menu">
<div class="footer_menu_content">
<table>
<tr>
<%
%>
<table>
<tr>
<ul><div id="art-banner2"></div>
<%
Dim navigation_footer As List(Of cNavigation) = DB.qry_menu_tags(laenderkuerzel)
If Not navigation_footer Is Nothing Then
For Each nav as cNavigation In navigation_footer
%>
For Each nav As cNavigation In navigation
%>
<td style ="vertical-align:top;color:white">
<a class="footerHeader" style ="height:20px" href="index.aspx?menuID=<%= nav.id %>&lan=<%= laenderKuerzel %>"><%= nav.bezeichnung %></a><br />
<li><a class="menu_01_link" href="<%= navParent%>?menuID=<%= nav.id %>&lan=<%= laenderKuerzel %>"><%= IIf(nav.bezeichnung <> "", nav.bezeichnung, "XXX") %></a>
<% If nav.subnavigation.Count>0 then %>
<%For Each nav2 as cNavigation In nav.subnavigation%>
<a href="index.aspx?menuID=<%= nav2.id%>&lan=<%= laenderKuerzel %>"><%= nav2.bezeichnung %></a> <br />
<% Dim cells = 0
If nav2.subnavigation.Count>0 then
For Each nav3 As cNavigation In nav2.subnavigation
If cells >= 3 Then
%>
<% cells = 0
End If
%>
<% cells += 1
Next
End If%>
<% Next%>
<% End If %>
</td>
<% Next
End If%>
<%=DB.errorAusg %>
</tr>
</table>
<div class="menu_01">
<% If nav.slogan <> "" Then%>
<%="<div class='menu_slogan'>" & nav.slogan & "</div>"%>
<% End If %>
<% If nav.menu_logo <> "" Then %>
<%="<div class='menu_logo'><img src='" & nav.menu_logo & "'/></div>"%>
<% End If %>
<ul>
<%
For Each nav2 As cNavigation In nav.subnavigation%>
<li><a href="<%= navParent%>?menuID=<%= nav2.id%>&lan=<%= laenderkuerzel %>"><%= nav2.bezeichnung %></a>
<div class="menu_02">
<table>
<tr>
<%
Dim cells = 0
If nav2.subnavigation.Count > 0 Then
For Each nav3 As cNavigation In nav2.subnavigation
If cells >= 3 Then
%></tr><tr>
<% cells = 0
End If
%>
<td><a href="<%= navParent%>?menuID=<%= nav3.id%>&lan=<%= laenderkuerzel %>"><%= nav3.bezeichnung %></a></td>
<% cells += 1
Next
End If%>
</tr>
</table>
</div>
</li>
<%
Next
%>
</ul>
</div>
<% End If
Next
</div>
</div>
%>
</ul>
</div>
<div class="footer">
<div class="footer_content"><b>VERAG Spedition AG</b> &nbsp;&nbsp; A-4975 Suben 14-15 &nbsp;&nbsp; Tel.: +43 7711 2777-0,&nbsp;&nbsp;Fax: +43 7711 31600,&nbsp;&nbsp;email: info@verag.ag</div>
</div>