Arkadaşlar ben örneğin r10'daki gibi "pr" olan kelimeleri "<acronym title="Page Rank">pr</acronym>" şeklinde replace etmeye çalışıyorum ama hata veriyo, bi türlü çözemedim hatayı. Kulandığım kod;

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

Function abc(ByVal strEntry)

do while not kelime.eof

kelime = kelime("acronym")
aciklama = kelime("aciklama")
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
%>

Verdiği hata;

Microsoft VBScript runtime  error '800a000d' 
  Type mismatch: 'kelime' 
  /acronym.asp, line 9