<% Response.Buffer = True Response.ContentType = "text/xml" strVersiyon = Temizle(Request.Querystring("tur")) SQL = "SELECT * FROM tblHaberler WHERE kategori AND durum="& strDBTrue &" AND onay="& strDBTrue &" ORDER BY tarih DESC" %> <% kdGenel.Open SQL, adoCon, 1, 3 i = 0 Do While i =< 999 And Not kdGenel.Eof Response.Write "" Response.Write ""& strSiteAdresi & LinkVer("haber", kdGenel("haberID"), BaslikTemizle(kdGenel("baslik")), KategoriBul(kdGenel("kategori"))) &"" Response.Write "" i = i + 1 kdGenel.MoveNext Loop kdGenel.Close %> <% Response.Buffer = True Response.ContentType = "text/xml" strVersiyon = Temizle(Request.Querystring("tur")) SQL = "SELECT * FROM tblvideolar ORDER BY tarih DESC" %> <% kdGenel.Open SQL, adoCon, 1, 3 i = 0 Do While i =< 999 And Not kdGenel.Eof Response.Write "" Response.Write ""& strSiteAdresi & LinkVer("video", kdGenel("video_ID"), kdGenel("baslik"), videoKategoriBul(kdGenel("vkat_id"))) &"" Response.Write "" i = i + 1 kdGenel.MoveNext Loop kdGenel.Close %> <% Response.Buffer = True Response.ContentType = "text/xml" strVersiyon = Temizle(Request.Querystring("tur")) SQL = "SELECT * FROM tblGaleriler ORDER BY tarih DESC" %> <% kdGenel.Open SQL, adoCon, 1, 3 i = 0 Do While i =< 999 And Not kdGenel.Eof Response.Write "" Response.Write ""& strSiteAdresi & LinkVer("galeri", kdGenel("galeri_ID"), "1", kdgenel("ad")) &"" Response.Write "" i = i + 1 kdGenel.MoveNext Loop kdGenel.Close %>