Cilem Haber Rss Google Webmaster Tools , Google İndex , Seo Sorunları Yardım Lütfen

<!--#include file="veriyolu.asp"--><!--#include file="ayarlar.asp"-->
<%
set cilem = server.createobject("adodb.connection")
cilem.open("driver={microsoft access driver (*.mdb)}; dbq=" & Server.MapPath(""&veritabaniyolu&"")),"*****","*** **"
Set rs=Server.CreateObject("Adodb.Recordset")
%><?xml version="1.0" encoding="windows-1254" ?>
<%
Response.Buffer = True
Response.ContentType = "text/xml"
Function Temizle(strInput)
strInput= Replace(strInput,Chr(39),"&apos;" )
strInput= Replace(strInput,Chr(34),"""" )
strInput= Replace(strInput, "&" , "&" )
strInput= Replace(strInput, Chr(60), "<" )
strInput= Replace(strInput, Chr(60), ">" )
Temizle = strInput
End function
%><%
Function kelime(veri)
Veri=Veri&""
veri= Replace (veri,"ı","i",1,-1,1)
veri= Replace (veri,"ğ","g",1,-1,1)
veri= Replace (veri,"ü","u",1,-1,1)
veri= Replace (veri,"ş","s",1,-1,1)
veri= Replace (veri,"ö","o",1,-1,1)
veri= Replace (veri,"ç","c",1,-1,1)
veri= Replace (veri,"I","i",1,-1,1)
veri= Replace (veri,"Ğ","g",1,-1,1)
veri= Replace (veri,"Ü","u",1,-1,1)
veri= Replace (veri,"Ş","s",1,-1,1)
veri= Replace (veri,"İ","i",1,-1,1)
veri= Replace (veri,"Ç","c",1,-1,1)
veri= Replace (veri,"Ö","o",1,-1,1)
veri= Replace (veri,"Ö","o",1,-1,1)
veri= Replace (veri,"A","a",1,-1,1)
veri= Replace (veri,"B","b",1,-1,1)
veri= Replace (veri,"C","c",1,-1,1)
veri= Replace (veri,"D","d",1,-1,1)
veri= Replace (veri,"E","e",1,-1,1)
veri= Replace (veri,"F","f",1,-1,1)
veri= Replace (veri,"G","g",1,-1,1)
veri= Replace (veri,"H","h",1,-1,1)
veri= Replace (veri,"J","j",1,-1,1)
veri= Replace (veri,"K","k",1,-1,1)
veri= Replace (veri,"L","l",1,-1,1)
veri= Replace (veri,"M","m",1,-1,1)
veri= Replace (veri,"N","n",1,-1,1)
veri= Replace (veri,"O","o",1,-1,1)
veri= Replace (veri,"P","p",1,-1,1)
veri= Replace (veri,"R","r",1,-1,1)
veri= Replace (veri,"S","s",1,-1,1)
veri= Replace (veri,"T","t",1,-1,1)
veri= Replace (veri,"U","u",1,-1,1)
veri= Replace (veri,"V","v",1,-1,1)
veri= Replace (veri,"Y","y",1,-1,1)
veri= Replace (veri,"Z","z",1,-1,1)
veri= Replace (veri,"W","x",1,-1,1)
veri= Replace (veri,"X","w",1,-1,1)
veri= Replace (veri," ","-",1,-1,1)
veri= Replace (veri,"'","",1,-1,1)
veri= Replace (veri,"`","",1,-1,1)
veri= Replace (veri,"’","",1,-1,1)
veri= Replace (veri,",","",1,-1,1)
veri= Replace (veri,"(","",1,-1,1)
veri= Replace (veri,")","",1,-1,1)
veri= Replace (veri,"Chr(180)","",1,-1,1)
veri= Replace (veri,"Chr(145)","",1,-1,1)
veri= Replace (veri,"Chr(146)","",1,-1,1)
veri = Replace (veri,"Chr(39)","",1,-1,1)
kelime=veri
End Function
%>
<!--#include file="ayarlar.asp"-->
<rss version="2.0">
<channel>
<title><%=(Temizle(siteadi))%></title>
<link><%=(Temizle(webadresi))%>/</link>
<language>tr</language>
<image>
<title><%=(Temizle(siteadi))%></title>
<link><%=(Temizle(webadresi))%>/</link>
<url><%=(Temizle(webadresi))%><%=(Temizle(klasor)) %>grafik/rss.gif</url>
<width>100</width>
<height>24</height>
</image>
<%
Set rs = cilem.Execute("SELECT ID,tarih,baslik,kisahaber,koseyazisi,UID FROM haber where haberonay=true and koseyazisi=false order by tarih desc;")
i = 0
Do While i =< 20 And Not rs.Eof
Response.Write "<item>"
Response.Write "<title>" & Temizle(rs("baslik" ) ) & "</title>" %><%if seo=true then%><%Response.Write "<link>"& webadresi &""& klasor &"haberdetay/"& kelime(Trim(rs("ID"))) &"-"& kelime(Trim(rs("baslik"))) &".html</link>"%><% else%><%Response.Write "<link>"& webadresi &""& klasor &"haberdetay.asp?ID="& Temizle(Trim(rs("ID"))) &"</link>"%><%end if%><%Response.Write "<description> " & Temizle(rs("kisahaber" ) ) & "</description>"
Response.Write "</item>"
i = i + 1
rs.MoveNext
Loop
rs.Close
%></channel></rss>