' VBScript File
 Function RetFormatCPFCNPJ(formato, value)
    Dim Formatacao 
    Dim strNmrDocumento
    Dim Valor_Field 
    
    Valor_Field = value
     If formato = "CPF" Then      
		strNmrDocumento = Right("00000000000" & Replace(Replace(Valor_Field,".",""),"-",""),11)
		Formatacao = Mid(strNmrDocumento,1,3) & "." & Mid(strNmrDocumento,4,3) & "." & Mid(strNmrDocumento,7,3) & "-" & Mid(strNmrDocumento,10,2) 
     ElseIf formato = "CNPJ" Then 
		strNmrDocumento = Right("00000000000000" & Replace(Replace(Replace(Valor_Field,".",""),"-",""),"/",""),14)
		Formatacao = Mid(strNmrDocumento,1,2) & "." & Mid(strNmrDocumento,3,3) & "." & Mid(strNmrDocumento,6,3) & "/" & Mid(strNmrDocumento,9,4) & "-" & Mid(strNmrDocumento,13,2) 
     Else
		Formatacao = ""
     End IF

	RetFormatCPFCNPJ = Formatacao

  End Function

  Function RetFormatTelefone(value)
      Dim Num_Tel 
      Dim Tamanho
      
      Tamanho = Len(value)
      
      If Tamanho = 7 Then 
        Num_Tel = Mid(value,1,3) & "-" & Mid(value,4,4)
      Else
        Num_Tel = Mid(value,1,4) & "-" & Mid(value,5,4)
      End if 
      RetFormatTelefone(Num_Tel)
  End Function  
  
  Sub Consiste_Email(Field)
	Dim vRetorno
	vRetorno = True

	If Len(Trim(Field.value)) > 0 Then
		If Instr(2,Field.value,"@") = 0 Then 'nao tem arroba
			vRetorno = False
		Else
			vPosArroba = Instr(1,Field.value,"@")
			If Instr(vPosArroba+1,Field.value,"@") > 0 Then 'tem mais de uma arroba
				vRetorno = False
			Else
				If Instr(1,Field.value,".@") > 0 Or Instr(1,Field.value,"@.") > 0 Then 'tem ponto junto com arroba
					vRetorno = False
				Else
					If Instr(1,Field.value,"..") > 0 Then 'tem pontos juntos
						vRetorno = False
					Else
						If Instr(vPosArroba+2,Field.value,".") = 0 Then 'nao tem ponto apos arroba
							vRetorno = False
						Else
							If Left(Field.value,1) = "." Or Right(Field.value,1) = "." Then 'tem ponto no inicio/final
								vRetorno = False
							End If
						End If
					End If
				End If
			End If
		End If
	End If
	
	If vRetorno = False Then
		msgbox "E-mail Invalido!"
		field.focus
	End If
End Sub