Пересылка данных из ASP в XML.

<%@ LANGUAGE='VBSCRIPT' %>
<%
    set outpostDB = Server.CreateObject('ADODB.Connection')
    outpostDB.Open 'outpost'
 
    set newFileObject = _
        Server.CreateObject('Scripting.FileSystemObject')
    set newFile = _
        newFileObject.CreateTextFile('c:inetpubwwwroot ' _
        & 'products.xml')
 
    newFile.WriteLine('<PRODUCTS>')
 
    set productSet = _
        outpostDB.execute('select * from baz_products')
    while not productSet.EOF 
        newFile.WriteLine('<PRODUCT>')
        newFile.WriteLine('<PRODUCT_ID>' & _
            productSet('prod_id') & '</PRODUCT_ID>')
        newFile.WriteLine('<NAME>' & _
            productSet('prod_name') & '</NAME>')
        newFile.WriteLine('<DESCRIPTION>' & _
            productSet('prod_desc') & '</DESCRIPTION >')
        newFile.WriteLine('<PRICE>' & _
            productSet('prod_price') & '</PRICE >')
        newFile.WriteLine('<IMAGE>' & _
            productSet('prod_image') & '</IMAGE >')
        newFile.WriteLine('</PRODUCT>')
        productSet.MoveNext
    wend
 
    newFile.WriteLine('</PRODUCTS>')
 
    productSet.close
    set productSet = Nothing
 
    newFile.Close
 
    set newFile = Nothing
    set newFileObject = Nothing
 
    outpostDB.Close
    set outpostDB = Nothing
%>