ş==s ı==i ğ==g

2 hafta uğraştım 12.000 kayıt girdim. Türkçe karakterler yazmıştım aramalarda arandığı gibi çıksın diye. Ama linklerde de Türkçe karakter kullanmışım sitede tıklayınca açılıyor fakat google indexlerken farklı indexlemiş ve tıklayınca açılmıyor. Bütün Türkçe karakterleri düzeltiyorum ama bu böyle teker teker bitmez.

Database : Microsoft Access
ş==s
ğ==g
ı==i
ç==c
==_ (boşluk)

yapmak istiyorum. access da bunu yapabilirmiyim. Ad bölümündeki kayıtlardaki bütün ş leri s yapsın mesela. Yada asp de olurmu?

vvv.domain.com/xxx.asp?ad=%C4%B0stanbul%20%C5%9Eehir%20Tiyatrosu
yerine
vvv.domain.com/xxx.asp?ad=Istanbul_Sehir_Tiyatrosu
yapmaya çalışıyorum.

olur tabii.
bir döngü oluştur. her bir döngüde şunları yaptır: Ad bölümündeki yazıyı bir değişkene aktar. değişkende Replace ile karakterleri değiştir ve UPDATE yaptır.
yada
direkt olarak access üzerinden bir sql query ile de yaptırabilirsin bunu..

Kodlara bakabilirmisin bir eksik var sanırım. Şu şekilde bir hatayla karşılaştım.

----hata----
Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'replace'

/update.asp, line 4

-----kodlar----
<%

function degis(nere)
nere=replace(nere,"ş","s")
nere=replace(nere,"ğ","g")
nere=replace(nere,"ı","i")
nere=replace(nere,"ç","c")
nere=replace(nere," ","_")
end function
%>


<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM ziyaretci"
rs.Open sql, bag, 1, 3 'db açtık devam edelim...
Server.ScriptTimeOut = 50
PageTimeOut = 50
%>


<%
do while not rs.eof
rs("ad")=degis(rs("ad"))
rs.update
rs.movenext
loop
%>

1. database.mdb yi roota koymamışsındır umarım. indirilmeye oldukça müsait gibi geldi bana
2. function aşağıdaki gibi olmalı. bazı kayıtların boş (tanımsız veri NULL) olduğundan dolayı, o kayıtlarda hata vermesi normal

<%
function degis(nere)
if nere & "" <> "" then
nere=replace(nere,"ş","s")
nere=replace(nere,"ğ","g")
nere=replace(nere,"ı","i")
nere=replace(nere,"ç","c")
nere=replace(nere," ","_")
end if
end function
%>

3. kodun en sonunda rs.Close ve bag.close olmalı. aksi taktirde, siten yoğun ise sorun yaşayabilirsin.!!!

fso desteği kapalı durumda ve kök dizinin gerisinde dışardan erişimi olmayan klasör içinde database. şimdi yazdıklarını deniycem. Siteyi yeni açtım yoğunluk yok. Bw den de sorunum yok. Uğraşayım durumu bildireyim. Ctrl+h ilerlemiyor böyle kayıt bulunamadı diyor

Sorun halloldu arkadaşlar. Yardımlarınız için teşekkürler.

Olan bizim indexlenen 12.000 sayfaya oldu. Süper site hazırlarım gider siteyi banlar. Sitenin üstüne çok düşerim yapmadığım şey kalmaz yinede indexlemez. Yeni bir site hazırlarım açarım linklerde Türkçe karakter kullanmışım gider 12.000 sayfasını indexler. Olacak işmi bu ya.