<% Response.Buffer = True Response.ContentType = "text/xml" Function Temizle(strInput) strInput = Replace(strInput,"&", "&") strInput = Replace(strInput,"""", """) strInput = Replace(strInput,">", ">") strInput = Replace(strInput,"<","<") Temizle = strInput End Function strVersiyon = Temizle(Request.Querystring("tur")) Select Case strVersiyon Case "en_cok_okunanlar" strAciklama = "En Çok Okunan Haberler" SQL = "SELECT * FROM tblHaberler WHERE durum=True AND onay=True ORDER BY okunma DESC" Case "en_cok_oy_alanlar" strAciklama = "En Çok Oy Alan Haberler" SQL = "SELECT * FROM tblHaberler WHERE durum=True AND puan > 0 AND oy_sayisi > 0 AND onay=True ORDER BY puan/oy_sayisi DESC" Case Else strAciklama = "Son Eklenen Haberler" SQL = "SELECT * FROM tblHaberler WHERE durum=True AND onay=True ORDER BY tarih DESC" End Select %> <%=strSiteAdresi%> <%=strAciklama%> tr <% kdGenel.Open SQL, adoCon, 1, 3 i = 0 Do While i =< 10 And Not kdGenel.Eof Response.Write "" Response.Write "" Response.Write ""& strSiteAdresi &"/haber_oku.asp?haber="& Temizle(kdGenel("haberID")) &"" Response.Write "" & Temizle(kdGenel("ozet")) & "" Response.Write "" i = i + 1 kdGenel.MoveNext Loop kdGenel.Close %>