Sitenize RSS Desteği Ekleyin

db.gen.tr

0
İyinet Üyesi
Katılım
1 Aralık 2006
Mesajlar
0
Reaction score
0
Konum
<%=istanbul%>
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 :)

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
%>
 

jackal

0
İyinet Üyesi
Katılım
2 Ocak 2006
Mesajlar
1,899
Reaction score
1
800a0cc1 hatası verıyor devamlı beceremedım sanırım :)
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Elektronik Sigara Cicisex Porno
Üst