Estuve investigando por el link que me dio rodvillena, y encontre dos codigos pero parece que le faltan algo:
Este que muestra la direccion url pero no la muestra como hiperbinculo, simplemente la muestra como texto.
<%
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 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
%>
y este otro el cual me dice que no coinciden los tipos
linea 4.
<%
cadena="Hola este es mi sitio
www.misitio.com"
dim arreglo()
arreglo=Split(cadena)
i=0
do until arreglo(i)=""
if instr(1,arreglo(i),"http://",1) and instr(1,arreglo(i),".com",1) Then
%>
<a href="<%=arreglo(i)%>"><%=arreglo(i)%>
</a><%else%>
<%=arreglo(i)%>
<% End If
i=i+1
loop %>