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

            '  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> &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>  
    
        </form>
    
    </body>
    
</html>
