Ir para conteúdo
Fórum Script Brasil
  • 0

Alguém Pode Me Ajudar


maktub

Pergunta

Bem tenho um código onde o operador seleciona um item e é computado em um banco de dados esses dois scripts abaixo são para zerar o campo na tabela de bd mas esta dando erro e eu não acho, segue os códigos abaixo:

perguntas.asp

<%
if session("brquizadmin") <> "logado" then
response.redirect "default.asp"
else
%>
<!--#include file="config.inc" -->
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Administração</title>
</head>

<body>
<p align="center"><img border="0" src="logo_admin.gif" width="406" height="110"></p>
<p align="center">
<%
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open strCon
sql = "SELECT * FROM enquete_respostas"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = 3
rs.CursorLocation = 3
rs.LockType = 3
rs.Open sql, conn
%>
<b><font size="2" color="#000080" face="Arial">Informações sobre a
tabulação Geral</font><br><br>
<div align="center">
  <center>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
 <tr>
   <td width="20%" valign="middle" align="center"><b><font face="Arial" color="#000080" size="2">Código</font></b></td>
   <td width="20%" valign="middle" align="center"><b><font face="Arial" color="#000080" size="2">Id Tabulação</font></b></td>
   <td width="20%" valign="middle" align="center"><b><font face="Arial" color="#000080" size="2">Nomenclatura</font></b></td>
   <td width="20%" valign="middle" align="center"><b><font face="Arial" color="#000080" size="2">Número de tabulação</font></b></td>
     <td width="20%" valign="middle" align="center"><b><font face="Arial" color="#000080" size="2">Zerar</font></b></td>
 </tr>
</table>
  </center>
</div>
<% While Not rs.eof %>
<div align="center">
  <center>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
 <tr>
   <td width="20%" valign="middle" align="center"><font face="Arial" size="1"><%=rs("ID_resposta")%></font></td>
   <td width="20%" valign="middle" align="center"><font face="Arial" size="1"><%=rs("ID_enquete")%></font></td>
   <td width="20%" valign="middle" align="center"><font face="Arial" size="1"><%=rs("respostas")%></font></td>
   <td width="20%" valign="middle" align="center"><font face="Arial" size="1"><%=rs("hits")%></font></td>
   <td width="20%" valign="middle" align="center"><a href="../apagar.asp?Resposta=<%=rs("ID_resposta")%>"><font size="1" face="Arial"><img border="0" src="delete_path.gif" width="21" height="23"></font></a></td>
 </tr>
</table>
  </center>
</div>
<%
rs.MoveNext
Wend
%>
<br><br>

</body>
</html>
<% end if %>
e apagar.asp
<!--#include file="conn/conexao.asp"-->
<% 
cBanco  = Server.MapPath("db/Enquete.mdb")
Set Conn = Server.CreateObject("adodb.connection")
strConn = "Provider = Microsoft.Jet.oledb.4.0; Data Source = "& cBanco &";"
Set Rs = Server.CreateObject("adodb.recordset")
Conn.Open(strConn)
ID_resposta = Request.QueryString("ID_resposta")
Set.Open "UpDate Enquete_respostas Set Hits ='0' Where ID_resposta ='"& ID_resposta &"'", Conn, 3,3 
%>

<br><p align="center">
<a href="admin/deleta.asp"><img border="0" src="voltar.gif" WIDTH="66" HEIGHT="19"></a>
<p align="center">
<br><br>
<a href="logout.asp"><img border="0" src="logout.gif" WIDTH="151" HEIGHT="29"></a></p>

me ajudem please

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

:rolleyes:

Qual é o erro que dá?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...