Private Sub update_image(ByVal idutente As Int32, ByVal image As String)
        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_update_imageprofile", db)
                    sqlcmd.CommandType = CommandType.StoredProcedure
                    sqlcmd.Parameters.AddWithValue("@id", SqlDbType.Int).Value = 1 'idutente
                    sqlcmd.Parameters.AddWithValue("@imageprofile", SqlDbType.VarChar).Value = image
                    sqlcmd.ExecuteNonQuery()
                    Dim _img As String = Replace(image, "~", "")
                    ViewState("VarImage") = _img
                End Using
            End Using
        Catch ex As SqlException
            Exit Sub
        Catch ex As Exception
            Exit Sub
        End Try
    End Sub