<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.contentType="application/xml"
url=trim(request("feedurl"))
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",url,False
http.send
if http.status="200" then
	response.Write http.responseText
end if
%>