<%
Set kelime = baglanti.execute("select * from acronym")

Function abc(ByVal strEntry)

do while not kelime.eof

kelime2 = kelime("acronym")
aciklama = kelime("aciklama") '9. satır ---------------------------
asd = "<acronym title=""&aciklama&"">"&kelime2&"</acronym>"

response.write strEntry = Replace(strEntry, ""&kelime2&"", ""&asd&"")

kelime.movenext:loop
kelime.close:set kelime = nothing

abc = strEntry
End Function
%>

edit: erkutarhan da aynı şeyi söylemiş