Josi_sd

oi...alguém pode me dizer como inserir foto,,imagem no site,ou onde encontro,....ainda não encontrei,, sem ser Ctrl+c e Crtl+v

pessoal se eu colocar Obj.execute(Str),,,,ocorre este tipo de erro Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Número de valores da consulta e campos de destino não coincidem. /incluiCliente.asp, line 53

coloquei o codigo de acordo com a sequencia logica q me passou,,,esta chamando as paginas de acordo com if ...else,,,mas não esta gravando no banco....o q esta faltando Set Obj = Server.CreateObject("ADODB.Connection") obj.Open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ="&Server.MapPath("Banco_Site.mdb") Str = "select * from cliente where CPF ='"&CPF&"' " set Rs = Obj.execute(Str) if Rs.eof then Str = "insert into cliente(nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha)values('"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&CPF&"''"&email&"','"&login&"','"&senha&"')" Session ("OBS")= "<B>Usuário cadastrado com sucesso</B>" Response.Redirect ("comprar.asp") else Session("OBS")= "<B>Usuário já existente ! Tente Novamente</B>" Response.Redirect ("principal.asp") Rs.close Rs=nothing End if

oi gente olha eu denovo,,rs.... oi,,pessoal...eu preciso de uma ajuda pra cadastrar um usuario,,, é o seguinte ,,,antes de efetuar o cadastro quero q faça uma consulta através do CPF pra saber se o usuario já existe,,,mas não estou conseguindo,,alguém pode me dizer o q tem de errado com este código....desde já agradeço Set Obj = Server.CreateObject("ADODB.Connection") obj.Open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ="&Server.MapPath("Banco_Site.mdb") StrConsulta = "select CPF from cliente where CPF <> '"&CPF&"' " set Rs = Obj.execute(StrConsulta) if (StrConsulta = "select CPF from cliente where CPF ='"&CPF&"' ") = true then Session("OBS")= "<B>Usuário já existente ! Tente Novamente</B>" Response.Redirect ("principal.asp") else Str = "insert into cliente(nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,CPF,email,login,senha)values('"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&CPF&"''"&email&"','"&login&"','"&senha&"')" Set sql = Obj.execute(Str) Session ("OBS")= "<B>Usuário cadastrado com sucesso</B>" Response.Redirect ("comprar.asp") Rs=nothing Obj.close End if

olá pessoal,,,estou com um problema,,,na pagina,,,o cadastro de usuarios esta sendo efetuado normalmente,mas se eu kiser cadastrar o mesmo usuario cadastra normalmente,utilizei um exemplo de função aki do site mesmo,mas não entendo,,porque não esta dando certo...... este é o codigo....... <%@ Language=JavaScript %><!--#Include File= "conexão.asp"--> <% Dim Str,Rs,nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,email,login,senha 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")) email = Trim(Request.Form("email")) login = Trim(Request.Form("login")) senha = Trim(Request.Form("senha")) Response.Write codigo_cliente & "<br>" 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 email & "<br>" Response.Write login & "<br>" Response.Write senha & "<br>" Str = "select nome from cliente where nome='"& nome &"'" set Rs= Obj.execute(Str) if Rs.eof = true then Str = "insert into cliente(nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,email,login,senha)values('"&nome&"','"&endereco&"','"&cidade&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&email&"','"&login&"','"&senha&"')" response.redirect "principal.asp"<BR> else response.write "nome já existe.." end if %>

<% Dim obj,Str,Rs,codigo_cliente,nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,email,login,senha codigo_cliente = Trim(Request.Form("codigo_cliente")) nome = Trim(Request.Form("nome")) endereco = Trim(Request.Form("endereco")) 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")) email = Trim(Request.Form("email")) login = Trim(Request.Form("login")) senha = Trim(Request.Form("senha")) Response.Write codigo_cliente & "<br>" Response.Write nome & "<br>" Response.Write endereco & "<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 email & "<br>" Response.Write login & "<br>" Response.Write senha & "<br>" Str = "insert into cliente(codigo_cliente,nome,endereco,cep,UF,telefone,bairro,est_cilvil,sexo,RG,org_exp,email,login,senha)values(codigo_cliente,'nome','endereco',cep,'UF',telefone,'bairro','est_civil','sexo',RG,'org_exp','email','login','senha')" set Obj = Server.CreateObject("ADODB.Connection") Obj.Open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ="&Server.MapPath("Banco_Site.mdb") set Rs = Obj.Execute(Str)<<<<<ESTA É A LINHA 39,,,Q TA OCORRENDO O PROBLEMAS>>>> set rsquery = nothing set conn = nothing %> tipo de erro Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 4. /inclui.asp, line 39 olá....ainda estou com problemas no meu cadastro,,,,esta ocorrendo este tipo de erro,,,o meu bando esta correto,,,já verifiquei as tabelas,,,,não sei + o q pode ser,,,,

poizé, não tem como não fugir disso... porque eu testei sua consulta aqui e funcionou CERTINHO... então veja se você não digitou tipo endereço (com ç) no seu BD.... erro de digitação é o mais comum ah,,,,sim entendo,valeu a dica,,esta ocorrendo outro tipo de erro,,,mas você sabe o q pode ser este erro: o codigo é este: <% Dim codigo_cliente,nome,endereco,cidade,cep,UF,telefone,bairro,est_civil,sexo,RG,org_exp,email,login,senha Dim campo, valor campo = "" valor = "" codigo_cliente = Trim(Request.Form("codigo_cliente")) nome = Trim(Request.Form("nome")) endereco = Trim(Request.Form("endereco")) 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")) email = Trim(Request.Form("email")) login = Trim(Request.Form("login")) senha = Trim(Request.Form("senha")) Response.Write codigo_cliente & "<br>" Response.Write nome & "<br>" Response.Write endereco & "<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 email & "<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 login = '"&Login&"' and senha = '"&senha&"' " Str = "insert into Cliente(codigo_cliente, nome, endereco, cep, UF, telefone, bairro, est_civil, sexo,RG, org_exp, email, login, senha)" & "values('"&codigo_cliente&"','"&nome&"','"&endereco&"','"&cep&"','"&UF&"','"&telefone&"','"&bairro&"','"&est_civil&"','"&sexo&"','"&RG&"','"&org_exp&"','"&email&"','"&login&"','"&senha&"')" Set Rs = Obj.execute(Str)<<<<<esta é a linha q esta ocasionando o problema>>>> %> 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. /inclui.asp, line 48

a pagina sera cadastro de usuarios,,,

to tentando criar um site em asp,,,e quero criar uma pagina de cadastro simples,,,sem mtas complicações,,,como faço... qntos formularios vou utilizar,,,o codigo fonte da pag de cadastro ficara na pagina de cadastro mesmo,???