Media Coverage
-
<% For i = 0 to (items.Length-1)
'Response.Write items.item(i).childNodes(2).text
Response.Write "
- " & items.item(i).childNodes(0).text & " " Next %>
%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = False objXML.setProperty "ServerHTTPRequest", True objXML.Load("https://216.150.76.26/media_coverage.xml") 'objXML.Load (Server.MapPath("media_coverage.xml")) If objXML.parseError.errorCode = 0 Then 'Response.Write "Error Parsing XML" 'Response.Write "Rason :" & objXML.parseError.reason & "Error Line: " & objXML.parseError.line End If 'Get ALL the Elements by the tag name item Set items = objXML.getElementsByTagName("item") %>
Designed & Developed by emQube LLC.