아래 펌들을 이용해서 만든 xml 방식 텍스트로 값 얻기

<%
   xml=request("xml")   'xml 형식의 태그 문자열을 가져온다. xml 선언 태그는 없어도 된다.

   Set xmlPars = Server.CreateObject("microsoft.XMLDOM")
   xmlPars.LoadXML xml   '파일이거나 xml 개체를 받을 때는 xmlPars.Load를 쓴다.

   if xmlPars.ParseError.errorCode <> 0 then
     Response.write "에러발생"
     Response.end
   else
     Set root = xmlPars.documentElement

     pcserial = root.childNodes(0).text   '최상위가 가지고 있는 가지들(순서대로 0부터)
     count = root.childNodes(1).text

     response.write "pcserial : "& pcserial &"<br>"
     response.write "count : "& count &"<br>"

     for i=2 to count+1
      songid=root.childNodes(i).childNodes(0).text   '차상위의 가지들
      songtype=root.childNodes(i).childNodes(1).text

      response.write "songid : "& songid &"<br>"
      response.write "songtype : "& songtype &"<br>"
     next

     Set root = nothing
   end if

   Set xmlPars = nothing
$>