asp xml 파싱

<%

url = "http://주소"

Set objXmlHttp  = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")

objXmlHttp.open "POST", url , false

objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objXmlHttp.send  '요청

strResponseText = objXmlHttp.responseText  '응답 텍스트 저장

Set objXmlHttp  = Nothing

'DOM 파서를 이용해 파싱 

Set objMsXmlDom = Server.CreateObject("microsoft.XMLDOM")

objMsXmlDom.async = false

objMsXmlDom.loadXML( strResponseText ) '스트링으로 로드하기 때문에 loadXML 메서드 사용.

'데이터 추출.

count=objMsXmlDom.getElementsByTagName("yArticleId").length - 1

For i=0 To count

yArticleID   = ""& Trim( objMsXmlDom.getElementsByTagName("yArticleId").Item(i).Text )

acUsersId = ""& Trim( objMsXmlDom.getElementsByTagName("acUsersId").Item(i).Text )

yTitle = ""& Trim( objMsXmlDom.getElementsByTagName("yTitle").Item(i).Text ) ' yTitle = 태그 이름

response.write yArticleID&acUsersId&yTitle

next

Set objMsXmlDom = Nothing

%>