A Couple of ASP Functions for XML Data Transfer

Function getXMLField(strFieldName)

    Dim objDom
    Dim objRoot
    Dim objField
    Dim strFile
    Dim PageNo

    PageNo = Request.QueryString("page")
    If PageNo = "" Then
        PageNo = "1"
    End If

    'Page Number
    strFile = "Page" & PageNo & ".xml"

    'XML file object
    Set objDom = Server.CreateObject("Microsoft.XMLDOM")
    objDom.async = False
    strXMLFile = Server.MapPath(strFile)
    objDom.Load (strXMLFile)

    'Root XML Field
    Set objRoot = objDom.documentElement

    'collect information from nodes
    Set objField = objRoot.selectSingleNode(strFieldName)

    getXMLField = objField.Text

    'Release variables
    Set objDom = Nothing
    Set objRoot = Nothing
    Set objField = Nothing

End Function

Function updateXMLField(strFieldName, strData2BInserted, strXMLFile)

    Dim objDom
    Dim objRoot
    Dim objField

    'XML file object
    Set objDom = Server.CreateObject("Microsoft.XMLDOM")
    objDom.async = False
    objDom.Load strXMLFile

    'Root XML Field
    Set objRoot = objDom.documentElement

    'Select single XML node given the node name
    Set objField = objRoot.selectSingleNode(strFieldName)

    'update field
    objField.Text = strData2BInserted

    objDom.save strXMLFile
    updateXMLField = True

    'Release all objects
    Set objDom = Nothing
    Set objRoot = Nothing
    Set objField = Nothing

End Function