Cümledeki her kelimeye link vermek

Arkadaşlar ekşisözlükte ki gibi yazıların başlığındaki her kelimeyi ayrı ayrı link veriyor. Bu kelimelerde arama motoruna bağlı. Yani o kelimeye tıklandı mı o kelime ile ilgili arama yapıyor. Benimde tam olarak istediğim bu. Bir cümleden kelimeleri nasıl ayıracam ve ayırdıktn sonra nasıl link verecem yardımcı olursanız sevinirim...

arkadaşlar kodu buldum belki işinize yarar buyrun...

<%
Function Ayir(baslik)
If IsNull(baslik) Or Not Len(baslik) > 1 Then Exit Function
VirgulAyir = Split(baslik," ")

For i=0 To UBound(VirgulAyir)
Ayir = Ayir & " <a target=sol href=""ara.asp?aranan="&Trim(VirgulAyir(i))&""">"& Trim(VirgulAyir(i))&"</a>"
Next
End Function
%>

<%=Ayir(objrs("baslik" )) %>

tşkler.