XML and ASP

[vunet.us]

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

[Anthony Jones]

<vu******@gmail.comwrote in message
news:11**********************@n15g2000prd.googlegr oups.com...

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

Dim oItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"

This would create the XML:-

<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>

[vunet.us]

On Jun 12, 3:26 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

news:11**********************@n15g2000prd.googlegr oups.com...

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

Dim oItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"

This would create the XML:-

<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>

thank you. but how to append new child to subID?

[Anthony Jones]

<vu******@gmail.comwrote in message
news:11**********************@e9g2000prf.googlegro ups.com...

On Jun 12, 3:26 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

news:11**********************@n15g2000prd.googlegr oups.com...

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

Dim oItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"

This would create the XML:-

<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>

thank you. but how to append new child to subID?

Dim oItem, oSubItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"

Creates:-

<rss version="2.0">
<ItemID>15314<subID><subsub>Stuff</subsub></subID></itemID>
</rss>

[vunet.us]

On Jun 14, 8:28 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

news:11**********************@e9g2000prf.googlegro ups.com...

On Jun 12, 3:26 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

>news:11**********************@n15g2000prd.googleg roups.com...

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

Dim oItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"

This would create the XML:-

<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>

thank you. but how to append new child to subID?

Dim oItem, oSubItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"

Creates:-

<rss version="2.0">
<ItemID>15314<subID><subsub>Stuff</subsub></subID></itemID>
</rss>

Sorry for asking more, but... how can I add an attribute?

[Anthony Jones]

<vu******@gmail.comwrote in message
news:11*********************@m36g2000hse.googlegro ups.com...

On Jun 14, 8:28 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

news:11**********************@e9g2000prf.googlegro ups.com...

On Jun 12, 3:26 am, "Anthony Jones" <[e-mail]:
<[e-mail] in message

news:11**********************@n15g2000prd.googlegr oups.com...

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM =

Server.CreateObject("MSXML2.DOMDocument.3.0")

oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

Dim oItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"

This would create the XML:-

<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>

thank you. but how to append new child to subID?

Dim oItem, oSubItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"

Creates:-

<rss version="2.0">
<ItemID>15314<subID><subsub>Stuff</subsub></subID></itemID>
</rss>

Sorry for asking more, but... how can I add an attribute?

Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
oSubItem.setAttrbute("thing", "blah")

generates:-

<rss version="2.0">
<ItemID>15314<subID><subsub thing="blah" >Stuff</subsub></subID></itemID>
</rss>

Try http://www.w3schools.com/

and

http://msdn.microsoft.com/library/en...16714e2824.asp

[vunet.us]

On Jun 15, 11:02 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

news:11*********************@m36g2000hse.googlegro ups.com...

On Jun 14, 8:28 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

>news:11**********************@e9g2000prf.googlegr oups.com...

On Jun 12, 3:26 am, "Anthony Jones" <[e-mail]:
<[e-mail] in message

>news:11**********************@n15g2000prd.googleg roups.com...

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM =

Server.CreateObject("MSXML2.DOMDocument.3.0")

oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

Dim oItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"

This would create the XML:-

<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>

thank you. but how to append new child to subID?

Dim oItem, oSubItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"

Creates:-

<rss version="2.0">
<ItemID>15314<subID><subsub>Stuff</subsub></subID></itemID>
</rss>

Sorry for asking more, but... how can I add an attribute?

Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
oSubItem.setAttrbute("thing", "blah")

generates:-

<rss version="2.0">
<ItemID>15314<subID><subsub thing="blah" >Stuff</subsub></subID></itemID>
</rss>

Tryhttp://www.w3schools.com/

and

http://msdn.microsoft.com/library/en...a2722-7879-4e4...

Yes, thanks a lot. I'll try those links. Though now I am trying to
modify function to set attribute and it says:

Cannot use parentheses when calling a Sub
/vadmin/rss_items.asp, line 22
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
-------------------------------------------^

Function AddElemAttr(roParent, rsName, rvntValue, rvntAttr,
rvntAttrValue)
Set AddElemAttr = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElemAttr
If Not IsNull(rvntValue) then
AddElemAttr.Text = rvntValue
End If
If Not IsNull(rvntAttr) and rvntAttr <"" then
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
'Set attr = roParent.ownerDocument.createAttribute("currency")
'AddElemAttr.setAttribute(attr)
End If
End Function

