<%
Correo="
[email protected]"
LugarArroba=Instr(Correo,"@")
LugarPunto=Instr(Correo,".")
LongitudCadena=Len(Correo)
Usuario=Left(Correo,LugarArroba)
Dominio=Len(Mid(Correo,LugarArroba+1,LugarPunto-1))
Terminacion=Right(Correo,LongitudCadena-LugarPunto+1)
Response.Write Usuario&"*******"&Terminacion
%>
Saludos
<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>