
06/05/2002, 09:06
|
| | 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!! |