Set oItem = AddElem(oTitle, "item", Null)
AddElem oItem, "price", rsItem("Price") 'NEED ATTRIBUTE TO INSERT
AddElemAttr oItem, "edgeio:price", rsItem("Price"), "currency", "USD"

[Bob Barrows [MVP]]

vu******@gmail.com wrote:

Yes, thanks a lot. I'll try those links. Though now I am trying to
modify function to set attribute and it says:

Cannot use parentheses when calling a Sub
/vadmin/rss_items.asp, line 22
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
-------------------------------------------^

For once, we have an error message that means exactily what it says.
setAttribute is a method that does not return a value, aks, a "Sub"

See http://blogs.msdn.com/ericlippert/ar.../15/52996.aspx
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

[Anthony Jones]

<vu******@gmail.comwrote in message
news:11**********************@m36g2000hse.googlegr oups.com...

On Jun 15, 11:02 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

news:11*********************@m36g2000hse.googlegro ups.com...

On Jun 14, 8:28 am, "Anthony Jones" <[e-mail]:
<[e-mail] in message

news:11**********************@e9g2000prf.googlegro ups.com...

On Jun 12, 3:26 am, "Anthony Jones" <[e-mail]:
<[e-mail] in message

news:11**********************@n15g2000prd.googlegr oups.com...

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM =

Server.CreateObject("MSXML2.DOMDocument.3.0")

oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem =

roParent.ownerDocument.createElement(rsName)

roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

Dim oItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"

This would create the XML:-

<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>

thank you. but how to append new child to subID?

Dim oItem, oSubItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"

Creates:-

<rss version="2.0">
<ItemID>15314<subID><subsub>Stuff</subsub></subID></itemID>
</rss>

Sorry for asking more, but... how can I add an attribute?

Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
oSubItem.setAttrbute("thing", "blah")

generates:-

<rss version="2.0">
<ItemID>15314<subID><subsub thing="blah"

Stuff</subsub></subID></itemID>

</rss>

Tryhttp://www.w3schools.com/

and

http://msdn.microsoft.com/library/en...a2722-7879-4e4...

Yes, thanks a lot. I'll try those links. Though now I am trying to
modify function to set attribute and it says:

Cannot use parentheses when calling a Sub
/vadmin/rss_items.asp, line 22
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
-------------------------------------------^

Function AddElemAttr(roParent, rsName, rvntValue, rvntAttr,
rvntAttrValue)
Set AddElemAttr = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElemAttr
If Not IsNull(rvntValue) then
AddElemAttr.Text = rvntValue
End If
If Not IsNull(rvntAttr) and rvntAttr <"" then
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
'Set attr = roParent.ownerDocument.createAttribute("currency")
'AddElemAttr.setAttribute(attr)
End If
End Function

Set oItem = AddElem(oTitle, "item", Null)
AddElem oItem, "price", rsItem("Price") 'NEED ATTRIBUTE TO INSERT
AddElemAttr oItem, "edgeio:price", rsItem("Price"), "currency", "USD"

First off my fault my code should've looked like this:-

Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
oSubItem.setAttribute "thing", "blah"

and i's output is actually:-

<rss version="2.0">
<ItemID>15314<subID thing="blah"><subsub>Stuff</subsub></subID></itemID>
</rss>
Secondly AddElemAttr?? Honestly just don't do that. A function should do
one thing and do that one thing well.
You are trying to create a function that does two things. What happens when
you want to create an element that has two attributes, are you going to
create yet another function for that?

Take this XML:-

<root>
<item>
<name>Hello</name>
<subItem ID="1">Stuff</subItem>
</item>
<item>
<name>World</name>
<subItem ID="2" other="ruhbarb">Blah</subItem>
</item>
</root>

This can built with this code:-

Dim oItem

Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.loadXML("<root />")

Set oItem = AddElem(oDOM.documentElement, "item", Null)
AddElem oItem, "name", "Hello"
AddElem(oItem, "subItem", "Stuff").setAttribute("ID", "1")

Set oItem = AddElem(oDOM.documentElement, "item", Null)
AddElem oItem, "name", "Hello"
With AddElem(oItem, "subItem", "Blah")
.setAttribute("ID", "2")
.setAttribute("other", "ruhbarb")
End With

[vunet.us]

On Jun 15, 11:50 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

