Choose A Moreover feed

OK this is the code for our page which displays the news feed based on the users selection ,

<%
'part 1 we get the information from our form and store it in a variable(strMoreoverFeed)
Select Case Request.Form("feeds")
Case "webmaster"
strMoreoverFeed = "http://p.moreover.com/cgi-local/page?c=Webmaster%20tips&o=xml"
Case "webdev"
strMoreoverFeed = "http://p.moreover.com/cgi-local/page?c=Web%20developer%20news&o=xml"
Case "software"
strMoreoverFeed = "http://p.moreover.com/cgi-local/page?c=Software%20downloads&o=xml"
Case "coolsite"
strMoreoverFeed = "http://p.moreover.com/cgi-local/page?c=Cool%20sites&o=xml"
Case "search"
strMoreoverFeed = "http://p.moreover.com/cgi-local/page?c=Online%20search%20engines%20news&o=xml"
Case "topnews"
strMoreoverFeed = "http://p.moreover.com/cgi-local/page?c=Top%20stories&o=xml"
Case "opensource"
strMoreoverFeed = "http://p.moreover.com/cgi-local/page?c=Open%20source%20news&o=xml"
Case "java"
strMoreoverFeed = "http://p.moreover.com/cgi-local/page?c=Java%20news&o=xml"
Case "graphics"
strMoreoverFeed = "http://p.moreover.com/cgi-local/page?c=Graphics%20industry%20news&o=xml"
Case "comgames"
strMoreoverFeed = "http://p.moreover.com/cgi-local/page?c=Computer%20games%20news&o=xml"
End Select
'part 2 same as the moreover example except we changed the objHTTP.open line
' define the variables
dim objHTTP , objXML , objXSL
'create an instance of the xmlHTTP object
set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
' get the requested XML data from variable baove
' you can get more examples at http://w.moreover.com/categories/category_list_xml.html
objHTTP.open "GET", strMoreoverFeed, false
objHTTP.send
' save the XML in the objXML object as XML
set objXML = objHTTP.responseXML
'create an instance of the DOM obdct
set objXSL=Server.CreateObject("microsoft.xmldom")
objXSL.async=false
' load the XSL style sheet into the objXSL object
objXSL.load(Server.MapPath("moreover.xsl"))
' check for errors in the XSL
if (objXSL.parseError.errorCode = 0) then
' parse the XML with the XSL file
Response.Write(objXML.transformnode(objXSL))
else
'if an error occurs, report it
Response.Write "Error: " & objXSL.parseError.reason & "<br> URL:" & objXSL.url
end if
'destroy the objects
Set objHTTP = Nothing
Set objXML = Nothing
Set objXSL = Nothing
%>

Download

showfeeds.zip