Insert

[marcdes 0]

Não estou conseguindo inserir dados. o código é este:<%@ Language=VBScript%><%dim username, password, nome_usuario, cpf, rg, endereco, bairro, cidade, estado, fone_casa, fone_cel, cep, email, data_nascimento, sql, nivel, rsusername = Request.form("cpf")password = Request.form("rg")nome_candidato = Request.Form("nome_candidato")sobrenome = Request.Form("sobrenome")cpf = Request.form("cpf")rg = Request.Form("rg")endereco = Request.form("endereco")bairro = Request.form("bairro")cidade = Request.form("cidade")estado = request.form("estado")fone_casa = request.form("fone_casa")fone_cel = request.form("fone_cel")cep = request.form("cep")email = request.form("email")data_nascimento = request.form("data_nascimento")set cn = server.CreateObject ( "ADODB.Connection")cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados/projecao.mdb")sql= " INSERT INTO candidatos(username, password, cpf, rg, nome_candidato, sobrenome, endereco, bairro, cidade, estado, fone_casa, fone_cel, cep, email, data_nascimento, nivel) values('" & cpf & "','" & rg & "','" & cpf & "','" & rg & "','" & nome_candidato & "','" & sobrenome & "', '" & endereco & "', '" & bairro & "', '" & cidade & "', '" & estado & "', '" & fone_casa & "', '" & fone_cel & "', '" & cep & "', '" & email & "', ' " & data_nascimento & "',' 5 ')"set rs =cn.execute(sql) <---------------- erro aqui response.redirect("sucesso_cadastro.asp")%>....................................................................................................................................o erro é esse:Tipo de erro:Microsoft JET Database Engine (0x80040E14)Erro de sintaxe na instrução INSERT INTO./projecao/cadastro_candidato1.asp, line 27um abraço,Marcondes

[lordpens 0]

Faz assim e posta o resultado:

 

<%@ Language=VBScript%><%dim username, password, nome_usuario, cpf, rg, endereco, bairro, cidade, estado, fone_casa, fone_cel, cep, email, data_nascimento, sql, nivel, rsusername = Request.form("cpf")password = Request.form("rg")nome_candidato = Request.Form("nome_candidato")sobrenome = Request.Form("sobrenome")cpf = Request.form("cpf")rg = Request.Form("rg")endereco = Request.form("endereco")bairro = Request.form("bairro")cidade = Request.form("cidade")estado = request.form("estado")fone_casa = request.form("fone_casa")fone_cel = request.form("fone_cel")cep = request.form("cep")email = request.form("email")data_nascimento = request.form("data_nascimento")set cn = server.CreateObject ( "ADODB.Connection")cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados/projecao.mdb")sql= " INSERT INTO candidatos(username, password, cpf, rg, nome_candidato, sobrenome, endereco, bairro, cidade, estado, fone_casa, fone_cel, cep, email, data_nascimento, nivel) values('" & cpf & "','" & rg & "','" & cpf & "','" & rg & "','" & nome_candidato & "','" & sobrenome & "', '" & endereco & "', '" & bairro & "', '" & cidade & "', '" & estado & "', '" & fone_casa & "', '" & fone_cel & "', '" & cep & "', '" & email & "', ' " & data_nascimento & "',' 5 ')"response.write "SQL:<br>"response.write sql%>

[marcdes 0]

Ele está adicionando no banco todos os dados menos o username e o password

[marcdes 0]

mostrou todos na tela........mas quando colco para inserir no banco, não vai

[lordpens 0]

Se o user name for igual ao cpf e o o password for igual ao rg mesmo faz assim:

 

cpf = Request.form("cpf")rg = Request.Form("rg")username = cpfpassword = username

Senão faz assim:

username = Request.form("nome do campo do username que está no formulário")password = Request.form("nome do campo do password que está no formulário")cpf = Request.form("cpf")rg = Request.Form("rg")