<%@ Language=VBScript%> <% Set http = Server.CreateObject("Microsoft.XMLHTTP") Call http.Open("GET", "http://pf.tradedoubler.com/pf/pf?a=1463233&categoryId=114&recurse=true&oe=UTF-8", False) Call http.Send() Set doc = CreateObject("Microsoft.XMLDOM") doc.Async = False doc.LoadXml(http.ResponseText) Set names = doc.SelectNodes("//products/product/name") For Each n In names Response.Write n.Text & "
" Next Set doc = Nothing Set http = Nothing %>