Meu problema está na parte de liberar a enquete, estou utilizando 2 radiobuttons um com o valor -1 e outro com value 0 então quando clicar em algum desses caras ele faz o update no banco mas não dá certo.
ERRO: Tipo de erro:
Microsoft JET Database Engine (0x80040E14)
Erro de sintaxe (operador faltando) na expressão de consulta 'idenquete='.
/projeto_asp/enquete_dinamica/adm/enquete_liberar.asp, line 18
enquete.asp
<!--#include file="../connections/conexao.asp"-->
<%
response.Expires = 0
If session("nivel_acesso") = "" Then 'se não for gerente
Response.redirect "restrito.asp"
Response.End
End If
%>
<%
'faz consulta
Set RS = Server.CreateObject("ADODB.Recordset")
Consulta = "Select * From enquete"
RS.Open Consulta, Conexao %>
<%
'deleta
var = request.form("delete_conteudo")
if var <> "" then
conexao.execute "delete from enquete where idenquete in (" & var & ")"
response.Redirect("enquete.asp")
end if
%>
<script>
function cadastro(){
window.open("enquete_insert.asp","enquete","width=620, height=434, menubar=no, top=0, left=0");{
}
}
</script>
<html>
<head>
<title>Administração</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style1 {
font-size: 9px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
color: #000000;
}
.style2 {
font-size: 9px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}
.style3 {font-size: 10px}
.style5 {font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; }
.style6 {font-size: 14px}
.style7 {font-size: 14px; font-family: Verdana, Arial, Helvetica, sans-serif; }
.style9 {font-size: 14px; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }
.style10 {
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%" valign="top"><!--#include file="inc_menu.asp"--></td>
<td width="79%" valign="top"><form action="enquete_liberar.asp" method="post" name="conteudo" id="conteudo">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td colspan="3"><span class="style9"> Enquete<font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></span></td>
</tr>
<tr>
<td width="21%"><font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></td>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="3"><input name="inserir" type="button" id="inserir" onClick="cadastro()" value="cadastrar nova">
<font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></td>
</tr>
<tr>
<td> </td>
<td colspan="2"></td>
</tr>
<tr>
<td class="style10">Deleta</td>
<td width="24%"><span class="style10">Liberar Enquete </span></td>
<td width="55%" class="style10">Chamada</td>
</tr>
<% while not RS.EOF
xx = xx + 1
cont = cont + 1
If cont mod 2 <> 0 Then
cor = "bgcolor='#F0F0F0'"
Else
cor = "bgcolor='#FFFFFF'"
End If
%>
<tr <%=cor%>>
<td><input type="checkbox" name="delete_conteudo" value="<%=RS("IDEnquete")%>"></td>
<td><font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> Sim
<input name="liberar<%=cont%>" type="radio" <%if rs("liberado") = -1 then response.Write("checked")%> value="-1">
Não
<input name="liberar<%=cont%>" type="radio" id="liberar" value="0" <%if rs("liberado") = 0 then response.Write("checked")%>>
<font color="#333333" face="Arial, Helvetica, sans-serif" size="2">
<input name="id<%=cont%>" type="hidden" id="id" value="<%=RS("idenquete")%>">
</font></font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="java script:" style="cursor:hand" onClick="window.open('enquete_update.asp?idenquete=<%=RS("IDEnquete")%>','','top=5,left=5,width=620, height=434')"><%=RS("Chamada")%></a></font></td>
</tr>
<% RS.MoveNext
Wend %>
<tr>
<td><input type="submit" name="deleta" value="deleta" onClick="java script:conteudo.action='enquete.asp';conteudo.submit();"></td>
<td colspan="2"><font color="#333333" face="Arial, Helvetica, sans-serif" size="2"><span class="style9"><font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font></span> </font>
<input name="atualizar" type="submit" id="atualizar" value="atualizar">
</td>
<font color="#333333" face="Arial, Helvetica, sans-serif" size="2"> </font> </tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<% RS.close
set RS = nothing
conexao.close
set conexao = nothing %>
ENQUETE_LIBERAR.ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../connections/conexao.asp"-->
<%
response.Expires = 0
If session("nivel_acesso") = "" Then 'se não for gerente
Response.redirect "restrito.asp"
Response.End
End If
%>
<%
Dim id,liberar
liberar = replace(request.form("liberar"), "'", "''")
id = replace(request.form("id"), "'", "''")
Set RS = Server.CreateObject("ADODB.Recordset")
Consulta = "Select * From enquete where idenquete="&id&""
RS.Open Consulta, Conexao
conexao.execute "UPDATE DISTINCTROW enquete SET liberado = '" & liberar & "' WHERE idenquete = " & (id) & ""
'response.write "update enquete set liberado = '"&liberar&"' where idenquete = "&id&""
' response.Redirect("enquete.asp")
%>
<%
rs.close
set rs = nothing
conexao.close
set conexao = nothing
%>
Edição feita por: fdebortoli, 08/06/2004, 12:20.