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" )) %>