Hola ivan_noe, no es que tenga las cosas poco claras, lo que pasa es que siempre tiendo a hacer las cosas lo mas largas posibles y ya es hora de que empiece ha hacer las cosas con menos lineas de código, yo lo que he puesto es condiciones así lo que tendria sería esto:
if Cantidaddescripciones = 0 then
texto0 = Replace(Replace(RS5("TEXTOS")&"",chr(13),"<br>"),d escipcion(0),"<a href=palabras.asp?titulo="&Replace(Trim(descipcion (0))," ","%20")&">"&descipcion(0)&"</a>")
response.write texto0
end if
if Cantidaddescripciones = 1 then
texto0 = Replace(Replace(RS5("TEXTOS")&"",chr(13),"<br>"),d escipcion(0),"<a href=palabras.asp?titulo="&Replace(Trim(descipcion (0))," ","%20")&">"&descipcion(0)&"</a>")
texto1 = Replace(texto0,descipcion(1),"<a href=palabras.asp?titulo="&Replace(Trim(descipcion (1))," ","%20")&">"&descipcion(1)&"</a>")
response.write texto1
end if
if Cantidaddescripciones = 2 then
texto0 = Replace(Replace(RS5("TEXTOS")&"",chr(13),"<br>"),d escipcion(0),"<a href=palabras.asp?titulo="&Replace(Trim(descipcion (0))," ","%20")&">"&descipcion(0)&"</a>")
texto1 = Replace(texto0,descipcion(1),"<a href=palabras.asp?titulo="&Replace(Trim(descipcion (1))," ","%20")&">"&descipcion(1)&"</a>")
texto2 = Replace(texto1,descipcion(2),"<a href=palabras.asp?titulo="&Replace(Trim(descipcion (2))," ","%20")&">"&descipcion(2)&"</a>")
response.write texto2
De esta forma vamos sacando los valores y las palabras subrayadas.
Tal y como lo has puesto tu, si es verdad que lo haces de una vez y no tienes limitaciones en cuanto a las palabras que quieres poner, el problema es que concatena el texto tres veces, no me recorre el mismo texto tres veces y sustituye las palabras en el mism texto lo que hace es repetir el texto tantas veces como palabras hay en mi base de datos, yo creo que debería ser algo así:
texto = Replace(RS5("TEXTOS")&"",chr(13),"<br>")
for I=LBound(descipcion) to UBound(descipcion)
texto = Replace(texto,descipcion(I),"<a href=palabras.asp?titulo="&Replace(Trim(descipcion (I))," ","%20")&">"&descipcion(I)&"</a>")
next
Gracias
me has ayudado mucho.
Un saludo