news:11**********************@m36g2000hse.googlegr oups.com...

On Jun 15, 11:02 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

>news:11*********************@m36g2000hse.googlegr oups.com...

On Jun 14, 8:28 am, "Anthony Jones" <[e-mail]:
<[e-mail] in message

>news:11**********************@e9g2000prf.googlegr oups.com...

On Jun 12, 3:26 am, "Anthony Jones" <[e-mail]:
<[e-mail] in message

>news:11**********************@n15g2000prd.googleg roups.com...

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM =

Server.CreateObject("MSXML2.DOMDocument.3.0")

oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem =

roParent.ownerDocument.createElement(rsName)

roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

Dim oItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"

This would create the XML:-

<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>

thank you. but how to append new child to subID?

Dim oItem, oSubItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"

Creates:-

<rss version="2.0">
<ItemID>15314<subID><subsub>Stuff</subsub></subID></itemID>
</rss>

Sorry for asking more, but... how can I add an attribute?

Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
oSubItem.setAttrbute("thing", "blah")

generates:-

<rss version="2.0">
<ItemID>15314<subID><subsub thing="blah"

Stuff</subsub></subID></itemID>

</rss>

Tryhttp://www.w3schools.com/

and

>http://msdn.microsoft.com/library/en...a2722-7879-4e4...

Yes, thanks a lot. I'll try those links. Though now I am trying to
modify function to set attribute and it says:

Cannot use parentheses when calling a Sub
/vadmin/rss_items.asp, line 22
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
-------------------------------------------^

Function AddElemAttr(roParent, rsName, rvntValue, rvntAttr,
rvntAttrValue)
Set AddElemAttr = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElemAttr
If Not IsNull(rvntValue) then
AddElemAttr.Text = rvntValue
End If
If Not IsNull(rvntAttr) and rvntAttr <"" then
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
'Set attr = roParent.ownerDocument.createAttribute("currency")
'AddElemAttr.setAttribute(attr)
End If
End Function

Set oItem = AddElem(oTitle, "item", Null)
AddElem oItem, "price", rsItem("Price") 'NEED ATTRIBUTE TO INSERT
AddElemAttr oItem, "edgeio:price", rsItem("Price"), "currency", "USD"

First off my fault my code should've looked like this:-

Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
oSubItem.setAttribute "thing", "blah"

and i's output is actually:-

<rss version="2.0">
<ItemID>15314<subID thing="blah"><subsub>Stuff</subsub></subID></itemID>
</rss>

Secondly AddElemAttr?? Honestly just don't do that. A function should do
one thing and do that one thing well.
You are trying to create a function that does two things. What happens when
you want to create an element that has two attributes, are you going to
create yet another function for that?

Take this XML:-

<root>
<item>
<name>Hello</name>
<subItem ID="1">Stuff</subItem>
</item>
<item>
<name>World</name>
<subItem ID="2" other="ruhbarb">Blah</subItem>
</item>
</root>

This can built with this code:-

Dim oItem

Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.loadXML("<root />")

Set oItem = AddElem(oDOM.documentElement, "item", Null)
AddElem oItem, "name", "Hello"
AddElem(oItem, "subItem", "Stuff").setAttribute("ID", "1")

Set oItem = AddElem(oDOM.documentElement, "item", Null)
AddElem oItem, "name", "Hello"
With AddElem(oItem, "subItem", "Blah")
.setAttribute("ID", "2")
.setAttribute("other", "ruhbarb")
End With

but this still generates the same error "Cannot use parentheses when
calling a Sub":

AddElem oItem, "Type", "lskjdhf"
With AddElem(oItem, "price", rsItem("Price"))
.setAttribute("ID", "2")
.setAttribute("other", "ruhbarb")
End With

[Anthony Jones]

<vu******@gmail.comwrote in message
news:11**********************@o61g2000hsh.googlegr oups.com...

On Jun 15, 11:50 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

news:11**********************@m36g2000hse.googlegr oups.com...

On Jun 15, 11:02 am, "Anthony Jones" <[e-mail]:
<[e-mail] in message

news:11*********************@m36g2000hse.googlegro ups.com...

On Jun 14, 8:28 am, "Anthony Jones" <[e-mail]:
<[e-mail] in message

news:11**********************@e9g2000prf.googlegro ups.com...

On Jun 12, 3:26 am, "Anthony Jones" <[e-mail]>

wrote:

