Aşağıdaki kodla veri tabanınızda son girilen 10 veriyi açıklama kısmında 200 karakter göstererek rss formatına dönüştürebilirsiniz. Sistemi yaptıktan sonra çalışıp çalışmadığını;
http://www.haberss.com/?r=http://www.arshiv.net/rss.asp
şeklinde kontrol edebilirsiniz güle güle kullanın
http://www.haberss.com/?r=http://www.arshiv.net/rss.asp
şeklinde kontrol edebilirsiniz güle güle kullanın
PHP:
<%
response.contenttype="text/xml"
Set conn= Server.CreateObject("ADODB.Connection")
conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb"))
response.write "<?xml version=""1.0"" encoding=""ISO-8859-9""?>" & vbcrlf
response.write "<rss version=""2.0"">" & vbcrlf
response.write "<channel>" & vbcrlf
response.write "<title>siteadi.com</title>" & vbcrlf
response.write "<rs>http://www.asiteadi.com/</rs>" & vbcrlf
response.write "<description>Son Eklenen 10 Veri</description> " & vbcrlf
response.write "<language>tr</language>" & vbcrlf
response.write "</channel>" & vbcrlf
set rs = conn.execute("Select top 10 * from tabloadi order by id desc")
do while not rs.eof
Response.Write("<item>" & _
vbCrLf & "<title>" & rs("baslik") & "</title>" & _
vbCrLf & "<link>http://www.siteadi.com/yazi.asp?id="& rs("id") &"</link>" & _
vbCrLf & "<description>"& left(rs("aciklama"),200) &" " & _
vbCrLf & "</description>" & _
vbCrLf & "<pubdate>" & rs("tarih") & "</pubdate>" & _
vbCrLf & "</item>")
rs.movenext
loop
response.write "</rss>" & vbcrlf
rs.close
%>