<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Option Explicit%>

<%
dim feedURL, xmlhttp

feedURL = "http://royallmedia.blogspot.com/atom.xml" 
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 

xmlhttp.open "GET", feedURL, false 
xmlhttp.send "" 

Response.write xmlhttp.responseText 

set xmlhttp = nothing 
%>