asp arrays and database

<%@ Language=VBScript %> 

<% 

Option Explicit 





Dim myarray(1,1) 

Dim intCounter 

Dim objXML 

Dim objRootNode 

Dim objNode 

Dim objNodeValue 





myarray(0,0) ="EmployeeID" 

myarray(0,1)=123456 

myarray(1,0)="FirstName" 

myarray(1,1)="Saurabh" 





Set objXML = CreateObject("MSXML2.DOMDocument") 

Set objRootNode = objXML.createElement("rootTag") 

Call objXML.appendChild(objRootNode) 





For intCounter = 0 to UBound(myarray) 

 Set objNode = objXML.createElement(myArray(intCounter,0)) 

 Set objNodeValue = objXML.createTextNode(myArray(intCounter,1)) 





 Call objRootNode.appendChild(objNode) 

 Call objNode.appendChild(objNodeValue) 

Next 





Response.Write objXML.xml 





%>