Arkadaşlar,

Bundan yaklaşık 3 ay önce hazırladığım ASP ile RSS feed oluşturma kodlarına aşağıdan ulaşabilirsiniz.

Ayrıca, buraya tıklayarak örnek veri tabanlı kodlara ulaşabilirsiniz.

Faydalı olması dileğiyle...

<?xml version="1.0" encoding="iso-8859-9"?>
<%
'#############################################
'## ASP ile RSS Beslemesi Oluşturma Kodları ##
'## Hazırlayan: İsa SARI / www.isa-sari.com ##
'#############################################
%>
<rss version="2.0">
<%
'## Veritabanı bağlantımızı kuruyoruz. veritabani.mdb dosyasını kendi veritabanı 
dosyanızın ismine göre değiştirebilirsiniz.
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")
Response.Buffer = True
Response.ContentType = "text/xml"
%>
<channel>
<%
'## Bu kısımda sitemizin başlığını, adresini ve RSS tanımlamasını giriyoruz.
%>
<title>Sitenizin Başlığı</title>
<link>http://www.sitenizinadresi.com</link>
<description>En son eklenen 20 kayıt</description>
<language>tr</language>
<%
'## Veritabanından kaç adet verinin çekileceğini belirtiyoruz. Burada örnek 
olarak 20 adet veriyi çekiyoruz.
'## İhtiaçlarınıza göre bu sayıyı değiştirebilirsiniz.
'## Örnek tablomuzun ismi "icerik". Tablomuzda 5 adet örnek girdi var.
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select top 20 * from icerik order by id desc"
rs.Open SQL,baglanti,1,3
i = 0
Do While i =< 19 And Not rs.Eof
'## RSS için gerekli olan unsurları sıralamaya başladık.
'## Veritabanımızda kayıtlı olan tablodan ve ilgi sütunlardan çekilen verileri 
ekrana yazdırıyoruz.
'## Buradaki 310 sayısı, içerikten belli bir özet halinde veri çekmemizi 
sağlıyor. Karakter sayısını belirtir.
'## Bağlantı atamalarını kendi sitenizin adresleme yöntemine göre 
düzenleyebilirsiniz.
Response.Write "<item>"
Response.Write "<title><![CDATA["&rs("baslik")&" / "&rs("tarih")&"]]></title>"
Response.Write "<link><![CDATA[#id="& rs("id") &"]]></link>"
Response.Write "<description><![CDATA[" & left(rs("icerik"),310) & "...<br><br><a 
target=""_blank"" href=""#id="& rs("id") &""">Devamı için tıklayınız</a>]]></description>"
Response.Write "</item>"
i = i + 1
rs.MoveNext
Loop
rs.Close
%></channel></rss>