'------------------------------------------------------------------------------
'
' This code was generated by a tool.
' Runtime Version: 1.0.3705.288
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
'
'Saturn Web Development Tool
'
Namespace ect
'
_
Public Class changeUserInfoClass
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
'
Public Sub New()
MyBase.New
Me.Url = "http://192.168.1.5/agsm/profile/changeUserinfo.asmx"
End Sub
'
_
Public Function infoRetrieval(ByVal loginID As String) As System.Data.DataSet
Dim results() As Object = Me.Invoke("infoRetrieval", New Object() {loginID})
Return CType(results(0),System.Data.DataSet)
End Function
'
Public Function BegininfoRetrieval(ByVal loginID As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("infoRetrieval", New Object() {loginID}, callback, asyncState)
End Function
'
Public Function EndinfoRetrieval(ByVal asyncResult As System.IAsyncResult) As System.Data.DataSet
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),System.Data.DataSet)
End Function
'
_
Public Function infoUpdate(ByVal password As String, ByVal address As String, ByVal city As String, ByVal state As String, ByVal zip As String, ByVal email As String, ByVal homePhone As String, ByVal workPhone As String, ByVal cellPhone As String, ByVal fax As String, ByVal loginID As String) As Object
Dim results() As Object = Me.Invoke("infoUpdate", New Object() {password, address, city, state, zip, email, homePhone, workPhone, cellPhone, fax, loginID})
Return CType(results(0),Object)
End Function
'
Public Function BegininfoUpdate(ByVal password As String, ByVal address As String, ByVal city As String, ByVal state As String, ByVal zip As String, ByVal email As String, ByVal homePhone As String, ByVal workPhone As String, ByVal cellPhone As String, ByVal fax As String, ByVal loginID As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("infoUpdate", New Object() {password, address, city, state, zip, email, homePhone, workPhone, cellPhone, fax, loginID}, callback, asyncState)
End Function
'
Public Function EndinfoUpdate(ByVal asyncResult As System.IAsyncResult) As Object
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),Object)
End Function
End Class
End Namespace