Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try

                Dim objConn As New SqlConnection("Stringa di connessione")
                objConn.Open()

                Dim objCmd As New SqlCommand("SelectRootUrl", objConn)
                Dim reader As SqlDataReader = objCmd.ExecuteReader()
                'assegno a RootUrl il primo ed unico valore presente nella tabella
                Try
                    While reader.Read()
                        RootUrl = reader(0)
                    End While
                Finally
                    reader.Close()
                End Try

                ' chiudo la connessione (non mi serve più)
                objConn.Close()

                RootUrlBox.Text = RootUrl

            Catch exc As Exception 'Module failed to load
                ProcessModuleLoadException(Me, exc)
            End Try
        End Sub

#Region "Update"

        Private Sub cmdUpdate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmdUpdate.Click
            Try
                If RootUrl = "" Then

                    Dim objConn1 As New SqlConnection("Stringa di connessione")

                    ' apro la connessione
                    objConn1.Open()

                    ' questo comando lancia la procedura di popolamento delle categorie
                    Dim objCmd1 As New SqlCommand("AddSettingsRootUrl", objConn1)
                    objCmd1.CommandType = CommandType.StoredProcedure

                    ' elenco dei parametri da passare
                    objCmd1.Parameters.Add("@RootUrl", SqlDbType.VarChar, 50).Value = RootUrlBox.Text

                    ' eseguo senza tornare risultati
                    objCmd1.ExecuteNonQuery()

                    ' chiudo la connessione
                    objConn1.Close()

                    Response.Redirect()

                Else
                    ' connessione
                    Dim objConn2 As New SqlConnection("Stringa di connessione")

                    ' apro la connessione
                    objConn2.Open()

                    ' questo comando lancia la procedura di popolamento delle categorie
                    Dim objCmd2 As New SqlCommand("UpdateRootUrl", objConn2)
                    objCmd2.CommandType = CommandType.StoredProcedure

                    ' elenco dei parametri da passare
                    objCmd2.Parameters.Add("@RootUrl", SqlDbType.VarChar, 50).Value = RootUrlBox.Text

                    ' eseguo senza tornare risultati
                    objCmd2.ExecuteNonQuery()

                    ' chiudo la connessione
                    objConn2.Close()

                    Response.Redirect()
                End If

            Catch exc As Exception 'Module failed to load
                ProcessModuleLoadException(Me, exc)
            End Try
        End Sub

#End Region