Classic ASP에서 XML 파싱 이후 역정렬 목록 뽑기

방법이야 여러가지가 있겠지만
노드들을 구한 뒤 그들의 인덱스를 통해 역루핑으로 역정렬의 목록을 뽑았다.

Dim xmlFile : xmlFile = Server.Mappath("{XML파일경로}")
'// 파일 존재 검사용 사용자정의 함수
If NOT file_exists(xmlFile) Then Response.End

'// XML 컨트롤러 생성
Set oXml = Server.CreateObject("Microsoft.XMLDOM")
oXml.async=false
oXml.Load(xmlFile)

xPath = "/root"
Set rootNode = oXml.SelectSingleNode(xPath)
If rootNode Is Nothing Then die("데이터가 없습니다.")

'// 항목 수가 저장한계를 넘지 않도록 클리어
Set itemNodes = rootNode.childNodes
cnt = itemNodes.length
If cnt = 0 Then die("데이터가 없습니다.")

For i=(cnt-1) To 1 Step -1
	Set itemNode = itemNodes.item(i)
	If NOT itemNode Is Nothing Then
		If NOT itemNode.SelectSingleNode("regdate") is Nothing Then
			regdate = itemNode.SelectSingleNode("regdate").text
			'If NOT itemNode.SelectSingleNode("title") is Nothing Then title = itemNode.SelectSingleNode("title").text
			'If NOT itemNode.SelectSingleNode("content") is Nothing Then content = itemNode.SelectSingleNode("content").text

			echo("
"& regdate &"
")
		End If
	End If
	Set itemNode = Nothing
Next

Set itemNodes = Nothing
Set rootNode = Nothing
Set oXml = Nothing