[GateCrasher]

Mydecline tarafından gönderilen mesaj:

bi kodlaması olmuş sanırım. RSS kodlarını yazarsan daha net olarak bakabiliriz soruna.

RSS.ASP icindeki kodlar soyle ;

<%
Response.Buffer = true
Response.ContentType = "text/XML"
%>
<?XML version="1.0" encoding="UTF-8" ?> 
<!--#include file="blog_files/user_config.ASP"-->
<!--#include file="blog_files/inc_db_setup.ASP"-->
<!--#include file="blog_files/inc_functions.ASP"-->	

<RSS version="2.0">

<channel>

<title><% =siteName %></title>
<link><% =homepageURL %></link>
<description><% =siteDescription %></description>
<language>en-us</language>

<%
Function ApplyXMLFormatting(strInput)
	strInput = Replace(strInput,"&", "&amp;")
	strInput = Replace(strInput,"'", "'")
	strInput = Replace(strInput,"""", "&quot;")
	strInput = Replace(strInput, ">", "&gt;")
	strInput = Replace(strInput,"<","&lt;")
	
	ApplyXMLFormatting = strInput
End Function   

strSQL = "select ENTRIES.*, CATEGORIES.* from ENTRIES inner join CATEGORIES on ENTRIES.CATEGORY_ID = CATEGORIES.CATEGORY_ID order by ENTRY_DATE desc, ENTRY_TIME desc;"
rsEntries.Open strSQL, adoCon

entriesShown=0
Do While (not rsEntries.EOF) and (entriesShown<10) 'Show the one most recent reports
	response.write("<item>")
	response.write("<title>" & ApplyXMLFormatting(rsEntries("ENTRY_TITLE")) & "</title>")
	response.write("<link>" & homepageURL & "entries.ASP?ENTRY_ID=" & rsEntries("ENTRY_ID") & "</link>")
	response.write("<description>" & ApplyXMLFormatting(SummarizeText(rsEntries("ENTRY_TEXT"),300)) & "</description>")
	response.write("</item>")
	
	entriesShown=entriesShown+1

	'Move to the next record in the recordset
	rsEntries.MoveNext ' DON'T FORGET THIS LINE OR YOU WILL BE IN AN INFINITE LOOP!
Loop

rsEntries.Close
%>

</channel>
</RSS>

<!--#include file="blog_files/inc_db_closeout.ASP"-->