Valida CPF aterado

[lordstarlight 0]

Olá pessoal,

 

Gostaria que nesse código no lugar de "response.write=??????" fosse "erro_cpf=??????".

Já tentei de tudo (menos a solução correta q ainda não sei) e não funciona fazendo essa substituição.

Quado uso a variável "erro_cpf=??????" o código deixa de funcionar.

 

Alguém pode me ajudar?

 

Valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

 

function CalculaCPF()Dim RecebeCPF, Numero(11), soma, resultado1, resultado2RecebeCPF = Request("CampoNumero")'Retirar todos os caracteres que nao sejam 0-9s="" for x=1 to len(RecebeCPF)ch=mid(RecebeCPF,x,1)if asc(ch)>=48 and asc(ch)<=57 thens=s & chend ifnextRecebeCPF = sif len(RecebeCPF) <> 11 thenresponse.write("<h1>É obrigatório o CPF com 11 dígitos</h1>")elseif RecebeCPF = "00000000000" thenresponse.write("<h1>CPF Inválido</h1>")elseNumero(1) = Cint(Mid(RecebeCPF,1,1))Numero(2) = Cint(Mid(RecebeCPF,2,1))Numero(3) = Cint(Mid(RecebeCPF,3,1))Numero(4) = Cint(Mid(RecebeCPF,4,1))Numero(5) = Cint(Mid(RecebeCPF,5,1))Numero(6) = CInt(Mid(RecebeCPF,6,1))Numero(7) = Cint(Mid(RecebeCPF,7,1))Numero(8) = Cint(Mid(RecebeCPF,8,1))Numero(9) = Cint(Mid(RecebeCPF,9,1))Numero(10) = Cint(Mid(RecebeCPF,10,1))Numero(11) = Cint(Mid(RecebeCPF,11,1))soma = 10 * Numero(1) + 9 * Numero(2) + 8 * Numero(3) + 7 * Numero(4) + 6 * Numero(5) + 5 * Numero(6) + 4 * Numero(7) + 3 * Numero(8) + 2 * Numero(9)soma = soma -(11 * (int(soma / 11)))if soma = 0 or soma = 1 thenresultado1 = 0elseresultado1 = 11 - somaend ifif resultado1 = Numero(10) thensoma = Numero(1) * 11 + Numero(2) * 10 + Numero(3) * 9 + Numero(4) * 8 + Numero(5) * 7 + Numero(6) * 6 + Numero(7) * 5 + Numero(8) * 4 + Numero(9) * 3 + Numero(10) * 2soma = soma -(11 * (int(soma / 11)))if soma = 0 or soma = 1 thenresultado2 = 0elseresultado2 = 11 - somaend ifif resultado2 = Numero(11) thenresponse.write("<h1>CPF Válido</h1>") elseresponse.write("<h1>CPF Inválido</h1>")end ifelse response.write("<h1>CPF Inválido</h1>")end ifend ifend function

[amgnatureza 0]

você quer que ao invés de aparecer uma mensagem ele apenas salve um valor na variável erro_cpf?if resultado2 = Numero(11) then response.write("<h1>CPF Válido</h1>") erro_cpf = 1else response.write("<h1>CPF Inválido</h1>") erro_cpf = 2end if