formatear email...

[haven]

Tengo un formulario para actualizar una base de datos y necesito que al introducir una dirección de correo esta se convierta en enlace, estoy intentando que me reconozca la arroba, pero no lo consigo, solo funciona si pongo que reconozca mailto:, pero al actualizar la página me toma como enlace todo lo que he puesto seguido de mailto es decir me pone como enlace mailto:[email protected], sabe alguien como hacerlo.
Gracias

[jgg]

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!!

[haven]

La cuestión es que está dentro de una cadena de código, que además de formatearme las páginas web tipo www.algo.com o http://, me pone dependiendo del nivel de acceso que le doy una imagen u otra. El código que estoy utilizando es:

Código:

 elseif (mid(sIn, charPos, 7) = "@") or (mid(sIn, charPos, 7) = "mailto:") then

sOut = sOut + "<a href="""
	
if mid(sIn, charPos, 7) = "@" then
charPos = charPos + 7
			end if

	urlString = ""
	urlChar = ""
	urlPos = charPos
do until (urlChar = " ") or (urlChar = chr(13)) or (urlChar = "[")
	urlChar = mid(sIn, urlPos, 1)
	urlString = urlString + urlChar
	urlPos = urlPos + 1
if urlPos > len(sIn) then
sOut = sOut + urlString + """>" + urlString + "</a>"
	exit for
				end if
	loop
urlString = left(urlString, len(urlString)-1)
sOut = sOut + urlString + """>" + urlString + "</a>"
charPos = charpos + (urlPos - charPos - 2)

pero lo dicho no consigo que me reconozca solo la arroba, si le pongo mailto: si que me lo reconoce pero me lo formatea de la forma:
<a href="mailto:[email protected]">mailto:al [email protected]</a>
Otra forma sería la de poder decirle que me reste la palabra mailto: , ...
Gracias

[haven]

vale ya me ha salido a veces es algo tan sencillo...
solo he añadido dos mailto:

Código:

  elseif (mid(sIn, charPos, 7) = "@") or (mid(sIn, charPos, 7) = "mailto:") then

sOut = sOut + "<a href=""mailto:"

if mid(sIn, charPos, 7) = "mailto:" then
charPos = charPos + 7
end if

Así se consigue que no aparezca el mailto: en el código final
Gracias a todos