Dim strmessage As String
Dim remote As New CATALooKRemote.RemoteController
remote.Url = "http://localhost:49456/DNN522_Catalook608/DesktopModules/CATALooKStore/Remote.asmx"
If remote.Login(0, "host", "dnnhosttrs") Then
  
            Dim objAdvCatInfoRemote As CATALooKRemote.AdvCatInfoRemote
            objAdvCatInfoRemote = New CATALooKRemote.AdvCatInfoRemote
            objAdvCatInfoRemote.name = "Test Advanced Category 1"
            objAdvCatInfoRemote.advcatimportid = "TAC1"
            objAdvCatInfoRemote.authorizedroles = "All Users"
            objAdvCatInfoRemote.iconfile = ""
            objAdvCatInfoRemote.disabled = False
            strmessage = remote.AddUpdateAdvancedCategory(objAdvCatInfoRemote)
           
            If strmessage <> "" Then
                Label2.Text = String.Format("Error: {0}", strmessage)
            Else
                Label2.Text = "Adv.Category updated successfully"
            End If
        Else
            Label2.Text = String.Format("Error: {0}", "Login Failed")
End If