maktub
-
Total de itens
170 -
Registro em
-
Última visita
Tudo que maktub postou
-
Comando inválido !!
-
No apagar.asp da um erro na linha 9
-
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
-
Bleza galera valeu pela ajuda
-
Fala amizades, alguém tem uma lista de servidores gratuitos ?, eu uso o Domaindlx mas deu pau, se alguém tiver posta ai beleza. Valeu :D
-
Essa eu senti que você gostou hein.................... :lol: Este código não limpa o campo Pontos, mas sim atualiza o campo para zero (0). Deixa são jorge cuidado do meu timão, ele já esta bem ocupado. Há algum detalhe, simplezinho de tudo que esta acusando o erro. Veja se Rs.Close ou Conn.Close esta antes de ser executada a instrução SQL. Abraços!!! Eu inverti os campos, mas nada deu certo, bom vou te mandar o código no teu e-mail.
-
Cara .. teremos que pedir ajuda para o São Jorge viu ta foda, além da mensagem de "Amo o UrsoLouco" (que foi sacanagem rss) foi a unica coisa que funcionou, o código continua com o erro de não limpar o campo "Pontos" e da dando um erro agora assim: Amo o ursolouco! ADODB.Recordset error '800a0e78' Operação solicitada pelo aplicativo não permitida se o objeto estiver fechado. /new/send_zerar.asp, line 11 Véio da um olhada não decifrei o código
-
Então, o código ta certinho o problema é que nem direcionando nem zerando o campo pontos.
-
Mesma coisa hein cara não exibe nada nem erro.
-
Pois é nem eu acreditei coloquei os dados rodei a pagina e Bummm deu isso? que meleca isso ta queimando os neurônios até a ultima ponta.
-
Olha só não ei o que está errado o nome do meu banco de dados é "Enquete.mdb", que possui a tabela "usuarios" onde existe os campos: id, login, senha, nome, email e pontos, cara será que ta tudo certinho ??
-
Eita peste tem que ser na base do tapa mesmo por que agora deu como pagina não pode ser exibida
-
Ae galaera é o seguinte tenho um código que é responsavel para limpar um campo em minha tabela no formato numeros mas esta dando um erro que não consigo localizar esse é meu código: <!--#include file="conn/conexao.asp"--> <% set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("..db/enquete.mdb") var = request.querystring("pontos") Conn.Execute("UPDATE usuarios SET pontos = 0 WHERE login = "& Request.QueryString("login") &" ) response.redirect "deleta.asp" %> <br><p align="center"> <a href="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> Este é o erro: Microsoft VBScript compilation error '800a0409' Unterminated string constant /ajax/hudy/send_zerar.asp, line 9 Conn.Execute("UPDATE usuarios SET pontos = 0 WHERE login = "& Request.QueryString("login") &" ) -----------------------------------------------------------------------------------------------^ obrigado.
-
Na minha própria maquina, servido PWS.
-
Bacana meu velho funcionou como uma luva rss, parabéns se você me permite vou utiliza-lo rs abraços
-
Nossa eu fiz isso mas não deu certo. ;)
-
Já programo sim é que esta função eu não consigo fazer, pode me ajudar?
-
é um projeto para a escola, mas ;) fiquei sem entender como fazer isso..
-
Eu vi o tópico mas a programação dela não tem nada a ver com a minha, pode me ajudar neste caso?
-
Galera tenho um sisteminha de pergutas e respostas e gostaria de colocar em meu site, mas tem um poém meu sistema só aceita mostrar a ultima pergunta e suas respostas, como eu faço para colocar assim, tres perguntas com suas respostas lado a lado e mais tres perguntas e suas respostas embaixo tipo uma tabela com 3 colunas e duas linhas?, segue abaixo meu código: <% if session("adm") <> "logado" then response.redirect "default.asp" else %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <% '------------------------------------------------------------------------------------------------ ' Este ASP exibe a última pergunta adicionada ao banco de dados e de todas as suas respostas para ' se poder efetuar á votação das mesmas. '------------------------------------------------------------------------------------------------ %> <!--Inclusão da string de conexao ao banco de dados (ver comentário no ASP)--> <!--#include file="conn/conexao.asp"--> <HTML> <HEAD> <TITLE>Sistema de tabulação 1.0</TITLE> <META NAME="Author" CONTENT="XiriX Silva"> <META NAME="AuthorEmail" CONTENT="xirix@bol.com.br"> <TITLE>Sistema de tabulação 1.0</TITLE> <META NAME="Author" CONTENT="XiriX Silva"> <META NAME="AuthorEmail" CONTENT="xirix@bol.com.br"> </HEAD> <% ' Selecciono todas as perguntas por ordem decrescente de data sql="SELECT * FROM enquete_pergunta ORDER BY data DESC" set rs_enquete_pergunta=conexao.execute(sql) ' Selecciono todas as respostas da pergunta de data mais recente sql="SELECT * FROM enquete_respostas WHERE ID_enquete="&rs_enquete_pergunta(0)&" ORDER BY id_resposta " set rs_enquete_respostas=conexao.execute(sql) %> <% ' Selecciono todas as perguntas por ordem decrescente de data sql="SELECT * FROM enquete_pergunta ORDER BY data DESC" set rs_enquete_pergunta=conexao.execute(sql) ' Selecciono todas as respostas da pergunta de data mais recente sql="SELECT * FROM enquete_respostas WHERE ID_enquete="&rs_enquete_pergunta(0)&" ORDER BY id_resposta " set rs_enquete_respostas=conexao.execute(sql) %> <BODY BGCOLOR="#FFFFFF"> <div align="center"> <center> <table border="1" class=enquete bordercolor="#008080" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"> <% sql3 = "SELECT * FROM usuarios WHERE nome = '" & Session("username") & "'" %> <tr> <td class=nav align=left> <p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0"><b><font face="Arial" color="#000080" size="2"><%=Session("username")%></font></b><font face="Arial" size="2"><font face="Arial" size="2" color="#FF0000">,</font><b> <font color="#008080"> Seja bem vindo ao sistema de tabulação 1.0</font></b></font></p> <p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> </p> </td> </tr> <tr> <% ' Coluna que contem um link para poder ver os resultados desta enquete sem votar %> </tr> <tr> <td align="left" bordercolor="#008080"> <% ' Formulário que vai enviar o ID da resposta para adicionar mais um hit %> <form name="enquete" method="post" action="send_enquete.asp"> <font color="#000080" face="Arial" size="1"> <% ' Coluna que contem o texto da pergunta %> <%=rs_enquete_pergunta(1)%><br> <% ' Enquanto houver respostas para esta pergunta.... %> <%do while not rs_enquete_respostas.eof%> <% ' Cria um conjunto de radio buttons com o valor do ID da resposta e o texto da resposta %> <input selected type="radio" name="resposta" value="<%=rs_enquete_respostas(0)%>"><%=rs_enquete_respostas(2)%><br> <%rs_enquete_respostas.movenext%> <%loop%> </font> </form> </td> </tr> <tr> <% ' Coluna que contem o butão que efetua o envio do formulário para o ASP que adiciona hits ás respostas %> <td align="left"><input type="submit" name="Submit" value="computar" OnClick="document.enquete.submit()" class="butao"></td> </tr> </table> </center> </div> </BODY> </HTML> <%end if%> agradeço a ajuda