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

Function abc(ByVal strEntry)

do while not kelime.eof

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

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

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

abc = strEntry
End Function
%>


Edit: erkutarhan dediğin gibi yaptım oldu. Teşekkürler.

Edit2: asp = Active Server Pages olarak ekliyorum. Sadece yazıdaki "asp" olan yerleri çeviriyo, Asp ve ASP olan yerlerinide, tek tek eklemeden, çevirttirebilirmiyim.