Initial Commit Update Telerik

2022-01-07 19:26:33 +01:00
commit 57e1cda236
2174 changed files with 1202494 additions and 0 deletions
--- a/LPWeb20/UserControls/Berufsanfrage.aspx
+++ b/LPWeb20/UserControls/Berufsanfrage.aspx
@@ -0,0 +1,88 @@
+<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Berufsanfrage.aspx.vb" Inherits="LPWeb.Berufsanfrage" %>
+
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head id="Head1" runat="server">
+	<title></title>
+    <link href="~/Styles/Site.css" rel="stylesheet" type="text/css" />
+    <style type="text/css">
+        .style2
+        {
+            text-align: left;
+        }
+        #form1
+        {
+            text-align: left;
+        }
+        </style>
+    <script type="text/javascript" id="telerikClientEvents1">
+//<![CDATA[
+        function GetRadWindow() {
+            var oWindow = null;
+            if (window.radWindow) oWindow = window.radWindow; //Will work in Moz in all cases, including clasic dialog
+            else if (window.frameElement.radWindow) oWindow = window.frameElement.radWindow; //IE (and Moz as well)
+
+            return oWindow;
+        }
+
+        function CloseWindow() {
+            GetRadWindow().close();
+        }
+
+        function alertCallBackFn(arg) {
+            radalert("<strong>radalert</strong> returned the following result: <h3 style='color: #ff0000;'>" + arg + "</h3>", null, null, "Result");
+        }
+
+//]]>
+</script>
+</head>
+<body  class="page">
+
+    <form id="form1" runat="server" >
+         <telerik:RadScriptManager ID="RadScriptManager1" Runat="server">
+        </telerik:RadScriptManager>   
+  
+        <table style="width:100%;">
+            <tr>
+                <td class="style2">
+                    Erfassen Sie bitte im nachstehenden Eingabefeld die Berufsbezeichnung.
+                    <br />
+                    Ein Mail mit Ihrer Anfrage wird dem Administrator zugestellt.
+                    <br />
+                    Sie werden anschliessend kontaktiert.</td>
+            </tr>
+            <tr>
+                <td class="style2">
+                    <telerik:RadTextBox ID="RadTextBox1" Runat="server" Label="Berufsbezeichnung" 
+                        LabelWidth="110px" Width="300px" DisplayText="Berufsbild erfassen" 
+                        EmptyMessage="Berufsbild erfassen" type="text" value="">
+                    </telerik:RadTextBox>
+                </td>
+            </tr>
+            <tr>
+                <td class="style2">
+                    &nbsp;</td>
+            </tr>
+        </table>
+        <br />
+         &nbsp;&nbsp;<telerik:RadButton ID="RadButton1" runat="server" Text="Anfrage senden" 
+             onclientclicking="CloseWindow">
+         </telerik:RadButton>&nbsp;&nbsp;
+         <telerik:RadButton ID="RadButton2" runat="server" Text="Abbruch" onclientclicking="CloseWindow">
+         </telerik:RadButton>
+        <br />
+    <br />
+
+        <telerik:RadWindowManager ID="RadWindowManager1" ShowContentDuringLoad="false" VisibleStatusbar="false"
+        ReloadOnShow="true" runat="server"  EnableShadow="true" Skin="Default">
+        <Windows>
+            <telerik:RadWindow ID="RadWindow1" runat="server" Behaviors="Close" 
+                NavigateUrl="~/UserControls/Dialogbox.aspx">
+            </telerik:RadWindow>
+        </Windows>
+    </telerik:RadWindowManager>
+
+    </form>
+</body>
+</html>
--- a/LPWeb20/UserControls/Berufsanfrage.aspx.designer.vb
+++ b/LPWeb20/UserControls/Berufsanfrage.aspx.designer.vb
@@ -0,0 +1,87 @@
+'------------------------------------------------------------------------------
+' <automatisch generiert>
+'     Der Code wurde von einem Tool generiert.
+'
+'     Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
+'     der Code erneut generiert wird. 
+' </automatisch generiert>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class Berufsanfrage
+
+    '''<summary>
+    '''Head1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
+
+    '''<summary>
+    '''form1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
+
+    '''<summary>
+    '''RadScriptManager1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
+
+    '''<summary>
+    '''RadTextBox1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadTextBox1 As Global.Telerik.Web.UI.RadTextBox
+
+    '''<summary>
+    '''RadButton1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadButton1 As Global.Telerik.Web.UI.RadButton
+
+    '''<summary>
+    '''RadButton2-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadButton2 As Global.Telerik.Web.UI.RadButton
+
+    '''<summary>
+    '''RadWindowManager1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadWindowManager1 As Global.Telerik.Web.UI.RadWindowManager
+
+    '''<summary>
+    '''RadWindow1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadWindow1 As Global.Telerik.Web.UI.RadWindow
+End Class
--- a/LPWeb20/UserControls/Berufsanfrage.aspx.vb
+++ b/LPWeb20/UserControls/Berufsanfrage.aspx.vb
@@ -0,0 +1,45 @@
+Public Class Berufsanfrage
+    Inherits System.Web.UI.Page
+
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+
+    End Sub
+
+    Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
+        Dim mds As New DataSet
+        Dim dh As New clsDatahandling
+
+        mds = dh.Get_Tabledata("Select * from beruf where bezeichnung='" + Me.RadTextBox1.Text + "'", False, True)
+        If mds.Tables(0).Rows.Count > 0 Then
+            RadWindowManager1.RadAlert("Die erfasste Berufsbezeichnung ist bereits vorhanden. Bitte eingaben überprüfen", 330, 100, "Bestätigung", "alertCallBackFn", "~/Bilder/info.png")
+        End If
+
+        mds = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=3", False, True)
+        Dim inhalt As String = mds.Tables(0).Rows(0).Item("Inhalt")
+        Dim betreff As String = mds.Tables(0).Rows(0).Item("Betreff")
+        inhalt = inhalt.Replace("[Beruf]", Me.RadTextBox1.Text)
+
+        mds.Tables.Clear()
+        mds = dh.Get_Tabledata("Select * from optionen where optionnr=6", False, True)
+        Dim Email As String = mds.Tables(0).Rows(0).Item("Inhalt")
+
+        mds.Tables.Clear()
+        Dim firma As New DataTable
+        firma = dh.Get_Firma(Session("Firmanr"))
+
+        inhalt = inhalt.Replace("[Firma]", firma.Rows(0).Item("NameZ1") + " " + firma.Rows(0).Item("NameZ2"))
+        inhalt = inhalt.Replace("[Strasse]", firma.Rows(0).Item("Strasse"))
+        inhalt = inhalt.Replace("[PLZ]", firma.Rows(0).Item("Plz"))
+        inhalt = inhalt.Replace("[Ort]", firma.Rows(0).Item("Ort"))
+        inhalt = inhalt.Replace("[Telefon]", firma.Rows(0).Item("Tel"))
+        inhalt = inhalt.Replace("[EMail]", firma.Rows(0).Item("EMail"))
+
+        Dim mailer As New clsSendMail
+        mailer.SendMailMessage("", Email, "", "", betreff, inhalt)
+        RadWindowManager1.RadAlert("Ihre Anfrage wurde erfolgreich übermittelt", 330, 100, "Bestätigung", "alertCallBackFn", "~/Bilder/info.png")
+
+
+    End Sub
+
+   
+End Class
--- a/LPWeb20/UserControls/Berufsanfrage1.aspx
+++ b/LPWeb20/UserControls/Berufsanfrage1.aspx
@@ -0,0 +1,116 @@
+<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Berufsanfrage1.aspx.vb" Inherits="LPWeb.Berufsanfrage1" %>
+<%@ Register Src="~/Defaults/Header1.ascx"   TagPrefix="shu" TagName="Header"  %>
+<%@ Register Src="~/UserControls/Menu1.ascx" TagPrefix="shu" TagName="Menu"  %>
+<%@ Register Src="~/Defaults/Footer.ascx"   TagPrefix="shu" TagName="Footer"  %>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head id="Head1" runat="server">
+	<title></title>
+    <link href="~/Styles/Site.css" rel="stylesheet" type="text/css" />
+    <style type="text/css">
+
+        .style2
+        {
+            text-align: left;
+        }
+        </style>
+
+ <script type="text/javascript" id="telerikClientEvents1">
+//<![CDATA[
+     function alertCallBackFn(arg) {
+         window.location = "../Firmen/Firmendaten1.aspx?Tab=3"
+         //radalert("<strong>radalert</strong> returned the following result: <h3 style='color: #ff0000;'>" + arg + "</h3>", null, null, "Result");
+     }
+     function alertCallBackFnError(arg) {
+         //window.location = "../Firmen/Firmendaten1.aspx?Tab=3"
+         //radalert("<strong>radalert</strong> returned the following result: <h3 style='color: #ff0000;'>" + arg + "</h3>", null, null, "Result");
+     }
+
+
+//]]>
+</script>
+</head>
+
+<body>
+    <form id="form1" runat="server">
+    <telerik:RadScriptManager ID="ScriptManager1" runat="server" 
+        EnableTheming="True">
+        <scripts>
+            <asp:ScriptReference Assembly="Telerik.Web.UI" 
+                Name="Telerik.Web.UI.Common.Core.js">
+            </asp:ScriptReference>
+            <asp:ScriptReference Assembly="Telerik.Web.UI" 
+                Name="Telerik.Web.UI.Common.jQuery.js">
+            </asp:ScriptReference>
+            <asp:ScriptReference Assembly="Telerik.Web.UI" 
+                Name="Telerik.Web.UI.Common.jQueryInclude.js">
+            </asp:ScriptReference>
+        </scripts>
+    </telerik:RadScriptManager>
+    <div class="page">
+        <shu:Header runat="Server" ID="Header1"></shu:Header>
+        <shu:Menu runat="server" ID="Menu1" NavigationLanguage="VB"></shu:Menu>
+
+	    <div class="main">
+            <h2>Berufsanfrage</h2>
+  
+        <table style="width:100%;">
+            <tr>
+                <td class="style2">
+                    Erfassen Sie bitte im nachstehenden Eingabefeld die Berufsbezeichnung.
+                    <br />
+                    Ein Mail mit Ihrer Anfrage wird dem Administrator zugestellt.
+                    <br />
+                    Sie werden anschliessend kontaktiert.</td>
+            </tr>
+            <tr>
+                <td class="style2">
+                    &nbsp;</td>
+            </tr>
+            <tr>
+                <td class="style2">
+                    <telerik:RadTextBox ID="RadTextBox1" Runat="server" Label="Berufsbezeichnung" 
+                        LabelWidth="110px" Width="300px" DisplayText="Berufsbild erfassen" 
+                        EmptyMessage="Berufsbild erfassen" type="text" value="">
+                    </telerik:RadTextBox>
+                </td>
+            </tr>
+            <tr>
+                <td class="style2">
+                    &nbsp;</td>
+            </tr>
+            <tr>
+                <td class="style2">
+                    <telerik:RadButton ID="RadButton1" runat="server" Text="Anfrage senden">
+                    </telerik:RadButton>
+                    <telerik:RadButton ID="RadButton2" runat="server" Text="Abbruch">
+                    </telerik:RadButton>
+                </td>
+            </tr>
+            <tr>
+                <td class="style2">
+                    &nbsp;</td>
+            </tr>
+        </table>
+        </div>
+     </div>
+        
+    <shu:Footer runat="Server" ID="Footer1"></SHU:Footer> 
+
+
+    <telerik:RadWindowManager ID="RadWindowManager1" ShowContentDuringLoad="false" VisibleStatusbar="false"
+        ReloadOnShow="true" runat="server"  EnableShadow="true" Skin="Default">
+        <Windows>
+            <telerik:RadWindow ID="RadWindow1" runat="server" Behaviors="Close" 
+                NavigateUrl="~/UserControls/Berufsanfrage.aspx">
+            </telerik:RadWindow>
+        </Windows>
+    </telerik:RadWindowManager>
+
+
+
+
+	</form>
+    </body>
+</html>
--- a/LPWeb20/UserControls/Berufsanfrage1.aspx.designer.vb
+++ b/LPWeb20/UserControls/Berufsanfrage1.aspx.designer.vb
@@ -0,0 +1,114 @@
+'------------------------------------------------------------------------------
+' <automatisch generiert>
+'     Der Code wurde von einem Tool generiert.
+'
+'     Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
+'     der Code erneut generiert wird. 
+' </automatisch generiert>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class Berufsanfrage1
+
+    '''<summary>
+    '''Head1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
+
+    '''<summary>
+    '''form1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
+
+    '''<summary>
+    '''ScriptManager1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents ScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
+
+    '''<summary>
+    '''Header1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Header1 As Global.LPWeb.Header1
+
+    '''<summary>
+    '''Menu1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Menu1 As Global.LPWeb.Menu1
+
+    '''<summary>
+    '''RadTextBox1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadTextBox1 As Global.Telerik.Web.UI.RadTextBox
+
+    '''<summary>
+    '''RadButton1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadButton1 As Global.Telerik.Web.UI.RadButton
+
+    '''<summary>
+    '''RadButton2-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadButton2 As Global.Telerik.Web.UI.RadButton
+
+    '''<summary>
+    '''Footer1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Footer1 As Global.LPWeb.Footer
+
+    '''<summary>
+    '''RadWindowManager1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadWindowManager1 As Global.Telerik.Web.UI.RadWindowManager
+
+    '''<summary>
+    '''RadWindow1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadWindow1 As Global.Telerik.Web.UI.RadWindow
+End Class
--- a/LPWeb20/UserControls/Berufsanfrage1.aspx.vb
+++ b/LPWeb20/UserControls/Berufsanfrage1.aspx.vb
@@ -0,0 +1,50 @@
+Imports System.Web.Configuration
+Public Class Berufsanfrage1
+    Inherits System.Web.UI.Page
+
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+
+    End Sub
+
+    Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
+        Dim mds As New DataSet
+        Dim dh As New clsDatahandling
+
+        mds = dh.Get_Tabledata("Select * from beruf where aktiv=1 and bezeichnung='" + Me.RadTextBox1.Text + "'", False, True)
+        If mds.Tables(0).Rows.Count > 0 Then
+            Dim image1 As String = WebConfigurationManager.AppSettings("Imagepath") + "Error.png"
+            RadWindowManager1.RadAlert("Der eingegebene Beruf ist bereits vorhanden Bitte überprüfen Sie Ihre Eingaben.", 330, 100, "Fehler", "alertCallBackFnError", image1)
+            Exit Sub
+        End If
+        mds.Tables.Clear()
+        mds = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=3", False, True)
+        Dim inhalt As String = mds.Tables(0).Rows(0).Item("Inhalt")
+        Dim betreff As String = mds.Tables(0).Rows(0).Item("Betreff")
+        inhalt = inhalt.Replace("[Beruf]", Me.RadTextBox1.Text)
+
+        mds.Tables.Clear()
+        mds = dh.Get_Tabledata("Select * from optionen where optionnr=6", False, True)
+        Dim Email As String = mds.Tables(0).Rows(0).Item("Inhalt")
+
+        mds.Tables.Clear()
+        Dim firma As New DataTable
+        firma = dh.Get_Firma(Session("Firmanr"))
+
+        inhalt = inhalt.Replace("[Firma]", firma.Rows(0).Item("NameZ1") + " " + firma.Rows(0).Item("NameZ2"))
+        inhalt = inhalt.Replace("[Strasse]", firma.Rows(0).Item("Strasse"))
+        inhalt = inhalt.Replace("[PLZ]", firma.Rows(0).Item("Plz"))
+        inhalt = inhalt.Replace("[Ort]", firma.Rows(0).Item("Ort"))
+        inhalt = inhalt.Replace("[Telefon]", firma.Rows(0).Item("Tel"))
+        inhalt = inhalt.Replace("[EMail]", firma.Rows(0).Item("EMail"))
+
+        Dim mailer As New clsSendMail
+        mailer.SendMailMessage("", Email, "", "", betreff, inhalt)
+        Dim image As String = WebConfigurationManager.AppSettings("Imagepath") + "info1.png"
+        RadWindowManager1.RadAlert("Ihre Anfrage wurde erfolgreich übermittelt.", 330, 100, "Bestätigung", "alertCallBackFn", image)
+
+    End Sub
+
+    Protected Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton2.Click
+        Response.Redirect("~/Firmen/Firmendaten1.aspx?Tab=3")
+    End Sub
+End Class
--- a/LPWeb20/UserControls/Dialogbox.aspx
+++ b/LPWeb20/UserControls/Dialogbox.aspx
@@ -0,0 +1,66 @@
+<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Dialogbox.aspx.vb" Inherits="LPWeb.Dialogbox" %>
+
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head id="Head1" runat="server">
+	<title></title>
+    <link href="~/Styles/Site.css" rel="stylesheet" type="text/css" />
+    <style type="text/css">
+        .style2
+        {
+            width: 66px;
+            text-align: left;
+        }
+        #form1
+        {
+            text-align: center;
+        }
+        .style3
+        {
+            text-align: left;
+        }
+    </style>
+    <script type="text/javascript" id="telerikClientEvents1">
+//<![CDATA[
+        function GetRadWindow() {
+            var oWindow = null;
+            if (window.radWindow) oWindow = window.radWindow; //Will work in Moz in all cases, including clasic dialog
+            else if (window.frameElement.radWindow) oWindow = window.frameElement.radWindow; //IE (and Moz as well)
+
+            return oWindow;
+        }
+
+        function CloseWindow() {
+            GetRadWindow().close();
+        }
+
+
+//]]>
+</script>
+</head>
+<body  class="message">
+
+    <form id="form1" runat="server" >
+         <telerik:RadScriptManager ID="RadScriptManager1" Runat="server">
+        </telerik:RadScriptManager>   
+  
+        <table style="width:100%;">
+            <tr>
+                <td class="style2">
+                    <asp:Image ID="Image1" runat="server" ImageUrl="~/Bilder/warning.png" />
+                </td>
+                <td class="style3">
+        <asp:Label ID="Label1" runat="server" Text="Label"></asp:Label>
+                </td>
+            </tr>
+        </table>
+        <br />
+         <telerik:RadButton ID="RadButton1" runat="server" Text="ok" 
+             onclientclicking="CloseWindow">
+         </telerik:RadButton>
+        <br />
+    <br />
+    </form>
+</body>
+</html>
--- a/LPWeb20/UserControls/Dialogbox.aspx.designer.vb
+++ b/LPWeb20/UserControls/Dialogbox.aspx.designer.vb
@@ -0,0 +1,69 @@
+'------------------------------------------------------------------------------
+' <automatisch generiert>
+'     Der Code wurde von einem Tool generiert.
+'
+'     Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
+'     der Code erneut generiert wird. 
+' </automatisch generiert>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class Dialogbox
+
+    '''<summary>
+    '''Head1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Head1 As Global.System.Web.UI.HtmlControls.HtmlHead
+
+    '''<summary>
+    '''form1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
+
+    '''<summary>
+    '''RadScriptManager1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
+
+    '''<summary>
+    '''Image1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Image1 As Global.System.Web.UI.WebControls.Image
+
+    '''<summary>
+    '''Label1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Label1 As Global.System.Web.UI.WebControls.Label
+
+    '''<summary>
+    '''RadButton1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadButton1 As Global.Telerik.Web.UI.RadButton
+End Class
--- a/LPWeb20/UserControls/Dialogbox.aspx.vb
+++ b/LPWeb20/UserControls/Dialogbox.aspx.vb
@@ -0,0 +1,8 @@
+Public Class Dialogbox
+    Inherits System.Web.UI.Page
+
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        Me.Label1.Text = Session.Item("ErrorMessage")
+    End Sub
+
+End Class
--- a/LPWeb20/UserControls/Menu.ascx
+++ b/LPWeb20/UserControls/Menu.ascx
@@ -0,0 +1,20 @@
+<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="Menu.ascx.vb" Inherits="LPWeb.Menu" %>
+<asp:Menu ID="NavigationMenu" runat="server" CssClass="menu" IncludeStyleBlock="False"  Orientation="Horizontal">
+   <Items>
+       <asp:MenuItem NavigateUrl="~/Default.aspx" Text="Homepage" Selected="True"/>
+       <asp:MenuItem NavigateUrl="~/tests/webform3.aspx" Text="Info"/>
+       <asp:MenuItem Text="Auswertungen" Value="Auswertungen"></asp:MenuItem>
+       <asp:MenuItem Text="Firmen" Value="Firmen"></asp:MenuItem>
+       <asp:MenuItem Text="Schüler" Value="Schüler"></asp:MenuItem>
+       <asp:MenuItem Text="Administration" Value="Administration">
+       <asp:MenuItem Text="Stammdaten" Value="Stammdaten">
+       <asp:MenuItem Text="Benutzer" Value="Benutzer"></asp:MenuItem>
+       <asp:MenuItem Text="Berufe" Value="Berufe"></asp:MenuItem>
+    </asp:MenuItem>
+                        </asp:MenuItem>
+                    </Items>
+                </asp:Menu>
+                <hr />
+
+
+
--- a/LPWeb20/UserControls/Menu.ascx.designer.vb
+++ b/LPWeb20/UserControls/Menu.ascx.designer.vb
@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <automatisch generiert>
+'     Der Code wurde von einem Tool generiert.
+'
+'     Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
+'     der Code erneut generiert wird. 
+' </automatisch generiert>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class Menu
+
+    '''<summary>
+    '''NavigationMenu-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents NavigationMenu As Global.System.Web.UI.WebControls.Menu
+End Class
--- a/LPWeb20/UserControls/Menu.ascx.vb
+++ b/LPWeb20/UserControls/Menu.ascx.vb
@@ -0,0 +1,69 @@
+Public Class Menu
+    Inherits System.Web.UI.UserControl
+
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+
+        If Session.Item("LogedIn") Is Nothing Then
+            Me.NavigationMenu.Items.Clear()
+            get_menu(1)
+            Exit Sub
+        End If
+        If Session.Item("LogedIn") = False Then
+            Me.NavigationMenu.Items.Clear()
+            get_menu(1)
+            Exit Sub
+        End If
+        Me.NavigationMenu.Items.Clear()
+        get_menu(Session.Item("Menuhandler"))
+
+
+        '        Dim mi As New System.Web.UI.WebControls.MenuItem
+        '        mi.Text = "Hallo"
+        '        Me.NavigationMenu.Items.Add(mi)
+    End Sub
+
+    Sub get_menu(ByVal menutype As Integer)
+        Dim dh As New clsDatahandling
+        Dim Menuentries As New DataTable
+        Menuentries = dh.Get_Menu(menutype)
+        Dim found As Boolean = False
+        For Each dr As DataRow In Menuentries.Rows
+            Dim mi As New System.Web.UI.WebControls.MenuItem
+            mi.Text = dr.Item(1).ToString
+            mi.Value = dr.Item(2).ToString
+            mi.ToolTip = dr.Item(3).ToString
+            mi.NavigateUrl = dr.Item(4).ToString
+            If dr.Item("Parentnr") = 0 Then
+                Me.NavigationMenu.Items.Add(mi)
+            Else
+                found = False
+                For Each mitem As System.Web.UI.WebControls.MenuItem In Me.NavigationMenu.Items
+                    If mitem.Value.ToString = dr.Item("Parentnr").ToString Then
+                        mitem.ChildItems.Add(mi)
+                        found = True
+                        Exit For
+                    End If
+                Next
+                If found = False Then
+                    For Each mitem As System.Web.UI.WebControls.MenuItem In Me.NavigationMenu.Items
+                        For Each mitem2 As System.Web.UI.WebControls.MenuItem In mitem.ChildItems
+                            If mitem2.Value.ToString = dr.Item("Parentnr").ToString Then
+                                mitem2.ChildItems.Add(mi)
+                                found = True
+                                Exit For
+                            End If
+                        Next
+                    Next
+                End If
+            End If
+        Next
+
+    End Sub
+
+
+
+
+    Protected Sub NavigationMenu_MenuItemClick(sender As Object, e As MenuEventArgs) Handles NavigationMenu.MenuItemClick
+
+    End Sub
+End Class
--- a/LPWeb20/UserControls/Menu1.ascx
+++ b/LPWeb20/UserControls/Menu1.ascx
@@ -0,0 +1,38 @@
+<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="Menu1.ascx.vb" Inherits="LPWeb.Menu1" %>
+
+
+<style type="text/css">
+    .auto-style2 {
+        height: 2px;
+    }
+    .auto-style3 {
+        height: 2px;
+        width: 830px;
+    }
+</style>
+
+
+<asp:Panel ID="Panel1" runat="server">
+<table>
+<tr><td class="auto-style3">
+<telerik:RadMenu ID="RadMenu1" Runat="server">
+    <Items>
+        <telerik:RadMenuItem runat="server" NavigateUrl="~/Default.aspx" Text="Home">
+        </telerik:RadMenuItem>
+    </Items>
+</telerik:RadMenu>
+</td>
+<td class="auto-style2">
+    <telerik:RadMenu ID="RadMenu2" Runat="server">
+        <Items>
+            <telerik:RadMenuItem runat="server" ImageUrl="~/Bilder/help.png" NavigateUrl="~/help/Registrierung_und_Anmeldung.htm" Target="_blank" Text="Hilfe">
+            </telerik:RadMenuItem>
+            <telerik:RadMenuItem runat="server" NavigateUrl="~/Administration/About.aspx" Text="Über">
+            </telerik:RadMenuItem>
+        </Items>
+    </telerik:RadMenu>
+    </td>
+</tr>
+</table>
+</asp:Panel>
+
--- a/LPWeb20/UserControls/Menu1.ascx.designer.vb
+++ b/LPWeb20/UserControls/Menu1.ascx.designer.vb
@@ -0,0 +1,42 @@
+'------------------------------------------------------------------------------
+' <automatisch generiert>
+'     Der Code wurde von einem Tool generiert.
+'
+'     Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
+'     der Code erneut generiert wird. 
+' </automatisch generiert>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class Menu1
+
+    '''<summary>
+    '''Panel1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Panel1 As Global.System.Web.UI.WebControls.Panel
+
+    '''<summary>
+    '''RadMenu1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadMenu1 As Global.Telerik.Web.UI.RadMenu
+
+    '''<summary>
+    '''RadMenu2-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadMenu2 As Global.Telerik.Web.UI.RadMenu
+End Class
--- a/LPWeb20/UserControls/Menu1.ascx.vb
+++ b/LPWeb20/UserControls/Menu1.ascx.vb
@@ -0,0 +1,97 @@
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Web.Configuration
+Public Class Menu1
+    Inherits System.Web.UI.UserControl
+
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        If Page.IsPostBack Then Exit Sub
+        'Session.Item("LogedIn") = "True"
+        'Session.Item("Firmanr") = 19
+        'Session.Item("Menuhandler") = 2
+        'Session.Item("Admin") = "True"
+        'Session.Item("UserID") = 12
+        If Session.Item("LogedIn") Is Nothing Then
+            Me.RadMenu1.Items.Clear()
+            get_menu(1)
+            'Exit Sub
+        End If
+        If Session.Item("LogedIn") = False Then
+            Me.RadMenu1.Items.Clear()
+            get_menu(1)
+            'Exit Sub
+        End If
+        Me.RadMenu1.Items.Clear()
+        get_menu(Session.Item("Menuhandler"))
+
+        Dim dh As New clsDatahandling
+        Dim ds As New DataSet
+        'Me.Label1.Text = Request.Url.LocalPath
+        ds = dh.Get_Tabledata("select * from webhelp_mapper where sourceurl='" + Request.Url.LocalPath + "'", False, True)
+        If ds.Tables(0).Rows.Count < 1 Then
+            Me.RadMenu2.Items(0).NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + "index.html"
+            '            Me.HyperLink1.NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + "index.html"
+        Else
+            '    Me.HyperLink1.NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + ds.Tables(0).Rows(0).Item("desturl").ToString
+            Me.RadMenu2.Items(0).NavigateUrl = WebConfigurationManager.AppSettings("HelpSource") + ds.Tables(0).Rows(0).Item("desturl").ToString
+        End If
+
+        '       End If
+        If WebConfigurationManager.AppSettings("ShowHelpLink") = "True" Then Me.RadMenu2.Items(0).Visible = True Else Me.RadMenu2.Items(0).Visible = False
+
+        '        Dim mi As New System.Web.UI.WebControls.MenuItem
+        '        mi.Text = "Hallo"
+        '        Me.NavigationMenu.Items.Add(mi)
+    End Sub
+
+    Sub get_menu(ByVal menutype As Integer)
+        Dim dh As New clsDatahandling
+        Dim Menuentries As New DataTable
+        Menuentries = dh.Get_Menu(menutype)
+        Dim found As Boolean = False
+        For Each dr As DataRow In Menuentries.Rows
+            Dim mi As New Telerik.Web.UI.RadMenuItem
+            'Dim mi As New System.Web.UI.WebControls.MenuItem
+            'If menutype = 3 And dh.Get_Option(11) = "1/2" And dr.Item(1).ToString = "Schüler" Then
+            'Dim a As Integer = 1
+            'Else
+            mi.Text = dr.Item(1).ToString
+                mi.Value = dr.Item(0).ToString
+                mi.ToolTip = dr.Item(3).ToString
+                mi.NavigateUrl = dr.Item(4).ToString
+                If dr.Item("Parentnr") = 0 Then
+                    Me.RadMenu1.Items.Add(mi)
+                Else
+                    found = False
+                    For Each mitem As Telerik.Web.UI.RadMenuItem In Me.RadMenu1.Items
+                        'For Each mitem As System.Web.UI.WebControls.MenuItem In Me.RadMenu1.Items
+                        If mitem.Value.ToString = dr.Item("Parentnr").ToString Then
+                            mitem.Items.Add(mi)
+                            'mitem.ChildItems.Add(mi)
+                            found = True
+                            Exit For
+                        End If
+                    Next
+                    If found = False Then
+                        'For Each mitem As System.Web.UI.WebControls.MenuItem In Me.RadMenu1.Items
+                        For Each mitem As Telerik.Web.UI.RadMenuItem In Me.RadMenu1.Items
+                            For Each mitem2 As Telerik.Web.UI.RadMenuItem In mitem.Items
+                                If mitem2.Value.ToString = dr.Item("Parentnr").ToString Then
+                                    mitem2.Items.Add(mi)
+                                    found = True
+                                    Exit For
+                                End If
+                            Next
+                        Next
+                    End If
+                End If
+            'End If
+
+        Next
+
+    End Sub
+
+    Protected Sub RadMenu2_ItemClick(sender As Object, e As Telerik.Web.UI.RadMenuEventArgs) Handles RadMenu2.ItemClick
+
+    End Sub
+End Class
--- a/LPWeb20/UserControls/RegisterActivation.ascx
+++ b/LPWeb20/UserControls/RegisterActivation.ascx
@@ -0,0 +1,38 @@
+<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="RegisterActivation.ascx.vb" Inherits="LPWeb.RegisterActivation" %>
+<asp:Panel ID="Panel1" runat="server">
+    Ihre Account wurde erfolgreich aktiviert.<br /> Sie können Sie nun auf der 
+    Startseite mit Ihrer User-ID und Ihrem Passwort anmelden.<br />
+    <br />
+    Um sich anzumelden klicken Sie
+    <asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl="~/Default.aspx">hier</asp:HyperLink>
+</asp:Panel>
+<asp:Panel ID="Panel2" runat="server">
+    Ihre Aktivierung war nicht erfolgreich. Bitte registrieren Sie sich neu oder 
+    lassen Sie sich Ihre Aktivierungsinformationen nochmals zustellen:<br />
+    <br />
+    <asp:HyperLink ID="Register_as_Company" runat="server" 
+        NavigateUrl="~/Firmen/Firmendaten1.aspx?RegisterAsCompany=True">Neu registrieren als Firma</asp:HyperLink>
+    <br />
+    <asp:HyperLink ID="HyperLink2" runat="server" 
+        NavigateUrl="~/Lehrer/LehrerRegister.aspx">Neu registrieren als Lehrer</asp:HyperLink>
+    <br />
+    <br />
+    <br />
+    <asp:Panel ID="Panel3" runat="server" Height="136px" Width="400px">
+        Aktivierungsinformationen neu zustellen<br />
+    <telerik:RadTextBox ID="txtemail" Runat="server" Label="E-Mail:" 
+        LabelWidth="60px" Width="240px">
+    </telerik:RadTextBox>
+    <asp:RegularExpressionValidator ID="CV3" runat="server" ErrorMessage="Benutzer E-Mail-Adresse ungültig"  ForeColor="Red" ControlToValidate="txtemail" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*">E-Mail-Adresse ungültig</asp:RegularExpressionValidator> 
+    <br />
+    <br />
+    <telerik:RadButton ID="btnsend" runat="server" Text="Senden">
+    </telerik:RadButton>
+    <br />
+        <br />
+        <asp:Label ID="lblMessage" runat="server"></asp:Label>
+    <br />
+    </asp:Panel>
+    
+</asp:Panel>
+
--- a/LPWeb20/UserControls/RegisterActivation.ascx.designer.vb
+++ b/LPWeb20/UserControls/RegisterActivation.ascx.designer.vb
@@ -0,0 +1,105 @@
+'------------------------------------------------------------------------------
+' <automatisch generiert>
+'     Der Code wurde von einem Tool generiert.
+'
+'     Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
+'     der Code erneut generiert wird. 
+' </automatisch generiert>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class RegisterActivation
+
+    '''<summary>
+    '''Panel1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Panel1 As Global.System.Web.UI.WebControls.Panel
+
+    '''<summary>
+    '''HyperLink1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents HyperLink1 As Global.System.Web.UI.WebControls.HyperLink
+
+    '''<summary>
+    '''Panel2-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Panel2 As Global.System.Web.UI.WebControls.Panel
+
+    '''<summary>
+    '''Register_as_Company-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Register_as_Company As Global.System.Web.UI.WebControls.HyperLink
+
+    '''<summary>
+    '''HyperLink2-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents HyperLink2 As Global.System.Web.UI.WebControls.HyperLink
+
+    '''<summary>
+    '''Panel3-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Panel3 As Global.System.Web.UI.WebControls.Panel
+
+    '''<summary>
+    '''txtemail-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents txtemail As Global.Telerik.Web.UI.RadTextBox
+
+    '''<summary>
+    '''CV3-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents CV3 As Global.System.Web.UI.WebControls.RegularExpressionValidator
+
+    '''<summary>
+    '''btnsend-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents btnsend As Global.Telerik.Web.UI.RadButton
+
+    '''<summary>
+    '''lblMessage-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents lblMessage As Global.System.Web.UI.WebControls.Label
+End Class
--- a/LPWeb20/UserControls/RegisterActivation.ascx.vb
+++ b/LPWeb20/UserControls/RegisterActivation.ascx.vb
@@ -0,0 +1,42 @@
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Web.Configuration
+Public Class RegisterActivation
+    Inherits System.Web.UI.UserControl
+
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        If Request.QueryString("Code") <> "" Then
+            Dim dh As New clsDatahandling
+            If dh.User_Activation(Request.QueryString("code")) = True Then
+                Me.Panel1.Visible = True
+                Me.Panel2.Visible = False
+            Else
+                Me.Panel1.Visible = False
+                Me.Panel2.Visible = True
+            End If
+        End If
+    End Sub
+
+    Protected Sub btnsend_Click(sender As Object, e As EventArgs) Handles btnsend.Click
+        If Page.IsValid Then
+            Dim dh As New clsDatahandling
+            Dim ds As New DataSet
+            ds = dh.Get_Tabledata("Select top 1 * from web_user where email = '" + Me.txtemail.Text + "'", False, True)
+            If ds.Tables(0).Rows.Count < 1 Then
+                Me.lblMessage.Text = "E-Mail-Adresse ist unbekannt. Bitte wiederholen Sie den Vorgang."
+                Exit Sub
+            End If
+            Dim randomkey As String
+            randomkey = ds.Tables(0).Rows(0).Item("VerifyString")
+            ds.Tables.Clear()
+            ds = dh.Get_Tabledata("Select * from Web_MailTexte where nreintrag=1", False, True)
+            Dim inhalt As String = ds.Tables(0).Rows(0).Item("Inhalt")
+            inhalt = inhalt.Replace("[Weblink]", WebConfigurationManager.AppSettings("WebSite"))
+            inhalt = inhalt.Replace("[RegisterLink]", WebConfigurationManager.AppSettings("WebSite") + "/user/" + "RegisterBestaetigung.aspx?fnkt=Aktivierung&Code=" + RandomKey)
+
+            Dim mailer As New clsSendMail
+            mailer.SendMailMessage("", Me.txtemail.Text, "", "", ds.Tables(0).Rows(0).Item("Betreff").ToString, inhalt)
+            Me.lblMessage.Text = "Ein E-Mail mit den Aktivierungsinformationen wurde Ihnen soben zugestellt."
+        End If
+    End Sub
+End Class
--- a/LPWeb20/UserControls/RegisterSend.ascx
+++ b/LPWeb20/UserControls/RegisterSend.ascx
@@ -0,0 +1,11 @@
+<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="RegisterSend.ascx.vb" Inherits="LPWeb.RegisterSend" %>
+<p>
+    Sie haben sich soeben erfolgreich registriert.</p>
+<p>
+    Um die Registrierung abzuschliessen, wurde Ihnen ein E-Mail mit dem Link zur 
+    Aktivierung zugestellt.</p>
+<p>
+    Besten Dank.</p>
+<p>
+    &nbsp;</p>
+
--- a/LPWeb20/UserControls/RegisterSend.ascx.designer.vb
+++ b/LPWeb20/UserControls/RegisterSend.ascx.designer.vb
@@ -0,0 +1,15 @@
+'------------------------------------------------------------------------------
+' <automatisch generiert>
+'     Der Code wurde von einem Tool generiert.
+'
+'     Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
+'     der Code erneut generiert wird. 
+' </automatisch generiert>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class RegisterSend
+End Class
--- a/LPWeb20/UserControls/RegisterSend.ascx.vb
+++ b/LPWeb20/UserControls/RegisterSend.ascx.vb
@@ -0,0 +1,8 @@
+Public Class RegisterSend
+    Inherits System.Web.UI.UserControl
+
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        Session.Item("RegisterAsCompany") = Nothing
+    End Sub
+
+End Class
--- a/LPWeb20/UserControls/test.aspx
+++ b/LPWeb20/UserControls/test.aspx
@@ -0,0 +1,22 @@
+<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="test.aspx.vb" Inherits="LPWeb.test" %>
+
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head runat="server">
+    <title></title>
+</head>
+<body>
+    <form id="form1" runat="server">
+    <div>
+    
+        <asp:Button ID="Button1" runat="server" Text="Button" />
+        <telerik:RadWindowManager ID="RadWindowManager1" runat="server">
+        </telerik:RadWindowManager>
+    
+    </div>
+    <telerik:RadScriptManager ID="RadScriptManager1" Runat="server">
+    </telerik:RadScriptManager>
+    </form>
+</body>
+</html>
--- a/LPWeb20/UserControls/test.aspx.designer.vb
+++ b/LPWeb20/UserControls/test.aspx.designer.vb
@@ -0,0 +1,51 @@
+'------------------------------------------------------------------------------
+' <automatisch generiert>
+'     Der Code wurde von einem Tool generiert.
+'
+'     Änderungen an der Datei führen möglicherweise zu falschem Verhalten, und sie gehen verloren, wenn
+'     der Code erneut generiert wird. 
+' </automatisch generiert>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class test
+
+    '''<summary>
+    '''form1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
+
+    '''<summary>
+    '''Button1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents Button1 As Global.System.Web.UI.WebControls.Button
+
+    '''<summary>
+    '''RadWindowManager1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadWindowManager1 As Global.Telerik.Web.UI.RadWindowManager
+
+    '''<summary>
+    '''RadScriptManager1-Steuerelement
+    '''</summary>
+    '''<remarks>
+    '''Automatisch generiertes Feld
+    '''Um dies zu ändern, verschieben Sie die Felddeklaration aus der Designerdatei in eine Code-Behind-Datei.
+    '''</remarks>
+    Protected WithEvents RadScriptManager1 As Global.Telerik.Web.UI.RadScriptManager
+End Class
--- a/LPWeb20/UserControls/test.aspx.vb
+++ b/LPWeb20/UserControls/test.aspx.vb
@@ -0,0 +1,15 @@
+Public Class test
+    Inherits System.Web.UI.Page
+
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+
+    End Sub
+
+    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim newwindow As New Telerik.Web.UI.RadWindow
+        newwindow.NavigateUrl = "~/UserControls/Dialogbox.aspx"
+        newwindow.ID = "RadWindow1"
+        newwindow.VisibleOnPageLoad = True
+        RadWindowManager1.Windows.Add(newwindow)
+    End Sub
+End Class