Postei os dois scripts aqui para que vcs possam entender melhor e me auxiliar na execução.
- Função de Validação de CNPJ
function ValidaCNPJ(cnpj)
Dim RecebeCNPJ, Numero(14), soma, resultado1, resultado2
RecebeCNPJ = cnpj
s=""
for x=1 to len(RecebeCNPJ)
ch=mid(RecebeCNPJ,x,1)
if asc(ch)>=48 and asc(ch)<=57 then
s=s & ch
end if
next
RecebeCNPJ = s
if len(RecebeCNPJ) <> 14 then
CnpjErro = 1
else
if RecebeCNPJ = "00000000000000" then
CnpjErro = 1
else
Numero(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) * 2
soma = soma -(11 * (int(soma / 11)))
if soma = 0 or soma = 1 then
resultado1 = 0
else
resultado1 = 11 - soma
end if
if resultado1 = Numero(13) then
soma = 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) * 2
soma = soma - (11 * (int(soma/11)))
if soma = 0 or soma = 1 then
resultado2 = 0
else
resultado2 = 11 - soma
end if
if resultado2 = Numero(14) then
CnpjErro = 0
else
CnpjErro = 1
end if
else
CnpjErro = 1
end if
end if
end if
end function
- Script de autenticação do Formulário
'Compara se as Senha são iguais
if Request.Form("senha") <> Request.Form("senha2") then
Response.Write("Senha não confirmada")
else
'Grava o q está no Formulário em uma variável
vbase=Request.Form("base")
vcnpj=Request.Form("cnpj")
vrazaosocial=Request.Form("razaosocial")
vendereco=Request.Form("endereco")
vnumero=Request.Form("numero")
vcomplemento=Request.Form("complemento")
vbairro=Request.Form("bairro")
vcidade=Request.Form("cidade")
vestado=Request.Form("estado")
vcep=Request.Form("cep")
vresponsavel=Request.Form("responsavel")
vemail=Request.Form("email")
vsenha=Request.Form("senha")
Dim conObj
Dim SQL
Set conObj = Server.CreateObject("ADODB.Connection")
conObj.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DBMAX/DBMAX.mdb") & ";"
SQL = ("INSERT INTO CADASTRO(BASE,CNPJ,RAZAOSOCIAL,ENDERECO,NUMERO,COMPLEMENTO,BAIRRO,CIDADE,ESTADO,CEP,RESPONSAVEL,EMAIL,SENHA)values('"&vbase&"','"&vcnpj&"','"&vrazaosocial&"','"&vendereco&"','"&vnumero&"','"&vcomplemento&"','"&vbairro&"','"&vcidade&"','"&vestado&"','"&vcep&"','"&vresponsavel&"','"&vemail&"','"&vsenha&"')")
conObj.execute(SQL)
Response.Redirect("../index.asp")
End If
Obrigado!