<%

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)

%>