Foros del Web - Ver Mensaje Individual

u_goldman · #2 (**permalink**) 10/11/2004, 19:51

Supongo que deberías valerte de una muy buena función que validara varias cosas, pero algo que se me ocurre rápido es si comienza con "www." entonces es una dirección electrónica, por lo tanto:

Código:

Function CrearURL(cadena)
  formato = ""
  If left(cadena, 4) = "www." Then
    formato = "<a href=http://" & cadena & ">" & cadena & "</a>"
  Else
    formato = cadena
  End If
  CrearURL = formato
End Function

variable = CrearURL("www.yahoo.com")
variable2 = CrearURL("Hola Mundo")
Response.write variable
Response.Write "<br>"
Response.write variable2

Salu2,