Naum Cadastra Nem Q A Vaca Tussa

[Guest A estressada..rs]

oi pessoal,,,eu keria entender porque este códiogo não funciona,,,acho q já tentei quase de tudo,,,mas toda hora é um tipo de erro,(acho q todos os q poderiam ter),,é um formulario de cadastro,,antes de cadastrar,,quero q faça um select para saber se o usuario já é cadastrado...agora o erro q ta acontecendo é este:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

/incluiCliente.asp, line 52

no access,,,o campo telefone,cpf,rg,cep,estão como numericos,,já mudei,na hora de inserir,,retirei os apóstrofos,,retornei a colocar achando q era isso, mas até agora nada...me ajudem,,,??

Este é o código::::::::::

<% Dim Obj,Str,Rs,codigo_cliente,nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha

codigo_cliente = Trim(Request.Form("codigo_cliente"))

nome = Trim(Request.Form("nome"))

endereco = Trim(Request.Form("endereco"))

cidade = Trim(Request.Form("cidade"))

cep = Trim(Request.Form("cep"))

UF = Trim(Request.Form("UF"))

telefone = Trim(Request.Form("telefone"))

bairro = Trim(Request.Form("bairro"))

est_civil = Trim(Request.Form("est_civil"))

sexo = Trim(Request.Form("sexo"))

RG = Trim(Request.Form("RG"))

org_exp = Trim(Request.Form("org_exp"))

CPF = Trim(Request.Form("CPF"))

email = Trim(Request.Form("email"))

login = Trim(Request.Form("login"))

senha = Trim(Request.Form("senha"))

Response.Write nome & "<br>"

Response.Write endereco & "<br>"

Response.Write cidade & "<br>"

Response.Write cep & "<br>"

Response.Write UF & "<br>"

Response.Write telefone & "<br>"

Response.Write bairro & "<br>"

Response.Write est_civil & "<br>"

Response.Write sexo & "<br>"

Response.Write RG & "<br>"

Response.Write org_exp & "<br>"

Response.Write CPF & "<br>"

Response.Write email & "<br>"

Response.Write login & "<br>"

Response.Write senha & "<br>"

Set Obj = Server.CreateObject("ADODB.Connection")

Obj.Open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ="&Server.MapPath("Banco_Site.mdb")

Str = "select * from cliente where email = '" &request.form("email") & "'"

Set Rs = Obj.execute(Str)

if not Rs.eof then

response.write ("usuario já existe")

Response.Redirect ("principal.asp")

else

Str = "insert into cliente(codigo_cliente,nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha)values('"&codigo_cliente&"','"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&CPF&"','"&email&"','"&login&"','"&senha&"')"

Rs=Obj.execute(Str)

Response.Redirect ("principal.asp")

Rs.close

Rs=nothing

End if

%>

[Ceh]

Olha, neim li o seu código todo. Mas faça como o tio Jack (conhece? rssss)... por partes, insira no códico de INSERT campo por campo e vai testando, assim você fica sabendo onde errou e é mais fácil identificar o erro saca?

Mais tarde eu olho melhor!

[ ]'s

[.Andreia.]

Olha testei aqui e funciona certinho. Esse erro tem tb como causa:

quando você especifica um tipo de dados diferente do que está no banco. Por exemplo, tratar como texto no codigo mas no banco é numerico.

Então, confira tudo...