ASP Source Code for RSS Feed

<% Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFS.OpenTextFile(Server.MapPath("rss.asp")) Response.Write "

"
Response.Write Replace(Replace(Server.HTMLEncode(objFile.ReadAll), " ", " "), "BLUEBONES_CONN_STRING_", "CONNECTION_STRING")
Response.Write "

" %>