Enquete

[[ GuTo ]]

Q P*****!!!

Pelo q eu vejo está tudo ok, mas na hora de inserir os dados diz q tem erro.

os campos são:

id_membro -> numero

id_enquete -> numero

id_resposta -> numero

data -> data/hora

<%

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.Recordset")

db.open "Provider=Microsoft.Jet.OLEDB.4.0;data source="& Server.MapPath("..\db\geral.mdb")

dim id_membro_logado, data, id_enquete, id_resposta

id_membro_logado = Cint(session("id"))

data = now

id_enquete = Cint(request.form("id_enquete"))

id_resposta = Cint(request.form("resposta"))

sql = "SELECT * FROM enquetes_respostas WHERE id="&id_resposta

set rs = db.execute(sql)

sql = "INSERT INTO enquetes_votos (id_enquete, id_membro, id_resposta, data) "

sql = sql & "VALUES ("&id_enquete&","&id_membro_logado&","&id_resposta&",#"&data&"#)"

db.execute(sql)

response.redirect "resultados.asp

%>

As alterações solicitadas para a tabela não foram satisfatórias já que criariam valores duplicados no índice, chave primária ou relação. Altere os dados no campo ou campos que contêm os dados duplicados, remova o índice ou redefina o índice para possibilitar entradas duplicadas e tente novamente.

enquete/send_enquete.asp, line 18

[Guest Gregório]

Olá,

Tente assim que deverá dar certo:

sql = "INSERT INTO enquetes_votos (id_enquete, id_membro, id_resposta, data) "
sql = sql & "VALUES('"& id_enquete &"','"& id_membro_logado &"','"& id_resposta &"','"& data &"')"
db.execute(sql)

[]'s

Gregório

icq: 122069074

[Reginaldo ASP]

No seu BD você tem uma chave primaria que não aceita valores duplicados. Se você inserir duas vezes o mesmo número nesse campo, ele não vai aceitar.

Dá uma olhada na estrutura da sua tabela, e deixa o campo 'indexado' aceitando ou não duplicação.