<!-- #include file="dbayar.asp" --> 
<% 
Response.Buffer = True 
Response.ContentType = "text/xml" 
Function Temizle(strInput ) 
     strInput = Replace(strInput,"&", "&" ) 
     strInput = Replace(strInput,"'", "'" ) 
     strInput = Replace(strInput,"""", """ ) 
     strInput = Replace(strInput,">", ">" ) 
     strInput = Replace(strInput,"<","<" ) 
     strInput = Replace(strInput,"&Yacute;","I" ) 
     strInput = Replace(strInput,"&THORN;","S" ) 
     strInput = Replace(strInput,"Ü","U" ) 
     strInput = Replace(strInput,"Ö","O" ) 
     strInput = Replace(strInput,"Ç","C" ) 
     strInput = Replace(strInput,"&ETH;","G" ) 
     strInput = Replace(strInput,"&eth;","g" ) 
     strInput = Replace(strInput,"&yacute;","i" ) 
     strInput = Replace(strInput,"&thorn;","s" ) 
     strInput = Replace(strInput,"ü","u" ) 
     strInput = Replace(strInput,"ö","o" ) 
     strInput = Replace(strInput,"ç","c" )      
     Temizle = strInput 
End Function 
%> 
<% 
'// Veritaban&yacute; Ba&eth;lant&yacute;s&yacute; Yap&yacute;l&yacute;yor 
Set adoCon = Server.CreateObject("Adodb.Connection" ) 
adoCon.open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& server.MapPath(""&db&"/downloadytujry6jszx.mdb" ) &";" 
Set kd = Server.CreateObject("Adodb.Recordset" ) 
%> 
<rss version="2.0"> 
<channel> 
<title>Dosyakayit.Com</title> 
<link>http://<%=url%></link> 
<description>Son Eklenen Programlar</description> 
<language>tr</language> 
<% 
kd.Open "SELECT * FROM download WHERE onay=1 ORDER BY id desc", adoCon, 1, 3 
i = 0 
Do While i =< 10 And Not kd.Eof 
Response.Write "<item>" 
Response.Write "<title>" & Temizle(kd("script_adi" ) ) & " </title>" 
Response.Write "<link>http://"&url&"/indir.asp?id="& Temizle(kd("id" ) ) &"</link>" 
Response.Write "</item>" 
i = i + 1 
kd.MoveNext 
Loop 
kd.Close 
%></channel></rss>