<% tme = Replace(FormatDateTime(LastModified, 3), "/", "") tme = Replace(tme, "-", "") tme = Replace(tme, ":", "") Response.ContentType = "text/html; charset=UTF-8" xslturl = "http://www.w3.org/2000/06/webdata/xslt?transform=Submit&x=" + tme + "&" xslfile = "xslfile=http%3A%2F%2Finfomesh%2Enet%2F2001%2F05%2Fsimpsons%2Frdf2xhtml%2Exsl&xmlfile=" uri = "http://infomesh.net/2001/05/simpsons/quotes-out.rdf" Function GetXML(strURL) Dim objXMLHTTP, strReturn Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.Send strReturn = objXMLHTTP.responseText Set objXMLHTTP = Nothing GetXML = strReturn End Function Response.Write GetXML(xslturl + xslfile + uri) %>