<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
Set objHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
objHttp.Open "GET", "http://nds.nokia.com/uaprof/N6100r100.xml", False
objHttp.Send
Set objXml = Server.CreateObject("Msxml2.DOMDocument.6.0")
objXml.Async = false
objXml.LoadXML objHttp.responseXML.xml
objXml.setProperty "SelectionNamespaces", "xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#' xmlns:prf='http://www.openmobilealliance.org/tech/profiles/UAPROF/ccppschema-20021212#'"
Set objScreenSize = objXml.selectSingleNode("/rdf:RDF/rdf:Description[@rdf:ID='Profile']/prf:component/rdf:Description[@rdf:ID='HardwarePlatform']/prf:ScreenSize")
strOutput =  objScreenSize.Text
Set objScreenSize = Nothing
Set objXml = Nothing
Set objHttp = Nothing
response.Write strOutput
%>