Cita: Gracias, pero pues soy medio wey
Yo diría wey del todo
<%
Correo= rs("email")
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
PD: Era un chiste lo anterior ;)