ayuda con funcion cortar links

[Shiryu_Libra]

cortar cadenas de link.....

si empiezan con www o http

no seria mas sencillo, esto?

<%
strIN = "Esta es la direccion www.intramed.net pero tenesmos tambien WWW.INTRAMED.NET en nuestra lista, probaremos a continuacion que tambien admita http://www.intramed.net como valido y por ultimo, nos falto probar que HTTP://WWW.INTRAMED.NET tambien cargara"
temp=split(strin," ")
for i=0 to ubound(temp)
select case lcase(left(temp(i),3))
case "www" temp(i)="*"
case "htt" temp(i)="*"
end select
cadena=cadena & " " & temp(i)
next
response.Write cadena
%>

solo tendrias que evaluar cuando un usuario en lugar de esas entradas, escribiera simplemente
forosdelweb.com ó maestrosdelweb.com
aunque... un right(strin,4) y evaluar que no termine con ".com" o ".mx" o todas sus variantes



edito:

algo asi mejor

Código:

<%
strIN = "Esta es la direccion www.intramed.net pero tenesmos tambien WWW.INTRAMED.NET en nuestra lista, probaremos a continuacion que tambien admita http://www.intramed.net intramed.net como valido y por ultimo, nos falto probar que HTTP://WWW.INTRAMED.NET tambien cargara intramed.gob"
response.Write strin &"<br /><br /><br />"
response.Flush()
temp=split(strin," ")
for i=0 to ubound(temp)
    select case lcase(left(temp(i),3))
        case "www" temp(i)="<a href= http://" & temp(i) & (chr34) & ">Link</a>"
        case "htt" temp(i)="<a href= http://" & temp(i) & (chr34) & ">Link</a>"
        case else 
            if instr(temp(i),".com") then temp(i)="<a href= http://" & temp(i) & (chr34) & ">Link</a>"
            if instr(temp(i),".net") then temp(i)="<a href= http://" & temp(i) & (chr34) & ">Link</a>"
            if instr(temp(i),".tv") then temp(i)="<a href= http://" & temp(i) & (chr34) & ">Link</a>"
            if instr(temp(i),".org") then temp(i)="<a href= http://" & temp(i) & (chr34) & ">Link</a>"
            if instr(temp(i),".gob") then temp(i)="<a href= http://" & temp(i) & (chr34) & ">Link</a>"
    end select
    cadena=cadena & " " & temp(i)
next
response.Write cadena
response.Flush()
%>