tilføj property til XML TAGet med XMLDOM

Hej
Jeg er ved at lave et RSS feed, og det virker som sådan også meget godt.

Nu er det så at jeg i tagget <?xml version="1.0" ?> gerne vil have tilføjet følgende property: encoding='iso-8859-1'

jeg har prøvet at gøre det med createProcessingInstruction, men får hele tiden fejlbeskeden:

"The 'version' attribute is required at this location."

i kan se RSS feedet her:
http://admin.center-it.dk/xmldocs/rss.xml

håber der er nogen der har en løsning :)

Her kommer sourcen till gemme funktionen:

    Set objDom = Server.CreateObject("Microsoft.XMLDOM")
    Set objRSS = objDom.createElement("rss")
    Set objattID = objDom.createAttribute("version")
   
    objattID.Text = "2.0"
    objRSS.setAttributeNode objattID
   
    Set objattID = nothing
   
    Set objattID     = objDom.createAttribute("xmlns:dc")
    objattID.Text     = "http://purl.org/dc/elements/1.1/"
   
    objRSS.setAttributeNode objattID
    objDom.appendChild objRSS
   
    Set Objchannel = objDom.createElement("channel")
    objRSS.appendChild Objchannel
   
    Set objChild1 = objDom.createElement("title")
    objChild1.Text = "Center-ITs RSS Feed"
    Objchannel.appendChild objChild1
   
    Set objChild2 = objDom.createElement("link")
    objChild2.Text = "http://www.center-it.dk"
    Objchannel.appendChild objChild2
   
    Set objChild3 = objDom.createElement("description")
    objChild3.Text = "Product liste"
    Objchannel.appendChild objChild3
   
    Call openconnection("../database/db_1_centerit.mdb")
    call openrecordset("select * from Tbl_Products order by Flt_Index desc")
    i = 0
    do while not Str_Rsname.eof or not Str_Rsname.bof
        i = i + 1
        Set parrent2 = objDom.createElement("item")
        Objchannel.appendChild parrent2
       
        Set childtitle = objDom.createElement("title")
        childtitle.Text = Str_Rsname("Flt_Note")
        parrent2.appendChild childtitle
       
        Set childinfo = objDom.createElement("description")
        childinfo.Text = Str_Rsname("Flt_Freetext")
        parrent2.appendChild childinfo
       
        Set childlink = objDom.createElement("link")
        childlink.Text = "http://feed.center-it.dk/locator.asp?index=" & Str_Rsname("Flt_Index")
        parrent2.appendChild childlink
       
        set parrent2 = nothing
        Set childlink = nothing
        set childprice = nothing
        set childtitle = nothing
        if i = loopcount then exit do
        Str_Rsname.movenext
        if Str_Rsname.eof then exit do
    loop
    call closerecordset()
    call closeconnection()
   
    'Set objPI2 = objDom.createProcessingInstruction("xml","encoding='iso-8859-1'")
    Set ObjPI = objDom.createProcessingInstruction("xml","version='1.0'")
    objDom.insertBefore objPI, objDom.childNodes(0)
    objDom.Save server.MapPath("xmldocs/rss.xml")