<% dim vMemberID, vKingdomID, vCatID, vChannelDescription vMemberID = null vKingdomID = null vCatID = null if len(request.querystring("m")) then vMemberID = no_xss(request.querystring("m")) end if if len(request.querystring("k")) > 0 then vKingdomID = no_xss(request.querystring("k")) end if if len(request.querystring("c")) > 0 then vCatID = no_xss(request.querystring("c")) end if vChannelDescription = "The art and practice of Medieval Fighting in the SCA." with cmd .commandtext = "feed_articles" .Parameters.Append .createParameter("@memberID",3,1,4,vMemberID) .Parameters.Append .createParameter("@vKingdomID",3,1,4,vKingdomID) .Parameters.Append .createParameter("@catID",3,1,4,vCatID) set rs = .execute if not rs.eof then if len(vMemberID) > 0 then vChannelDescription = "Articles written by " & rs.fields(3) & " of " & rs.fields(4) end if if len(vKingdomID) > 0 then vChannelDescription = "Articles written by the fighters of " & rs.fields(4) end if if len(vCatID) > 0 then vChannelDescription = rs.fields(6) & " Articles" end if end if end with dim oOutput,cks set cks = Server.CreateObject("Chilkat.String") function EntityEncode(strin) dim strout if len(strIn) > 0 then cks.str = strin cks.HtmlEntityEncode strout = cks.str end if EntityEncode = strout end function set oOutput = new faststring with oOutput .append "" '.append "" .append "" .append "" .append "" .append "" .append "http://www.scafighting.com/rss-articles.xml" .append "en-us" .append "SCAFighting.com Feeds - "& vChannelDescription &" " do while not rs.eof .append "" .append "" .append ""& EntityEncode(rs.fields("abstract")) &"" .append ""& DateToHTTPDate(rs.fields("dateadded")) &"" .append "spam@scafighting.com (" & EntityEncode(rs.fields("sname")) &" of " & EntityEncode(rs.fields("kingdomname")) & ")" '.append ""& EntityEncode(rs.fields("sname")) &" of " & EntityEncode(rs.fields("kingdomname")) & "" .append "http://www.scafighting.com/article.asp?a="& rs.fields("uid") &"" .append "http://www.scafighting.com/article.asp?a="& rs.fields("uid") &"" .append ""& EntityEncode(rs.fields("catname")) &"" .append "" rs.movenext loop .append "" end with Response.Clear() response.ContentType="text/XML" response.write oOutput.concat %>