<?xml version="1.0" encoding="iso-8859-9"?>
<%
'#############################################
'## Amasram.NET Amasra RSS Servisi##
'#############################################
%>
<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("xxx.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>Amasra Otel ve Pansiyon Fiyatları Özet Akışı</title>
<link>http://www.amasram.net</link>
<description>Güncel Amasra Otel ve Pansiyon Fiyatları Özet Akışı</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 firmadetay 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("firmaadi")&" / "&rs("bttarih")&"]]></title>"
Response.Write "<link><![CDATA[incele.asp?id="& rs("id") &"]]></link>"
Response.Write "<description><![CDATA[<b>Firma Hakkında:</b>&nbsp;" & left(rs("tanim"),500) & "...<br><b>Firma Adresi:</b>&nbsp;" & left(rs("adres"),30) & "<br><br><a target=""_blank"" href="""& rs("demo") &""">Firmayı İncele</a>]]></description>"
Response.Write "</item>"
i = i + 1
rs.MoveNext
Loop
rs.Close
%></channel></rss>