[원문] : http://blog.naver.com/PostView.nhn?blogId=garnete&logNo=110082261627

<%
'Option Explicit

Dim url ' 호출 URL
Dim lsRtn '
Dim xmlHttp
Dim xmllist
Dim responseStrm
Dim resultStr
Dim nodesCount
Dim no(),gu(),sf(),pr(),an(),hj(),ad(),tl()

url = "http://xxx.xxx.xxx" 'url은 해당사이트 url을 입력하시면 됩니다.

Set XmlHttp = CreateObject("MSXML2.XMLHTTP")
xmlHttp.Open "GET", url , false

server.ScriptTimeOut=12000
'xmlHttp.setTimeouts lResolve, lConnect, lSend, lReceive
xmlHttp.Send()

'**********************************************
'한글 깨짐 방지
Set responseStrm = CreateObject("ADODB.Stream")

responseStrm.Open
responseStrm.Position = 0
responseStrm.Type = 1
responseStrm.Write xmlHttp.responseBody
responseStrm.Position = 0
responseStrm.Type = 2
responseStrm.Charset = "euc-kr"
resultStr = responseStrm.ReadText
responseStrm.close
Set responseStrm = Nothing
'한글 깨짐 방지
'**********************************************

'받아온 외부XML을 담을 DOM 객체 생성
Set xmlDOM = server.CreateObject("MSXML2.DOMDOCUMENT.4.0")
'동기화 옵션 : false로 설정
xmlDOM.async = False
xmlDOM.LoadXML resultStr

Set xmlHttp = Nothing

'DOM 객체에 담겨진 XML을 핸들링한다

Set XMLINFO_Node = xmlDOM.selectNodes("//XMLINFO")

If XMLINFO_Node.length > 0 Then
TOTAL = XMLINFO_Node(0).childNodes(3).text
End If

Set XMLLIST_Node = xmlDOM.selectNodes("//XMLLIST")
nodesCount = XMLLIST_Node.length
ReDim no(50)
ReDim gu(50)
ReDim sf(50)
ReDim pr(50)
ReDim an(50)
ReDim hj(50)
ReDim ad(50)
ReDim tl(50)

If XMLLIST_Node.length > 0 Then
For x = 0 To XMLLIST_Node.length - 1
Set objNode = XMLLIST_Node.Item(i)
Set singleNode = objNode.selectSingleNode("/DOC")

no(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("NO").Item(0).text
gu(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("GU").Item(0).text
sf(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("SF").Item(0).text
pr(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("PR").Item(0).text
an(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("AN").Item(0).text
hj(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("HJ").Item(0).text
ad(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("AD").Item(0).text
tl(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("TL").Item(0).text
Next
End If

Set XMLINFO_Node = Nothing
Set XMLLIST_Node = Nothing
Set xmlDOM = Nothing

%>
<style>
table,td {
font-family: verdana;
font-size: 12px;
}
</style>
<table border="0" cellspacing="1" cellpadding="3" bgcolor="#DFDFDF">
<col bgcolor="#EFEFEF"></col>
<col bgcolor="#FFFFFF"></col>
<tr>
<td>total</td>
<td><%=total%></td>
</tr>
<tr>
<td colspan="2" height="1"></td>
</tr>
<%For j = 0 To nodesCount-1%>
<tr>
<td>NO(<%=j%>)</td>
<td><%=no(j)%></td>
</tr>
<tr>
<td>GU(<%=j%>)</td>
<td><%=gu(j)%></td>
</tr>
<tr>
<td>SF(<%=j%>)</td>
<td><%=sf(j)%></td>
</tr>
<tr>
<td>PR(<%=j%>)</td>
<td><%=pr(j)%></td>
</tr>
<tr>
<td>AN(<%=j%>)</td>
<td><%=an(j)%></td>
</tr>
<tr>
<td colspan="2" height="1"></td>
</tr>
<%Next %>
</table>