expresion regular para restringir letras

[lexus]

denuevo gracias por tu ayuda

quiero hacer algoa si mas o menos..
pero no entiendo mucho de expresiones regulares
este valida si un email es valido.

Código ASP:

function esValidoEmail(cadena)
set expReg = New RegExp
expReg.Pattern = "^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@_
[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*$"
esValidoEmail = expReg.Test(cadena) and len(cadena) < 256
set expReg = nothing
end function