'------------------------------------------------------------------------------ ' ' 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 gcrc ' _ Public Class insertEducationRegistrationClass Inherits System.Web.Services.Protocols.SoapHttpClientProtocol ' Public Sub New() MyBase.New Me.Url = "http://www.gcrc.uic.edu/education/insertEducationRegistration.asmx" End Sub ' _ Public Function insertRegistrationMethod(ByVal name As String, ByVal department As String, ByVal email As String, ByVal telephone As String, ByVal message As String, ByVal category As String) As String Dim results() As Object = Me.Invoke("insertRegistrationMethod", New Object() {name, department, email, telephone, message, category}) Return CType(results(0),String) End Function ' Public Function BegininsertRegistrationMethod(ByVal name As String, ByVal department As String, ByVal email As String, ByVal telephone As String, ByVal message As String, ByVal category As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("insertRegistrationMethod", New Object() {name, department, email, telephone, message, category}, callback, asyncState) End Function ' Public Function EndinsertRegistrationMethod(ByVal asyncResult As System.IAsyncResult) As String Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),String) End Function End Class End Namespace