asp code within vb

Printable View

Jun 21st, 2002, 04:41 AM
akalya

asp code within vb

is it possible to write asp code within vb??
if so how??

how to insert this asp code.. pls help me

Dim objDom
Dim objRoot
Dim objChild1
Dim objChild2
Dim objPI

Set objDom = Server.CreateObject("Microsoft.XMLDOM")

Set objRoot = objDom.createElement("rootElement")

objDom.appendChild objRoot

Set objChild1 = objDom.createElement("childElement1")
objRoot.appendChild objChild1

Set objChild2 = objDom.createElement("childElement2")
objRoot.appendChild objChild2

Set objPI = objDom.createProcessingInstruction("xml","version='1.0'")

objDom.insertBefore objPI, objDom.childNodes(0)

objDom.Save "c:\MyXMLDoc.xml"
Jun 22nd, 2002, 02:32 AM
veryjonny

1 Attachment(s)

hi

See the attchment. I got it from a site.

You can convert this code easily to VB

VB Code:

Dim objDom As New Microsoft.XMLDOM
Dim objRoot 
Dim objChild1 
Dim objChild2 
Dim objPI 
 
'Set objDom = Server.CreateObject("") 
 
Set objRoot = objDom.createElement("rootElement") 
 
objDom.appendChild objRoot 
 
Set objChild1 = objDom.createElement("childElement1") 
objRoot.appendChild objChild1 
 
Set objChild2 = objDom.createElement("childElement2") 
objRoot.appendChild objChild2 
 
 
Set objPI = objDom.createProcessingInstruction("xml","version='1.0'") 
 
 
objDom.insertBefore objPI, objDom.childNodes(0) 
 
 
objDom.Save "c:\MyXMLDoc.xml"