31/05/2005, 05:40
|
 | | | Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 20 años, 8 meses Puntos: 18 | |
Código:
do while not RSbuscar1.eof
textoconenlaces = replace(texto," "&palabras&" "," <a href=renovario2.asp?id="&Valor_Directorio&"&concepto="&valor_concepto&"&id1="&RSbuscar1("GPrincipal")&"&id2="&RSbuscar1("GSecundario")&"&id3="&Valor_vozprincipal&"&id4="&Valor_id4&" target=_blank>"&palabras&"</a> ") 'para las que estén sueltas
textoconenlaces = replace(texto," "&palabras&"."," <a href=renovario2.asp?id="&Valor_Directorio&"&concepto="&valor_concepto&"&id1="&RSbuscar1("GPrincipal")&"&id2="&RSbuscar1("GSecundario")&"&id3="&Valor_vozprincipal&"&id4="&Valor_id4&" target=_blank>"&palabras&"</a>.")'para las que vayan seguidas de un punto
textoconenlaces = replace(texto," "&palabras&","," <a href=renovario2.asp?id="&Valor_Directorio&"&concepto="&valor_concepto&"&id1="&RSbuscar1("GPrincipal")&"&id2="&RSbuscar1("GSecundario")&"&id3="&Valor_vozprincipal&"&id4="&Valor_id4&" target=_blank>"&palabras&"</a>,") para las que vayan seguidas de una coma
' podrías buscarte más casos posibles...
RSbuscar1.MoveNext
loop
|