função de validar cnpj em asp

[rafa-martin 2]

pessoal peguei um código na net em asp que valida um cnpj:<%function CalculaCNPJ(a)Dim RecebeCNPJ, Numero(14), soma, resultado1, resultado2RecebeCNPJ = as="" for x=1 to len(RecebeCNPJ)ch=mid(RecebeCNPJ,x,1)if asc(ch)>=48 and asc(ch)<=57 thens=s & chend ifnextRecebeCNPJ = sif len(RecebeCNPJ) <> 14 thenresponse.write("<h1>É obrigatório o CNPJ com 14 dígitos</h1>")elseif RecebeCNPJ = "00000000000000" thenresponse.write("<h1>CNPJ Inválido</h1>")elseNumero(1) = Cint(Mid(RecebeCNPJ,1,1))Numero(2) = Cint(Mid(RecebeCNPJ,2,1))Numero(3) = Cint(Mid(RecebeCNPJ,3,1))Numero(4) = Cint(Mid(RecebeCNPJ,4,1))Numero(5) = Cint(Mid(RecebeCNPJ,5,1))Numero(6) = CInt(Mid(RecebeCNPJ,6,1))Numero(7) = Cint(Mid(RecebeCNPJ,7,1))Numero(8) = Cint(Mid(RecebeCNPJ,8,1))Numero(9) = Cint(Mid(RecebeCNPJ,9,1))Numero(10) = Cint(Mid(RecebeCNPJ,10,1))Numero(11) = Cint(Mid(RecebeCNPJ,11,1))Numero(12) = Cint(Mid(RecebeCNPJ,12,1))Numero(13) = Cint(Mid(RecebeCNPJ,13,1))Numero(14) = Cint(Mid(RecebeCNPJ,14,1))soma = Numero(1) * 5 + Numero(2) * 4 + Numero(3) * 3 + Numero(4) * 2 + Numero(5) * 9 + Numero(6) * 8 + Numero(7) * 7 + Numero(8) * 6 + Numero(9) * 5 + Numero(10) * 4 + Numero(11) * 3 + Numero(12) * 2soma = soma -(11 * (int(soma / 11)))if soma = 0 or soma = 1 thenresultado1 = 0elseresultado1 = 11 - somaend ifif resultado1 = Numero(13) thensoma = Numero(1) * 6 + Numero(2) * 5 + Numero(3) * 4 + Numero(4) * 3 + Numero(5) * 2 + Numero(6) * 9 + Numero(7) * 8 + Numero(8) * 7 + Numero(9) * 6 + Numero(10) * 5 + Numero(11) * 4 + Numero(12) * 3 + Numero(13) * 2soma = soma - (11 * (int(soma/11)))if soma = 0 or soma = 1 thenresultado2 = 0elseresultado2 = 11 - somaend ifif resultado2 = Numero(14) thenresponse.write("<h1>CNPJ válido</h1>")elseresponse.write("<h1>CNPJ inválido</h1>")end ifelseresponse.write("<h1>CNPJ inválido</h1>")end ifend ifend function%>e estou chamando essa função no campo do cnpj:<input CalculaCNPJ(a) maxlength="15" id="cnpj_farmacia" style="WIDTH: 118px; HEIGHT: 22px" type="text" size="15" name="cnpj_farmacia" /></td>aí digito um cnpj com vários números, mais de 14. quando clico em cadastrar a farmácia é cadastrada. Ou seja, a função não está verificando se é valido ou não como deveria.alguém pode me ajudar?

[Mário Monteiro 179]

lá no fim... por aquiif resultado2 = Numero(14) thenresponse.write("<h1>CNPJ válido</h1>")elseresponse.write("<h1>CNPJ inválido</h1>")end ifelseresponse.write("<h1>CNPJ inválido</h1>")end ifvocê deve parar a prosseguimento da page ou então marcar que não deve inserir caso seja invalido...pelo menos ela funciona??

[rafa-martin 2]

não funciona.

[Mário Monteiro 179]

então é melhor procurar outro ou montar sua funçaõ...aqui no imasters tem um artigo que ensina a fazer isso...