Validacion de mail puntual

[rcastillo]

Estimados, luego de ver las faq y otras cosas eh tratado de poder validar todas las partes de un campo de mail pero solo he podido con dos, les musetro el script haber si me pueden ayudar a validad el requerimiento del @ y demás cosas que necesita un mail, pero aplicado a este script,

<SCRIPT LANGUAGE="VBScript">

sub bnaceptar_onclick()

if fmAlta.ctnombre.value = "" then
msgbox "Debe ingresar un nombre.", vbOKOnly, "nombre"
exit sub
end if

if fmAlta.ctemail.value = "" then
msgbox "Debe ingresar un E-mail.", vbOKOnly, "email"
exit sub
end if

if (LEN(fmAlta.ctemail.value) < 6) then
msgbox "Dirección de E-mail incorrecta.", vbOKOnly, "email"
exit sub
end if


if fmAlta.ctpais.value = "" then
msgbox "Debe ingresar un país.", vbOKOnly, "pais"
exit sub
end if

if fmAlta.ctsugerencia.value = "" then
msgbox "Debe ingresar una sugerencia.", vbOKOnly, "sugerencia"
exit sub
end if

fmAlta.submit()
End sub
</SCRIPT>