Söylediğini daha önce hiç yapmadım aklıma şimdilik daha kısa bir yolda gelmiyor ama aşağıda ki şekilde seçip ayırabilirsin reklam vereceğin kelimeleri.

kelime="reklam kelimesi"
metin="yazı yazı reklam kelimesi yazı yazı"
metinal=split(metin, kelime)
if ubound(metinal)>0 then
for i=0 to ubound(metinal)
metniayir=metniayir & metinal(i) & "<a href=reklamlinkin.com>"&kelime&"</a>"

next

metin=metniayir

end if

response.write metin