test adresi : http://www.halkpel.com/rss.asp
şu kodlamayı yaptım ;
<%
Response.Buffer = True
Response.ContentType = "text/xml"
Function Temizle(callaki)
callaki = Replace(callaki,"&", "&")
callaki = Replace(callaki,"'", "'")
callaki = Replace(callaki,"""", """)
callaki = Replace(callaki,">", ">")
callaki = Replace(callaki,"<","<")
callaki = Replace(callaki,"İ","I")
callaki = Replace(callaki,"Ş","S")
callaki = Replace(callaki,"Ü","U")
callaki = Replace(callaki,"Ö","O")
callaki = Replace(callaki,"Ç","C")
callaki = Replace(callaki,"Ğ","G")
callaki = Replace(callaki,"ğ","g")
callaki = Replace(callaki,"ı","i")
callaki = Replace(callaki,"ş","s")
callaki = Replace(callaki,"ü","u")
callaki = Replace(callaki,"ö","o")
callaki = Replace(callaki,"ç","c")
Temizle = callaki
End Function
%>
<%
Set bag = Server.Createobject("Adodb.Connection")
bag.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabanim.mdb") &";"
'// Kayıt Dizesi Açılıyor
Set halkpel = Server.CreateObject("Adodb.Recordset")
%>
<rss design="Ali AYDIN">
<channel>
<title>Halkpel Gazetesi</title>
<link>http://www.halkpel.com</link>
<description>Son Eklenen Haberler</description>
<language>tr</language>
<%
halkpel.Open "SELECT * FROM haberler ORDER BY id DESC", bag, 1, 3
i = 0
Do While i =< 10 And Not halkpel.Eof
Response.Write "<item>"
Response.Write "<title>" & temizle(halkpel("baslik")) & "</title>"
Response.Write "<link>"& http://www.halkpel.com &"/haber_devam.asp?id="& temizle(halkpel("id")) &"</link>"
Response.Write "<description>" & temizle(halkpel("detay")) & "</description>"
Response.Write "</item>"
i = i + 1
halkpel.MoveNext
Loop
halkpel.Close
%></channel></rss>
