Errinho na função

[leo_rsouza 0]

Bom dia ae pessoal....é o seguinte, desenvolvi uma função que verifica a validade do nome, ou seja, a pessoa tem que ter digitado pelo meno nome e um sobrenome com no minimo 2 caracteres

 

So que está dando erro... ele sempre retorna False...alguem pode me ajudar??? value ????

 

ASP

[*]<%

 

[*]Function verificaNome(strNome)

 

[*]

 

[*]Dim i

 

[*]Dim tamanhoNome

 

[*]Dim aposEspaco

 

[*]

 

[*]tamanhoNome = len(strNome)

 

[*]espaco = 0

 

[*]verificaNome = "False"

 

[*]

 

[*] if tamanhoNome < 3 Then Exit Function

 

[*]

 

[*] For i = 1 to tamanhoNome

 

[*] If espaco < 1 Then

 

[*] If mid(strNome,i,1) = " " Then 

 

[*] espaco = i + 1

 

[*] Exit For

 

[*] End If

 

[*] End If

 

[*] Next

 

[*]

 

[*]If espaco = 0 Then Exit Function

 

[*]aposEspaco = mid(strNome,espaco,tamanhoNome)

 

[*]If len(aposEspaco) > 1 Then

 

[*]  verifcaNome = "True"

 

[*]End If

 

[*]

 

[*]

 

[*]

 

[*]End Function

 

[*]

 

[*]

 

[*]Response.write("<form action='nome.asp?busca=1' method='POST'>")

 

[*]Response.write("<input type='text' name='cNome'>")

 

[*]Response.write("<input type='submit' name='cEnvia'>")

 

[*]

 

[*]If Request("busca") = 1 then

 

[*] varNome = Request.Form("cNome")

 

[*] if verificaNome(varNome) = "True" Then

 

[*] Response.Write ("Nome Ok")

 

[*] ElseiF verificaNome(varNome) = "False" then

 

[*] Response.Write ("Nome Incorreto")

 

[*] Else

 

[*] Response.Write ("Nada")

 

[*] End If

 

[*]End IF

 

[*]%>

[Salgado 4]

Vou fazer uma alteração em sua Function, espero que te atenda e você entenda as alterações:

ASP

1. Function verificaNome(strNome)
    
   
2. 
    
   
3. Dim i, Matriz_Nome, Minimo
    
   
4. 'Testando se a string é menor que o mínimo de caracteres permitidos
    
   
5. if Len(strNome) < 4 Then
    
   
6. VerificaNome = False
    
   
7. Exit Function
    
   
8. End If
    
   
9. ' Se não for, quebrando em uma matriz e varrendo os vetores da matriz para validar ou não os nomes
    
   
10. Matriz_Nome = Split(strNome," ")
     
    
11. 
     
    
12. For i = Lbound(Matriz_Nome) To Ubound(Matriz_Nome)
     
    
13. If i <> 0 Then
     
    
14. Minimo = 1
     
    
15. Else
     
    
16. Minimo = 2
     
    
17. End If
     
    
18. If Len(Matriz_Nome(i) < Minimo Then
     
    
19. VerificaNome = False
     
    
20. Exit Function
     
    
21. Else
     
    
22. VerificaNome = True
     
    
23. End If
     
    
24. Next
     
    
25. 
     
    
26. End Function