<[e-mail] in message

news:11**********************@n15g2000prd.googlegr oups.com...

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM =

Server.CreateObject("MSXML2.DOMDocument.3.0")

oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem =

roParent.ownerDocument.createElement(rsName)

roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

Dim oItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"

This would create the XML:-

<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>

thank you. but how to append new child to subID?

Dim oItem, oSubItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"

Creates:-

<rss version="2.0">
<ItemID>15314<subID><subsub>Stuff</subsub></subID></itemID>
</rss>

Sorry for asking more, but... how can I add an attribute?

Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
oSubItem.setAttrbute("thing", "blah")

generates:-

<rss version="2.0">
<ItemID>15314<subID><subsub thing="blah"
>Stuff</subsub></subID></itemID>
</rss>

Tryhttp://www.w3schools.com/

and

>

http://msdn.microsoft.com/library/en...a2722-7879-4e4...

Yes, thanks a lot. I'll try those links. Though now I am trying to
modify function to set attribute and it says:

Cannot use parentheses when calling a Sub
/vadmin/rss_items.asp, line 22
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
-------------------------------------------^

Function AddElemAttr(roParent, rsName, rvntValue, rvntAttr,
rvntAttrValue)
Set AddElemAttr = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElemAttr
If Not IsNull(rvntValue) then
AddElemAttr.Text = rvntValue
End If
If Not IsNull(rvntAttr) and rvntAttr <"" then
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
'Set attr = roParent.ownerDocument.createAttribute("currency")
'AddElemAttr.setAttribute(attr)
End If
End Function

Set oItem = AddElem(oTitle, "item", Null)
AddElem oItem, "price", rsItem("Price") 'NEED ATTRIBUTE TO INSERT
AddElemAttr oItem, "edgeio:price", rsItem("Price"), "currency", "USD"

First off my fault my code should've looked like this:-

Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
oSubItem.setAttribute "thing", "blah"

and i's output is actually:-

<rss version="2.0">
<ItemID>15314<subID

thing="blah"><subsub>Stuff</subsub></subID></itemID>

</rss>

Secondly AddElemAttr?? Honestly just don't do that. A function should

do

one thing and do that one thing well.
You are trying to create a function that does two things. What happens

when

you want to create an element that has two attributes, are you going to
create yet another function for that?

Take this XML:-

<root>
<item>
<name>Hello</name>
<subItem ID="1">Stuff</subItem>
</item>
<item>
<name>World</name>
<subItem ID="2" other="ruhbarb">Blah</subItem>
</item>
</root>

This can built with this code:-

Dim oItem

Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.loadXML("<root />")

Set oItem = AddElem(oDOM.documentElement, "item", Null)
AddElem oItem, "name", "Hello"
AddElem(oItem, "subItem", "Stuff").setAttribute("ID", "1")

Set oItem = AddElem(oDOM.documentElement, "item", Null)
AddElem oItem, "name", "Hello"
With AddElem(oItem, "subItem", "Blah")
.setAttribute("ID", "2")
.setAttribute("other", "ruhbarb")
End With

but this still generates the same error "Cannot use parentheses when
calling a Sub":

AddElem oItem, "Type", "lskjdhf"
With AddElem(oItem, "price", rsItem("Price"))
.setAttribute("ID", "2")
.setAttribute("other", "ruhbarb")
End With

I did it again didn't I (flicking between JScript and VBScript is quite
maddening). Tell me, what do think needs to be done to fix that?

[vunet.us]

On Jun 15, 12:25 pm, "Anthony Jones" <[e-mail]:

<[e-mail] in message

news:11**********************@o61g2000hsh.googlegr oups.com...

On Jun 15, 11:50 am, "Anthony Jones" <[e-mail]:

<[e-mail] in message

>news:11**********************@m36g2000hse.googleg roups.com...

On Jun 15, 11:02 am, "Anthony Jones" <[e-mail]:
<[e-mail] in message

>news:11*********************@m36g2000hse.googlegr oups.com...

On Jun 14, 8:28 am, "Anthony Jones" <[e-mail]:
<[e-mail] in message

>news:11**********************@e9g2000prf.googlegr oups.com...

On Jun 12, 3:26 am, "Anthony Jones" <[e-mail]>

wrote:

<[e-mail] in message

>news:11**********************@n15g2000prd.googleg roups.com...

