【ASP】讀取DB資料表資料並且以XML物件回應

'建立連線
Set cnn = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.RecordSet")
cnn.Open DB_Connection_String
cnn.CursorLocation = adUseClient
rs1.CursorLocation = adUseClient
rs1.CacheSize = 500
rs1.CursorType = adOpenStatic
rs1.MaxRecords = 30000
rs1.PageSize = 25

'宣告XML物件
Dim resultPacket
Set resultPacket = Server.CreateObject("Microsoft.XMLDOM")
resultPacket.async = False
Dim mainNode

'建立XML物件，指定根節點
resultPacket.loadXML("")
Set mainNode = resultPacket.createElement("dataroot")
Set resultPacket.documentElement = mainNode

'資料表查詢
rs1.Open "select * from Contacts order by name",cnn
Do Until rs1.EOF
　set re cElement = mainNode.createElement("rec")
　for i = 0 to rs1.Fields.Count - 1
　　recElement.setAttribute rs1(i).name, rs1(i).value
　　mainNode.lastChild.appendChild recElement
　next
　rs1.MoveNext
Loop
rs1.close

response.write ResultsPacket.xml

'CLEANUP DATABASE CONNECTION
cnn.close
Set rs1 = nothing
Set cnn = nothing