<% Function getXML(sourceFile) dim styleFile dim source, style styleFile = Server.MapPath("/css/news.xsl") Dim xmlhttp Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") xmlhttp.Open "GET", sourceFile, false xmlhttp.Send set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadxml(xmlhttp.ResponseText) set style = Server.CreateObject("Microsoft.XMLDOM") style.async = false style.load(styleFile) getXML = source.transformNode(style) set source = nothing set style = nothing End Function %>
<%= getXML("http://www.tamuk.edu/news/news.xml") %>

Search

Search this site:

Campus phone/e-mail directory

Need to find a someone on campus? Use the Campus phone/e-mail directory to find students, faculty or staff!

 

 

 

 

 

 

 

This page last updated 23 December, 2004