Vale ya esta la cuestion era que no guardabamos el resultado de la primera consulta para que buscaría despues a partir de esa ultima, bueno el codigo queda así
n = 0
do while not RSbuscarart.eof
n = n + 1
if n = 1 then
texto = RSmenu5("TEXTOS")
else
texto = textoconenlaces
end if
textoconenlaces = replace(texto,RSbuscarart("apellido1"),"<a href='ver_enlace.asp?idpalabra="&RSbuscarart("id") &"'>"&RSbuscarart("apellido1")&"</a>")
RSbuscarart.MoveNext
loop
response.write textoconenlaces
Un saludo
