en realidad, la consulta es la misma... debés jugar un poco con los replace. algo así...
Texto = Rs("Texto")
Var_Palabra = "alguna palabra"
Texto = Replace(Texto, "#" & Var_Palabra & "#", <a href='pagina.asp?mostrar=" & Var_Palabra & "'>" & Var_Palabra & "</a>")