gytnet

Public Class GetListItems

    <WebMethod()> _
    Public Function GetListItems(ByVal listName As String, ByVal viewID As String, ByVal query As String, ByVal viewFields As String, ByVal rowLimit As String, ByVal queryOptions As String, ByVal webID As String) As XmlNode
        Dim service As SharePointListsWS.Lists = GetWebServiceInstance(webID)

        Dim queryElement As XmlNode = CreateNode("Query", query)
        Dim viewFieldsElement As XmlNode = CreateNode("ViewFields", viewFields)
        Dim queryOptionsElement As XmlNode = CreateNode("QueryOptions", queryOptions)

        Return service.GetListItems(listName, viewID, queryElement, viewFieldsElement, rowLimit, queryOptionsElement, webID)

    End Function

    Private Function GetWebServiceInstance(ByVal webID As String) As SharePointListsWS.Lists
        Dim service As New SharePointListsWS.Lists
        service.Credentials = System.Net.CredentialCache.DefaultCredentials

        service.Url = SPContext.Current.Web.Url + "/_vti_bin/Lists.asmx"

        Return service
    End Function

    Private Function CreateNode(ByVal name As String, ByVal innerXml As String)
        Dim document As New XmlDocument
        Dim node As XmlNode = document.CreateElement(name)
        node.InnerXml = innerXml
        Return node
    End Function
End Class