API próba

<%@ LANGUAGE="vbscrip" CODEPAGE="1250" %><%
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1

Set objXMLHttp = CreateObject("MSXML2.XMLHTTP")
Set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.6.0")
strURL = "http://www.hunvolley.info/_api_xml/xml_gen.asp?p_01=572;p_02=1"

objXMLHttp.Open "GET", strURL, False
objXMLHttp.setRequestHeader "Content-Type", "application/x-www-form-URLEncoded"
objXMLHttp.Send
xmlDoc.LoadXML objXMLHttp.ResponseText

set nodes = xmlDoc.selectNodes("//evad_terem/items/*")
for i = 0 to nodes.length - 1
response.write(nodes(i).nodeName & " - " & nodes(i).text & "<br/>")
next
Set objDoc = Nothing
Set objXMLHttp = Nothing%>