205 lines
8.4 KiB
Plaintext
205 lines
8.4 KiB
Plaintext
<%@ Page Language="VB" Debug="true" AutoEventWireup="false" CodeFile="index_TEST.aspx.vb" Inherits="_Default" %>
|
|
|
|
<!DOCTYPE html>
|
|
|
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
|
<head>
|
|
<%@ import Namespace="MySql.Data.MySqlClient" %>
|
|
<script runat="server">
|
|
|
|
Sub Page_Load() Handles Me.Load
|
|
VERAG_VARIABLES.initerrorcount()
|
|
|
|
If Page.IsPostBack = True Then
|
|
Page.MaintainScrollPositionOnPostBack = True
|
|
Else
|
|
Page.MaintainScrollPositionOnPostBack = False
|
|
End If
|
|
' 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"
|
|
'Try
|
|
'con.Open()
|
|
'MsgBox("conn")
|
|
'reader = cmd.ExecuteReader
|
|
'grid.DataSource = reader
|
|
'reader.Read()
|
|
|
|
'MsgBox(reader("title"))
|
|
'DataBind()
|
|
'reader.Close()
|
|
|
|
'Catch ex As Exception
|
|
' MsgBox("err")
|
|
' End Try
|
|
' con.Close()
|
|
End Sub
|
|
' Public ReadOnly Property CurrentCity() As String
|
|
' Get
|
|
' Return "asd"
|
|
' End Get
|
|
|
|
' End Property,
|
|
|
|
</script>
|
|
|
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
|
|
<title>VERAG Spedition AG</title>
|
|
<link rel="stylesheet" type="text/css" href="css/main.css"/>
|
|
<link rel="stylesheet" type="text/css" href="css/style.css"/>
|
|
<LINK REL="SHORTCUT ICON" HREF="images/Icons/favicon/favicon.ico" />
|
|
<!-- <link rel="stylesheet" type="text/css" href="css/edit_main.css"> -->
|
|
<script src="js/netzwerk.js" type="text/javascript"></script>
|
|
|
|
|
|
<link rel="stylesheet" type="text/css" href="../stylesheets/style.css"/>
|
|
<link rel="stylesheet" type="text/css" href="../stylesheets/example.css"/>
|
|
<script type="text/javascript">
|
|
// Vergebe den Event-Handler
|
|
document.onkeydown = handleKeyEvent;
|
|
// Funktion, die den Event verarbeitet
|
|
function handleKeyEvent(e) {
|
|
// MSIE nimmt das Event-Objekt aus window.event, DOM-kompatible Browser aus dem e-Funktionsparameter
|
|
if (!e) e = window.event;
|
|
// keyCode muss 70 sein und ctrlKey true
|
|
if (e.keyCode == 68 && e.ctrlKey) {
|
|
alert('Strg+D wurde gedrückt');
|
|
//topup
|
|
}
|
|
}
|
|
</script>
|
|
<script type="text/javascript" src="js/toptions/top_up-min.js"></script>
|
|
<!--[if IE]>
|
|
<link rel="stylesheet" type="text/css" href="css/main.css">
|
|
<![endif]-->
|
|
|
|
<!--[if IE 6]>
|
|
<link rel="stylesheet" type="text/css" href="css/main.css">
|
|
<![endif]-->
|
|
|
|
<!--[if lt IE 7]>
|
|
<link rel="stylesheet" type="text/css" href="css/main.css">
|
|
<![endif]-->
|
|
|
|
<!--[if lte IE 5.5999]>
|
|
<link rel="stylesheet" type="text/css" href="css/main.css">
|
|
<![endif]-->
|
|
|
|
<!--[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: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:10px;height:10px;color:#fff;text-decoration: none;'>
|
|
<div class="feedback">
|
|
<div class="feedback_txt">
|
|
Feedback
|
|
</div>
|
|
</div>
|
|
</a>
|
|
<a href="sendFeedback.php" 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;'>
|
|
<div class="aviso">
|
|
<div class="aviso_txt">
|
|
<nobr>Neues Aviso</nobr>
|
|
</div>
|
|
</div>
|
|
</a>
|
|
|
|
<div id="bodycontent">
|
|
<!-- #include file="navigation.aspx" -->
|
|
|
|
<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>
|
|
|
|
<ul><div id="art-banner2"></div>
|
|
<%
|
|
For Each nav As cNavigation In navigation
|
|
%>
|
|
|
|
|
|
<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 %>
|
|
<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
|
|
|
|
%>
|
|
|
|
</ul>
|
|
</div>
|
|
<div class="footer">
|
|
<div class="footer_content"><b>VERAG Spedition AG</b> A-4975 Suben 14-15 Tel.: +43 7711 2777-0, Fax: +43 7711 31600, email: info@verag.ag</div>
|
|
</div>
|
|
|
|
</form>
|
|
|
|
</body>
|
|
|
|
</html>
|