Função de validação de e-mail PHP

<%
Function ValidaEmail(email)
email = Trim(email)
if email = “” then
ValidaEmail = False
exit function
end if

‘##############################
‘função InStr = posição da primeira ocorrência

if InStr(email,”@”) = 0 then
ValidaEmail = False
exit function
end if
pos = InStr(email,”@”)
aux = Mid(email,pos+1)
if InStr(aux,”.”) = 0 then
ValidaEmail = False
exit function
end if
Dominio = LEFT(aux,InStr(aux,”.”)-1)
if Dominio = “” then
ValidaEmail = False
exit function
end if

‘##############################
‘Caracteres especiais

Carac = Array(“Á”,”À”,”É”,”È”,”Í”,”Ì”,”Ó”,”Ò”,”Ú”,”Ù”,”á”,”à”,”é”,”è”,”í”,”ì”,”ó”,”ò”,”ú”,”ù”,”Ä”,””,”Ë”
,”Ê”,”Ï”,”Δ,”Ö”,”Ô”,”Ü”,”Û”,”ä”,”â”,”ë”,”ê”,”ï”,”î”,”ö”,”ô”,”ü”,”û”,”Ô,”å”,”Ñ”,”Å”,”Õ”,”Ç”,”ã”,”ç”,”ñ”,”Ý”
,”õ”,”ý”,”Ø”,”ÿ”,”ø”,”Þ”,”þ”,”ð”,”Æ”,”ß”,”æ”,”¼”,”½”,”¡”,”¾”,”£”,”©”,”¥”,”®”,”§”,”ª”,”¤”,”²”,”¦”,”³”,”«”
,”¹”,”¬”,”¯”,”",”µ”,”º”, “¶”,”·”,”¨”,”°”,”±”,”¸”,”»”,”¿”,”¢”,”÷”,”€”,”“”,”™”,”””,”‰”,”Œ”,”ƒ”,”‡”,”†”,”!”,
“#”, “$”, “%”, “&”, “*”, “(“, “)”, “+”, “=”, “/”, “\”, “|”, “?”, “‘”, “”"”, “{“, “}”, “[", "]“, “ª”, “º”, “:”
, “,”, “;”, “§”, “°”, “”)

‘LBound = para determinar o tamanho de um array
‘UBound = para um indicado tamanho de array

for intVer = LBound(Carac)to UBound(Carac)
if InStr(email,Carac(intVer)) > 0 then
ValidaEmail = False
exit function
end if
next
ValidaEmail = True
End Function
%>

‘Letras de a a z
‘Letras de A a Z
‘números de 0 a 9999999999
‘”Á”,”À”,”É”,”È”,”Í”,”Ì”,”Ó”,”Ò”,”Ú”,”Ù”,”á”,”à”,”é”,”è”,”í”,”ì”,”ó”,”ò”,”ú”,”ù”,”Ä”,””,”Ë”
,”Ê”,”Ï”,”Δ,”Ö”,”Ô”,”Ü”,”Û”,”ä”,”â”,”ë”,”ê”,”ï”,”î”,”ö”,”ô”,”ü”,”û”,”Ô,”å”,”Ñ”,”Å”,”Õ”,”Ç”,”ã”,”ç”,”ñ”,”Ý”
,”õ”,”ý”,”Ø”,”ÿ”,”ø”,”Þ”,”þ”,”ð”,”Æ”,”ß”,”æ”,”¼”,”½”,”¡”,”¾”,”£”,”©”,”¥”,”®”,”§”,”ª”,”¤”,”²”,”¦”,”³”,”«”
,”¹”,”¬”,”¯”,”",”µ”,”º”, “¶”,”·”,”¨”,”°”,”±”,”¸”,”»”,”¿”,”¢”,”÷”,”€”,”“”,”™”,”””,”‰”,”Œ”,”ƒ”,”‡”,”†”,”!”,
“#”, “$”, “%”, “&”, “*”, “(“, “)”, “+”, “=”, “/”, “\”, “|”, “?”, “‘”, “”"”, “{“, “}”, “[", "]“, “ª”, “º”, “:”
, “,”, “;”, “§”, “°”, “”)

Janelas PopUp

Janelas PopUp

Como personalizar:
status = (yes/no) define se haverá ou não uma barra de status
resizable = (yes/no) define se haverá ou não como mudar o tamanho da janela
scroolbars=(yes/no) haverá ou não barras de rolagem?
menubar=(yes/no) sem ou com a barra de menus?
width=largura da janela (em pixels)
heigt=altura da janela (tb em pixels)