<%@ Page Language="vb" MasterPageFile="~/T.Master" AutoEventWireup="false" _
  CodeBehind="overview.aspx.vb" Inherits="T.Overview" Title="Startseite"%>
 
<asp:Content ID="Content1" ContentPlaceHolderID="cphSubMenue" runat="server">
 <!-- #INCLUDE FILE="incSubmenue.aspx" -->
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="cphLogin" runat="server"> 
<!-- #INCLUDE FILE="incLogin.aspx" -->
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="cphMenueFrame" runat="server"> 
<div id="MenueFrame">
<%  
    Dim isLoggedIn As Boolean
    Dim MyUser As New BusinessLogic.Classes.TUser
 
    MyUser = CType(Session("TUser"), BusinessLogic.Classes.TUser)
    If Not IsNothing(MyUser) Then
        isLoggedIn = MyUser.IsLoggedIn
    Else
        isLoggedIn = False
    End If
 
 
 
    Dim strHTML As String = "<asp:TreeView ID=""Menue"" runat=""server""" & _
      "ImageSet=""XPFileExplorer"" NodeIndent=""15"" ShowLines=""True""" & _
      "LineImagesFolder=""~/TreeLineImages""> "
    strHTML += "<ParentNodeStyle Font-Bold=""True"" /><HoverNodeStyle" & _
    "Font-Underline=""True"" ForeColor=""#6666AA"" /> "
    strHTML += "<SelectedNodeStyle BackColor=""#B5B5B5""" & _
    "Font-Underline=""False"" HorizontalPadding=""0px"" VerticalPadding=""0px""" & _
    "/> <Nodes> "
 
    Dim MyDs As System.Data.DataSet
    Dim MySubDs As System.Data.DataSet
    Dim BL As New BusinessLogic.Classes.SP_MySQL
 
    MyDs = BL.ClassOfGoods
 
    Dim MyRow As System.Data.DataRow
    Dim MySubRow As System.Data.DataRow
    For i As Integer = 0 To MyDs.Tables(0).Rows.Count - 1
        MyRow = MyDs.Tables(0).Rows(i)
        If isLoggedIn Then
            strHTML += "<asp:TreeNode NavigateUrl=""~/page1.aspx"" Text=""" + _
              MyRow.Item(1) + """ Value=""" + MyRow.Item(0).ToString + """> "
        Else
            strHTML += "<asp:TreeNode NavigateUrl=""~/page2.aspx"" Text=""" + _
              MyRow.Item(1) + """ Value=""" + MyRow.Item(0).ToString + """> "
        End If
 
        'Unterkategorien laden
        MySubDs = BL.ClassOfGoodsSub(MyRow.Item(0))
        If MySubDs.Tables(0).Rows.Count > 0 Then
            For k As Integer = 0 To MySubDs.Tables(0).Rows.Count - 1
                MySubRow = MySubDs.Tables(0).Rows(k)
                If isLoggedIn Then
                    strHTML += "<asp:TreeNode NavigateUrl=""~/page1.aspx""" & _
                      "Text=""" + MySubRow.Item(1) + """ Value=""" + _
                      MySubRow.Item(0).ToString + """> </asp:TreeNode> "
                Else
                    strHTML += "<asp:TreeNode NavigateUrl=""~/page2.aspx""" & _
                      "Text=""" + MySubRow.Item(1) + """ Value=""" + _
                      MySubRow.Item(0).ToString + """> </asp:TreeNode> "
                End If
            Next
        End If
        strHTML += "</asp:TreeNode> "
    Next
    strHTML += "</Nodes><NodeStyle Font-Names=""Tahoma"" Font-Size=""8pt""" & _
      "ForeColor=""Black"" HorizontalPadding=""2px"" NodeSpacing=""0px""" & _
      "VerticalPadding=""2px"" /></asp:TreeView>"
 
        Response.Write(strHTML)%>      
 
        </div>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="cphVIP" runat="server">
    <div class="MainCPH">
 
    </div>    
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="cphMain" runat="server">
 </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="cphAds" runat="server">    
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="cphFooter" runat="server">
<!-- #INCLUDE FILE="incFooter.aspx" -->
</asp:Content>

Ciao

J?rgen

PS: geht nicht gibt's nicht