How can I add a child node to XML node "ItemID" below?
Thanks for assistance.

Dim oDOM : Set oDOM =

Server.CreateObject("MSXML2.DOMDocument.3.0")

oDOM.LoadXML "<rss version=""2.0""></rss>"
AddElem oDOM.documentElement, "ItemID", "15314"

Function AddElem(roParent, rsName, rvntValue)
Set AddElem =

roParent.ownerDocument.createElement(rsName)

roParent.appendChild AddElem
If Not IsNull(rvntValue) AddElem.Text = rvntValue
End Function

Dim oItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
AddElem oItem, "subID", "AB"

This would create the XML:-

<rss version="2.0">
<ItemID>15314<subID>AB</subID></itemID>
</rss>

thank you. but how to append new child to subID?

Dim oItem, oSubItem

Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"

Creates:-

<rss version="2.0">
<ItemID>15314<subID><subsub>Stuff</subsub></subID></itemID>
</rss>

Sorry for asking more, but... how can I add an attribute?

Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
oSubItem.setAttrbute("thing", "blah")

generates:-

<rss version="2.0">
<ItemID>15314<subID><subsub thing="blah"
Stuff</subsub></subID></itemID>
</rss>

Tryhttp://www.w3schools.com/

and

http://msdn.microsoft.com/library/en...a2722-7879-4e4...

Yes, thanks a lot. I'll try those links. Though now I am trying to
modify function to set attribute and it says:

Cannot use parentheses when calling a Sub
/vadmin/rss_items.asp, line 22
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
-------------------------------------------^

Function AddElemAttr(roParent, rsName, rvntValue, rvntAttr,
rvntAttrValue)
Set AddElemAttr = roParent.ownerDocument.createElement(rsName)
roParent.appendChild AddElemAttr
If Not IsNull(rvntValue) then
AddElemAttr.Text = rvntValue
End If
If Not IsNull(rvntAttr) and rvntAttr <"" then
AddElemAttr.setAttribute(rvntAttr,rvntAttr)
'Set attr = roParent.ownerDocument.createAttribute("currency")
'AddElemAttr.setAttribute(attr)
End If
End Function

Set oItem = AddElem(oTitle, "item", Null)
AddElem oItem, "price", rsItem("Price") 'NEED ATTRIBUTE TO INSERT
AddElemAttr oItem, "edgeio:price", rsItem("Price"), "currency", "USD"

First off my fault my code should've looked like this:-

Dim oItem, oSubItem
Set oItem = AddElem(oDOM.documentElement, "ItemID", "15314")
Set oSubItem = AddElem(oItem, "subID", Null)
AddElem oSubItem, "subsub", "Stuff"
oSubItem.setAttribute "thing", "blah"

and i's output is actually:-

<rss version="2.0">
<ItemID>15314<subID

thing="blah"><subsub>Stuff</subsub></subID></itemID>

</rss>

Secondly AddElemAttr?? Honestly just don't do that. A function should

do

one thing and do that one thing well.
You are trying to create a function that does two things. What happens

when

you want to create an element that has two attributes, are you going to
create yet another function for that?

Take this XML:-

<root>
<item>
<name>Hello</name>
<subItem ID="1">Stuff</subItem>
</item>
<item>
<name>World</name>
<subItem ID="2" other="ruhbarb">Blah</subItem>
</item>
</root>

This can built with this code:-

Dim oItem

Dim oDOM : Set oDOM = Server.CreateObject("MSXML2.DOMDocument.3.0")
oDOM.loadXML("<root />")

Set oItem = AddElem(oDOM.documentElement, "item", Null)
AddElem oItem, "name", "Hello"
AddElem(oItem, "subItem", "Stuff").setAttribute("ID", "1")

Set oItem = AddElem(oDOM.documentElement, "item", Null)
AddElem oItem, "name", "Hello"
With AddElem(oItem, "subItem", "Blah")
.setAttribute("ID", "2")
.setAttribute("other", "ruhbarb")
End With

but this still generates the same error "Cannot use parentheses when
calling a Sub":

AddElem oItem, "Type", "lskjdhf"
With AddElem(oItem, "price", rsItem("Price"))
.setAttribute("ID", "2")
.setAttribute("other", "ruhbarb")
End With

I did it again didn't I (flicking between JScript and VBScript is quite
maddening). Tell me, what do think needs to be done to fix that?

all right, all right... I'll do some reading...