<% set cilem = server.createobject("adodb.connection") cilem.open("driver={microsoft access driver (*.mdb)}; dbq=" & Server.MapPath(""&veritabaniyolu&"")),"*****","*****" Set rs=Server.CreateObject("Adodb.Recordset") %> <% Response.Buffer = True Response.ContentType = "text/xml" Function Temizle(strInput) strInput= Replace(strInput,Chr(39),"'" ) strInput= Replace(strInput,Chr(34),"""" ) strInput= Replace(strInput, "&" , "&" ) strInput= Replace(strInput, Chr(60), "<" ) strInput= Replace(strInput, Chr(60), ">" ) Temizle = strInput End function %> <%=(Temizle(internet_adresi))%>/ tr <%=(Temizle(internet_adresi))%>/ <%=(Temizle(internet_adresi))%><%=(Temizle(klasor))%>/grafik/rss.gif 100 24 <% Set rs = cilem.Execute("SELECT bolum,tarih,baslik,kisahaber,koseyazisi,uyeid FROM haber where haberonay='Evet' and koseyazisi=false order by tarih desc;") i = 0 Do While i =< 20 And Not rs.Eof Response.Write "" Response.Write "" Response.Write ""& internet_adresi &""& klasor &"/haberdetay.asp?bolum="& Temizle(Trim(rs("bolum"))) &"&uyeid="& Temizle(Trim(rs("uyeid"))) &"" Response.Write " " & Temizle(rs("kisahaber" ) ) & "" Response.Write "" i = i + 1 rs.MoveNext Loop rs.Close %>