Login sowie Logout funktioniert

login/Loggedin.aspx.vb

@@ -1,60 +1,26 @@
-Imports System.Data.SqlClient
-Imports System.Data
-
-Partial Class login_login_TEST
+
+Partial Class login_Logged_IN
     Inherits System.Web.UI.Page
-
-    Protected Sub ValidateUser(sender As Object, e As EventArgs)
-        Dim userId As Integer = 0
-        ' cDBFunctions.GetNewOpenConnection()
-        Dim ConnectionString = ""
-        If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
-            'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
-            ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
-        Else
-            ConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
-            'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
-        End If
-
-
-        ' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
-        Using con As New SqlConnection(ConnectionString)
-            ' Using cmd As New SqlCommand("Validate_User")
-            Using cmd As New SqlCommand("SELECT COUNT(*) FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND Password=@Password")
-                ' cmd.CommandType = CommandType.StoredProcedure
-                cmd.Parameters.AddWithValue("@Username", Login1.UserName)
-                cmd.Parameters.AddWithValue("@Password", Login1.Password)
-                cmd.Connection = con
-                con.Open()
-                ' userId = Convert.ToInt32(cmd.ExecuteScalar())
-                Dim dr As SqlDataReader = cmd.ExecuteReader()
-                If dr.HasRows Then
-                    dr.Read()
-                    'MsgBox(dr.Item(0).ToString())
-                    Select Case dr.Item(0)
-                        Case 0
-                            Login1.FailureText = "Username and/or password is incorrect."
-                            Exit Select
-                        Case -2
-                            Login1.FailureText = "Account has not been activated."
-                            Exit Select
-                        Case Else
-                            FormsAuthentication.RedirectFromLoginPage(Login1.UserName, Login1.RememberMeSet)
-                            'FormsAuthentication.SetAuthCookie(Login1.UserName, True)
-                            'Response.Redirect("mypage.aspx")
-                            Exit Select
-                    End Select
-                End If
-                dr.Close()
-                con.Close()
-            End Using
-        End Using
+    Protected Sub Page_Load(sender As Object, e As EventArgs)
+        lbl_Loggedin.ForeColor = Drawing.Color.White
+        lbl_Loggedin.Style.Add("font-weight", "800")
     End Sub
-
-
-
     Protected Sub LogoutButton_Click(sender As Object, e As EventArgs)
         FormsAuthentication.SignOut()
-        Response.Redirect("../login/Logout.aspx")
+        Session.Clear()
+
+        'clear authentication cookie
+        'Dim cookie1 As HttpCookie = New HttpCookie(FormsAuthentication.FormsCookieName, "")
+        'cookie1.Expires = DateTime.Now.AddYears(-1)
+        'Response.Cookies.Add(cookie1)
+
+        'clear session cookie 
+        'Dim sessionStateSection As New SessionStateSection
+        'SessionStateSection = WebConfigurationManager.GetSection("system.web/sessionState")
+        'Dim cookie2 As HttpCookie = New HttpCookie(sessionStateSection.CookieName, "")
+        'cookie2.Expires = DateTime.Now.AddYears(-1)
+        'Response.Cookies.Add(cookie2)
+
+        Response.Redirect("login/Logout.aspx")
     End Sub
 End Class