Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        If Me.TextBox1.Text = String.Empty Then
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('Campo nome utente: vuoto');</script>")
            Return
        ElseIf Me.TextBox2.Text = String.Empty Then
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('Campo password: vuoto');</script>")
            Return
        End If
        Try
            Dim conString = ConfigurationManager.ConnectionStrings("liceoConnectionString")
            Dim strConnString As String = conString.ConnectionString
            Using scope As New TransactionScope()
                Using db As New SqlConnection(strConnString)
                    db.Open()
                    Using sqlcmd As New SqlCommand("Loginutente", db)
                        sqlcmd.CommandType = CommandType.StoredProcedure
                        sqlcmd.Parameters.Add("@nomeutente", SqlDbType.VarChar).Value = Me.TextBox1.Text
                        sqlcmd.Parameters.Add("@password", SqlDbType.VarChar).Value = Me.TextBox2.Text
                        Using sqldr As SqlDataReader = sqlcmd.ExecuteReader
                            If sqldr.Read() Then
                                Session.Add("Docente", sqldr.GetSqlString(0).Value)
                                Session.Add("idDocente", sqldr.GetSqlInt32(3).Value)
                                Response.Redirect("notizie.aspx")
                            Else
                                REM  Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('Autenticazione fallita! Controllare che i dati inseriti siano corretti.');</script>")
                                Session.Add("Error", "Autenticazione fallita! Controllare che i dati inseriti siano corretti oppure procedere con la registrazione dell'utente.")
                            End If
                        End Using
                    End Using
                End Using
                scope.Complete()
            End Using
        Catch ex As TransactionAbortedException
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('" & ex.Message & "');</script>")
            Return
        Catch ex As SqlException
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('" & ex.Message & "');</script>")
            Return
        Catch ex As Exception
            Page.RegisterStartupScript("ScriptDescription", "<script type=""text/javascript"">alert('" & ex.Message & "');</script>")
            Return
        End Try
    End Sub