merhaba r10 ailesi sizlerden bi kaç ricam olucak bir kaç soru sorucam sizlere sorularım biraz karışık ve iç içe olabilir fakat konu fazlalığı olmasın ve göz yormaması içni bu şekilde sordum umarım sorularıma çözüm bulabilirim .Site istimin vermiyorum forumda sorun olmassa verebilirim. Kolay Gelsin .
1 - cilem haberin scriptini kullanıyorum sitemde. Rss beslemesi scriptte mevcut google webmaster toolsa rss beslemesini ekliyorum hata veriyor hata kodu ise
Satır|||||||Durum
4||||||||||Eksik XML etiketi
Bu gerekli etiket eksik. Lütfen ekleyin ve yeniden gönderin.
Ana etiket: channel
Etiket: description
Sorun algılandı:02 Oca 2009
Rss.asp Dosyası:
<!--#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),"'" )
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>2- Rss ile siteme haber çekmek istiyorum fakat bu haberlerin veritabanıma kaydedilip sitede gösterilmesini istiyorum bunu en ayrıntılı şekilde anlatıp uygulamalı olarak gösterebilecek bi arkadaşımız varsa çok sevinirim . Çünkü Günlerdir webde arıyorum bu konuyu hiç bir yerde tam anlamıyla bir bilgi verilmemiş.
3- Haber siteleri haberleri ekledikten ortalama 1 ila 5 dk içinde googleda hemen indexleniyorlar. Bende bir haber sitesi olarak bunu istiyorum biliyorum hitim çok fazla değil pr'im 0. Bunu yapmak için başka bir yol varmı.
4- Google'da indexlenen sayfa sayım 600 civarı fakat normal link şeklinde. Seo yu aktif ettim scripte seo çalışıyor sorununsuz fakat googleda linklerim çalışmıyor bu sefer ne kadar süre içinde seo'yu görür google .