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
%>