Estou Precisando De Algumas Funções...

[Super_Zica_Man]

-Função que verifica se CPF ou CNPJ existem...

-Função que verifica cartão de crédito existe e o numero de segurança também...

-Função carrinho de compras (com todas partes .asp de preferencia)...

-Função que por exemplo quando a pessoa se cadastra manda um e-mail com um codigo de validação de cadastro.(com todas as partes .asp de preferencia)

Por enquanto é isso e pessoal vlw pela ajuda que estão me dando...

[bareta]

http://www.google.com.br

[Super_Zica_Man]

cara a função de cnpj/cpf tava procurando no google mas so acho pra php...

eu so queria q se alguém já tivesse prontas e pudesse passar....

[kuroi]

tenho as duas em Visual Basic. a sintaxe é quase a mesma, é so adaptar:

Public Function Valida_CPF(ByVal strCPF As String) As Boolean
    Dim intConta As Integer, intSoma As Integer, intResto As Integer, intContador As Integer
    Valida_CPF = False: strCPF = Trim(strCPF)
    If Len(strCPF) <> 11 Then
        Exit Function
    End If
    For intContador = 11 To 12
        intSoma = 0
        For intConta = 1 To intContador - 2
            intSoma = intSoma + Val(Mid(strCPF, intConta, 1)) * (intContador - intConta)
        Next
        intResto = 11 - (intSoma - (Int(intSoma / 11) * 11))
        If intResto = 10 Or intResto = 11 Then intResto = 0
        If intResto <> Val(Mid(strCPF, intContador - 1, 1)) Then
            Exit Function
        End If
    Next
    Valida_CPF = True
End Function

Public Function Valida_CNPJ(ByVal strCNPJ As String) As Boolean
    Dim dblA, dblJ, dblDigito1, dblDigito2 As Double
    Dim intCont As Integer
    
    Valida_CNPJ = False
    If Len(strCNPJ) <> 14 Then
        Valida_CNPJ = False
        Exit Function
    End If
    dblA = 0
    intCont = 0
    dblDigito1 = 0
    dblDigito2 = 0
    dblJ = 5
    For intCont = 1 To 12 Step 1
        dblA = dblA + (Val(Mid(strCNPJ, intCont, 1)) * dblJ)
        dblJ = Conversion.CDbl(IIf(dblJ > 2, dblJ - 1, 9))
    Next intCont
    dblA = dblA Mod 11
    dblDigito1 = Conversion.CDbl(IIf(dblA > 1, 11 - dblA, 0))
    dblA = 0
    intCont = 0
    dblJ = 6
    For intCont = 1 To 13 Step 1
        dblA = dblA + (Val(Mid(strCNPJ, intCont, 1)) * dblJ)
        dblJ = Conversion.CDbl(IIf(dblJ > 2, dblJ - 1, 9))
    Next intCont
    dblA = dblA Mod 11
    dblDigito2 = Conversion.CDbl(IIf(dblA > 1, 11 - dblA, 0))
    If (dblDigito1 = Val(Mid(strCNPJ, 13, 1)) And dblDigito2 = Val(Mid(strCNPJ, 14, 1))) Then
        Valida_CNPJ = True
    Else
        Valida_CNPJ = False
    End If
End Function

[Super_Zica_Man]

como assim adaptar?

[kuroi]

cara, asp usa linguagem vbscript, quase a mesma coisa q o visual basic. apenas adapte a sintaxe do visual basic para funcionar em asp. você so vai ter q trocar a declaracao das funcoes q não são nem public nem private e variaveis q são sempre variant, portanto não tem "as".

fora isso você talvez tenha q mudar algumas funcoes q podem ser diferentes em asp. o negocio é ir testando pra ver se funciona.

[Super_Zica_Man]

blza

vlw ai...

[.Andreia.]

Validação de CNPJ e CPF

Validação de Cartão de Crédito 1

Validação de Cartão de Crédito 2

by Google

[Super_Zica_Man]

TY :D

andreia você é D+ sempre me ajudando !!!!

essas funções posso em qualquer lugar do formulario ou antes do input do cartão por exemplo ????

que nome eu posso usar pra procurar no google a função que quando o cara cria a conta manda um codigo de validação pro e-mail e so cria a conta se validar o e-mail?