verificar se introduzio um nome

[razs 0]

Boas, gostava de saber a melhor força de verificar se o utilizador intruduzio um nome real, pensei em fazer uma contagem de caracteres e de palavras, o que achao?

 

Obrigado

fiz assim:

Dim count, letras, strSearchFor
                            count = Len(request.form("nome_contrl_atend")) - Len(Replace(request.form("nome_contrl_atend")," ",""))
                            letras = Len(request.form("nome_contrl_atend"))
                            

                            strSearchFor = 0        
                            do while strSearchFor < 10
                                                    
                                If InStr(1, request.form("nome_contrl_atend"), strSearchFor) > 0 then
                                  response.write "SIMMMMM"
                                Else
                                   response.write "Naooooo"
                                End If
                                
                            strSearchFor = strSearchFor + 1
                            loop   
							

Tem alguma ideia melhor?

Como faço para ele verificar tambem se existem caracteres especiais tipo @#$%, obrigado

ok, tentei assim com este verificador mas ele com isto nao faz nada, nem da erro, simplesmente ignora. alguma ideia?

	dim invalidcaract, item, j
						invalidcaract = array ("1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "&", "'", "(", ")", "/", "\", ":", ";", "<", ">", "=", "[", "]",  "@", "!", "?", "«", "»", "£" , "€" , "*", "-", "+","º", "ª", "_", ".", ";") 

						for each item in request.form("nome_contrl_atend")
						for j = lbound(invalidcaract) to ubound(invalidcaract) 

							if instr(lcase(Request.QueryString(item)), lcase(invalidcaract(j))) > 0 then 
								response.Write "ja foste"
							end if

						next
						next
								

[razs 0]

pus a funcionar assim

invalidcaract = "1,2,3,4,5,6,7,8,9,0,&,',(,),/,\,:,;,<,>,=,[,],@,!,?,«,»,£,€,*,+,_,.,;"

My_Array=Split(invalidcaract, ",")

For Each item In My_Array

If InStr(1, request.form("nome_contrl_atend"), item) > 0 then
invalido="sim"
End If

next