<% Set doc = Server.CreateObject("Msxml2.DOMDocument.6.0") doc.Async = False doc.Load(Server.MapPath("portstate.xml")) Response.Write "Port 8000 - " & doc.SelectSingleNode("//vlm/broadcast[contains(output,'port=8000')]/instances/instance/@state").Text Response.Write "
" Response.Write "Port 9000 - " & doc.SelectSingleNode("//vlm/broadcast[contains(output,'port=9000')]/instances/instance/@state").Text Set doc = Nothing %>