Por Que Esta Dando Esse Erro Ao Cadastrar-me

[marcus Gemeos]

Olá pessoal,

Eu possuo um formulario de cadastro, e esse ao realizar o cadastro esta dando o seguite erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/loja/sendmail2.asp, line 79

Por que se está tudo correto!?

Precisso!

Obrigado!

Marcus

[Denis Bittencourt Muniz]

Você poderia postar o código e falar qual banco de dados você está usando?

Falow!

[marcus Gemeos]

Olá,

Banco de dados: ACCESS

<%

Option Explicit

%>

<!--#include file="conexao_dados.asp"-->

<%

'Relação dos produtos

Dim rs, rsCategoria, strSQL, sqlProd, rsProdutos, Conexao, rsLogo, rsVitrine_01, sqlLogo, sqlVitrine_01, rsVitrine_02, sqlVitrine_02, sqlColuna_esquerda, rsColuna_esquerda, rsColuna_esquerda2, sqlColuna_esquerda2, sqlColuna_esquerda3, rsColuna_esquerda3, sqlDestaque_Promocoes, rsDestaque_Promocoes, sqlDestaque_Promocoes2, rsDestaque_Promocoes2, sqlDestaque_Promocoes3, rsDestaque_Promocoes3, sqlTitulo_pagina, rsTitulo_pagina, sqlDestque_01, rsDestque_01, rsDestque_02, sqlDestque_02, sqlDestque_03, rsDestque_03, rsDestque_04, sqlDestque_04, rsDestque_05, sqlDestque_05, rsDestque_06, sqlDestque_06, rsMais_vendidos_01, sqlMais_vendidos_01, rsMais_vendidos_02, sqlMais_vendidos_02, rsMais_vendidos_03, sqlMais_vendidos_03, rsMais_vendidos_04, sqlMais_vendidos_04, rsMais_vendidos_05, sqlMais_vendidos_05, rsMais_vendidos_06, sqlMais_vendidos_06

Dim sqlTituloCentral, rsTituloCentral, sqlTituloCentral2, rsTituloCentral2, sqlTituloCentral3, rsTituloCentral3

Dim varCodigo, varNome, varCPF, varEND, varBairro, varCidade, varUf, varNacionalidade, varCep, varDdd, varTelefone, varEmail, varUsuario, varSenha

Dim rsProd, rsProd2, sqlProduto, sqlInsertProduto

varCodigo = Session("codigo")

varNome = Session("nome")

varCPF = Session("cpf")

varEND = Session("end")

varBairro = Session("bairro")

varCidade = Session("cidade")

varUf = Session("uf")

varNacionalidade = Session("nacionalidade")

varCep = Session("cep")

varDdd = Session("ddd")

varTelefone = Session("telefone")

varEmail = Session("email")

varUsuario = Session("usuario")

varSenha = Session("senha")

varCodigo = replace(varCodigo, "'", "")

varNome = replace(varNome, "'", "")

varCPF = replace(varCPF, "'", "")

varEND = replace(varEND, "'", "")

varBairro = replace(varBairro, "'", "")

varCidade = replace(varCidade, "'", "")

varUf = replace(varUf, "'", "")

varNacionalidade = replace(varNacionalidade, "'", "")

varCep = replace(varCep, "'", "")

varDdd = replace(varDdd, "'", "")

varTelefone = replace(varTelefone, "'", "")

varEmail = replace(varEmail, "'", "")

varUsuario = replace(varUsuario, "'", "")

varSenha = replace(varSenha, "'", "")

'string para exibir os produtos

sqlLogo = "SELECT * FROM Logo ORDER BY Logo"

sqlTitulo_pagina = "SELECT * FROM titulo_pagina ORDER BY titulo_pagina"

sqlProduto = "SELECT * FROM usuarios WHERE Nome ='" & varNome & "'"

sqlInsertProduto = "INSERT INTO usuarios (codigo,Nome,cpf,end,bairro,cidade,estado,nacionalidade,cep,ddd,telefone,email,usuario,senha) values (" & varCodigo & "," & varNome & "," & varCPF & "," & varEND & "," & varBairro & "," & varCidade & "," & varUf & "," & varNacionalidade & "," & varCep & "," & varDdd & "," & varTelefone & "," & varEmail & "," & varUsuario & "," & varSenha & ")"

'abre a conexao

Call abre_conexao

'executa a instrução SQL

Set rsLogo = Conexao.Execute(sqlLogo)

Set rsTitulo_pagina = Conexao.Execute(sqlTitulo_pagina)

Set rsProd = Conexao.Execute(sqlProduto)

Set rsProd2 = Conexao.Execute(sqlInsertProduto)

%>

Obrigado!

Precisso!

Marcus

[Denis Bittencourt Muniz]

Bom, veja o outro tópico que você postou, pois eu respondi ele.

Falows!