<properties>
        <add name ="UserId" 
          allowAnonymous ="false"/>

Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Validate()


        If IsValid Then
            Dim con As New SqlConnection
            Dim com1, com2 As New SqlCommand
            Dim dr As SqlDataReader
            con.ConnectionString = "Data Source=" & constserver & ";Initial Catalog=ps;" & "User Id =Taaamerlan; Password=figspam28"
            com1.Connection = con
            com1.CommandText = "SELECT * FROM dbo.AllInfo WHERE EXISTS(SELECT  top 1 * FROM [ps].[dbo].[Users]WHERE [Login] = '" & TextBox1.Text & "' and [Password] = '" & TextBox2.Text & "')"
            Dim rez As String
            com2.CommandText = ""
            con.Open()
            dr = com1.ExecuteReader()
            dr.Read()
            rez = dr("UserId").ToString
            
            If rez <> "" Then

                FormsAuthentication.RedirectFromLoginPage("User", False)

                Profile.UserId = dr("UserId")
                Profile.Name = dr("Name")
                Profile.SecondName = dr("SecondName")
                Profile.Login = dr("Login")
                Profile.Email = dr("Email")
                Profile.Portret = dr("Portret")

                dr.Close()
                con.Close()
            End If
            dr.Close()
            con.Close()
        End If
    End Sub