bueno para que no esperes aqui lo tienes (es el de dazuaga)
<%
CADENA = "En el sitio web de la Subsecretaría de Asuntos Municipales www.municipios.gov.ar encontrará información de los Municipios Argentinos. Y qué pasa si hay dos direcciones: www.elsitioinutil.20m.com/main.html . Con dos direcciones también funciona ;). Y hasta con 3: www.forosdelweb.com , o quizá 4? www.maestrosdelweb.com . En realidad, no hay límite."
Response.Write CADENA
Response.Write "<p></p>"
COMIENZO = InStr(CADENA,"www")
contador = 0
do while COMIENZO<>0
FIN = InStr(COMIENZO,CADENA," ")
URL = Mid(CADENA, COMIENZO, FIN-COMIENZO)
URL_ARREGLADA = ("<a href=" & CHR(034) & "http://" & URL & CHR(034) & ">" & URL & "</a>")
if contador > 0 then
CADENA_ARREGLADA = Replace(CADENA_ARREGLADA,URL,URL_ARREGLADA)
else
CADENA_ARREGLADA = Replace(CADENA,URL,URL_ARREGLADA)
end if
COMIENZO = InStr(FIN,CADENA,"www")
contador = contador + 1
loop
Response.Write CADENA_ARREGLADA
%>
saludos
