Private Sub Elimina_profilo()
        Try
            Dim conString = ConfigurationManager.ConnectionStrings("TrycontactString")
            Dim strConnString As String = conString.ConnectionString
            Using db As New SqlConnection(strConnString)
                db.Open()
                Using sqlcmd As New SqlCommand("Sp_delete_profile", db)
                    sqlcmd.CommandType = CommandType.StoredProcedure
                    sqlcmd.Parameters.AddWithValue("@id", SqlDbType.Int).Value = sessione.item("idutente")
                    sqlcmd.ExecuteNonQuery()
                End Using
            End Using
            Session.Clear()
            Page.Response.Redirect("/confermaeliminazione.aspx")
        Catch ex As SqlException
            Exit Sub
        Catch ex As Exception
            Exit Sub
        End Try
    End Sub