Ver Mensaje Individual
  #2 (permalink)  
Antiguo 06/05/2002, 09:06
jgg
 
Fecha de Ingreso: agosto-2001
Mensajes: 56
Antigüedad: 23 años, 8 meses
Puntos: 0
Re: formatear email...


Hola,
esta función hace lo que necesitas.
Monta el enlace dependiendo del mailto

Function Formato_Email(recibo_var)
Dim montamail

montamail = "<a href='"
If not InStr(recibo_var,":")>0 then
montamail = montamail & "mailto:" & Trim(recibo_var)
else
montamail = montamail & Trim(recibo_var)
end if

montamail = montamail & "'>" & Trim(recibo_var) & "</a>"

Formato_Email = montamail
End Function

response.write Formato_Email("mailto:hola")


Un saludo!!