marcos_804
-
Total de itens
379 -
Registro em
-
Última visita
Tudo que marcos_804 postou
-
Galera estou desenvolvendo um sistema de de cadastro de alunos e outras coisas mais... chega uma hora que eu preciso dar um loop para inserri no banco de dados... mas gera um erro assim: mas na linha 233 encontra-se a parte que faz a atualização... ... rs.AddNew rs("Cod_Aluno") = Cod_Aluno rs("N_Contrato") = N_Contrato rs("V_Pagar") = V_FinalParcela rs("N_Parcela") = DParcelas rs("D_Vencimento") = D_Vencimento rs("Bloqueto") = Nbloqueto rs("Cod_Tipo") = "1" rs("Cod_Ocorrencia") = "1" ("Desc") = Desc rs("Obs") = Obs [B][color=#FF0000]rs.Update[/color][/B] --> ESTA É A LINHA 233 O DILAMA É: nenhum campo desta tabela tem índice... alguém sabe mesmo o que eu posso fazer? ------->> Desde já agradeço!
-
--> Olha só quando clica-se no check box que está de vermelhor, o que está de marrom some. --> mas fica um espção vago do id = "outrasParcelas"; quero que o espaço suma literalmente... Atualmente ele só está ficando invisível...
-
Galera que gostaria de fazer uma função para um id sumir quando uma pessoa clicasse num checkbox... --> isso eu fiz através da visibilidade... --> isso eu consegui, mas que queria que o espaço que ID estava fique vazio...
-
ESTOU aqui PARA AJUDAR... cara você poderá ver como este script funciona nes página: http://i.1asphost.com/teajudo/livro/ver_livro.asp?pagina=1 e aqui vem o código... é só você adaptar... <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Vendo Mensagem do site</title> </head> <body> <%if request.querystring("enviado") = "ok" then%> <div align="center"> <center> <table border="0" width="500" cellpadding="0"> <tr> <tudo width="100%" align="center" style="color:#FF0000"> A sua mensagem foi postada com sucesso, porém o administrador do site vai vê-la primeiro antes de ela ir para o ar! </tudo> </tr> </table> </center> </div> <%end if%> <% '-------------------------------------------------------------------------- 'Aqui vem todos os dados da paginacao # '-------------------------------------------------------------------------- TamanhoDaPagina = 2 pagina = request.querystring("pagina") if pagina = "" then pagina = CInt("1") else pagina = CInt(request.querystring("pagina")) end if '-------------------------------------------------------------------------- vendo = "1" Set rs = Server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb") SQL = "SELECT * FROM mensagem WHERE ver = '"& vendo &"' ORDER BY id DESC" rs.Open SQL, DSN, 3, 3 TotaldePaginas = CInt(rs.RecordCount/TamanhoDaPagina) rs.PageSize= TamanhoDaPagina if not rs.EOF then rs.AbsolutePage = pagina for x = 1 to TamanhoDaPagina if rs.EOF then exit for%> <div align="center"> <center> <table border="0" width="500" cellspacing="1" cellpadding="0"> <tr> <tudo width="116" valign="middle" align="right"><b>Nome:</b></tudo> <tudo width="368" valign="top" align="left"><%=rs("nome")%></tudo> </tr> <tr> <tudo width="116" valign="middle" align="right"><b>E-mail:</b></tudo> <tudo width="368" valign="top" align="left"><%=rs("email")%></tudo> </tr> <%if rs("site") = "0" or rs("site") = "" or rs("site") = "http://" then else%> <tr> <tudo width="116" valign="middle" align="right"><b>Site:</b></tudo> <tudo width="368" valign="top" align="left"><a href="http://<%=rs("site")%>" target="_blank"><%=rs("site")%></a></tudo> </tr> <%end if%> <tr> <tudo width="116" valign="top" align="right"><b>Mensagem:</b></tudo> <tudo width="368" valign="top" align="left"><%=rs("msg")%></tudo> </tr> <tr> <tudo width="484" valign="top" align="right" colspan="2"> <table border="0" width="100%" cellspacing="1" cellpadding="0"> <tr> <tudo width="25%" align="right"><b>Data</b>:</tudo> <tudo width="25%" align="left"><%=rs("data")%></tudo> <tudo width="25%" align="right"><b>Hora:</b></tudo> <tudo width="25%" align="left"><%=rs("hora")%></tudo> </tr> <tr> <tudo width="100%" align="right" colspan="4"><hr></tudo> </tr> </table> </tudo> </tr> </table> </center> </div> <%rs.MoveNext Next 'end if do absolute page end if%> <br> <div align="center"> <center> <table border="0" width="500" cellspacing="1" cellpadding="0"> <tr> <tudo width="100" valign="middle" align="right"> <%if pagina <> 1 then response.write "<a href=""ver_livro.asp?pagina="& pagina - 1 &""">Página Anterior</a>" end if%> </tudo> <tudo width="300" align="center"> <div id="pagg0"> <%for y = 1 to TotaldePaginas if pagina <> y then response.write " <a href=""ver_livro.asp?pagina=" & y & """>" & y & "</a>" else response.write " "& y &" " end if next%></div> </tudo> <tudo width="100" valign="middle" align="left"> <%if pagina < TotaldePaginas then response.write "<a href=""ver_livro.asp?pagina="& pagina + 1 &""">Próxima Página</a>" end if%></tudo> </tr> </table> </center> </div> </body> </html> Se você não entender poderá pedir ajuda... falou?
-
cara eu não posso dizer muito poir não sei qual o nome deste tipo de indexação de tabelas... Por favor para você entender veja a imagem que está no meu tópico ... ou melhot copie e cole o link no browser, pois a imagem não esta aparecendo aqui... Espero que me entendam... pois esta é uma necessidade minha constante
-
Cara para você pegar um valor de um link que seja clicado é fácil... Por exemplo na URL: index.asp?nome=Marcos Oliveira&dia=Este dia Você vai poder chamar o campo de "nome" assim... <%=request.querystring("nome")%> ou <%response.write request.querystring("nome")%> --> que neste caso vai escrever : Marocs Oliveira e o nome de "dia": <%=request.querystring("dia")%> ou <%response.write request.querystring("dia")%> --> que neste caso vai escrever : Este dia
-
Galera estou com um banco de dados de cep... mas o problema é que só tem o cep que a pessoa vai buscar na tabela de ruas... ... e as outras (cidade e bairro) estão indexadas junto a esta da rua... alguém sabe como eu poderia fazer a busca da rua e depois buscar das tabelas indexadas
-
galera não precisa mais.... já descobri qual erro é... era o tamanho do campo do banco que não estava compatível com o numero de caracteres inseridos... agora TODOS que lemos este tópico já sabemos disso...rs MODERADORES... podem fechar o tópico e valeu...
-
alguém poderia me dizer que erro é este: Microsoft OLE DB Provider for ODBC Drivers erro '80040e21' Operação OLE DB de várias etapas gerou erros. Verifique cada valor de status OLE DB. Nada foi executado. /testes_intranet/x5_versao_1.0/includes\inserir.asp, line 118 ... a coisa é que uma hora ele insere no banco de dados normalmente... ... noutra gera esta merda de erro... alguém poderia me iluminar e me dizer o que significa?
-
Olá pessoal, preciso saber urgente como solucionar o problema Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][Driver ODBC para Microsoft Access] Não é possível atualizar. O banco de dados ou o objeto é somente leitura. /testes_intranet/teste_update.asp, line 16 O que eu poderia fazer para que o iis aceitasse eu atualizar um banco de dados? Na verdade estou montando um sistema de intranet. Um amigo meu é o administrador da rede. Atualmente mudamos de servidor. // O codigo rodava certinho anteriormente, mas agora ele não consegue atualizar... // pior que meu amigo não conseguiu solucionar o problema. alguém saberia como eu posso fazer isso? Solucionar este maldito erro!
-
Pessoal estou precisando de saber como chamar um campo de formulario quando se chama um upload. para chamar um form normal é request.form(), mas como deve ser feito para chamar quando deve ser chamado por uma forma de upload.
-
Olá minha amiga. Uma das formas seria você enviar um cookie na hora que o seu cliente logar. Depois seria só você dar uma rotina daquelas if.. com o cookie e definir o que e quem pode ver, somente quando estao logados... Bem não sei se você entendeu... mas se não peça ajuda de novo...rs
-
Olá Brother, acho que tenho a solução para você... veja o código a seguir... Obs: Improprio = 1; legal = 2; bom = 3; gostando = 4; nada = 5; teste = 6<br><br>Faça o teste<br> <form action="?id=inserir" method="post"> URL: <input type="text" name="url"><br> Impróprio <input type="checkbox" name="classifica" value="1"><br> Legal <input type="checkbox" name="classifica" value="2"><br> Bom <input type="checkbox" name="classifica" value="3"><br> Gostando <input type="checkbox" name="classifica" value="4"><br> Nada <input type="checkbox" name="classifica" value="5"><br> Teste <input type="checkbox" name="classifica" value="6"><br> <input type="submit" value="Testar"> </form> <% id = request.QueryString("id") if id = "inserir" then url = request.Form("url") classifica = request.Form("classifica") for each i in request.Form("classifica") response.Write url & "<br>" & i & "<hr>" next end if %> Se você não entender muito, poderá ver este código em pleno funcinamento aqui no link: http://i.1asphost.com/teajudo/ArquivosFauldade/multiplas.asp Bem se isso ajudar tah ai... mas se tiver mais duvudas pergunta ai...
-
URGENTE Olá galera estou com uma maltida duvida. Presico que todos os cookies da minha sessao sejam apagados com o fechamento do browser! Na verdade eu consigo fazer a expiracao programada... aquela que você diz quanto tempo o cookie devera permanecer no pc do cliente... mas quero esta faixa de seguranca, pois seria mais seguro. Estou desenvolvendo um sistema e preciso que todos os cookies se apaguem, pois se não apagar outro usuario podera usar a senha e login do usuario anterior assim que for fechado o browser... alguém sabe? Desde já agradeco
-
não meu caro você não deve fazer isso SQL = "UPDATE teste SET WHERE id_jogo=" & id mas sim isso: SQL = "[b]SELECT * FROM[/b] teste WHERE id_jogo=" & id sera que agora funciona? rs? tenta ai....
-
Cara o que eu vi é que você dá um monte de "execute" mas não fecha a conexao... dai se ela ficar aberta não vai atualizar... faca desta forma que eu falei para vc SQL = "Puxa a conexao WHERE id=" & id rs("pontos") = numero da atualizacao rs.Update rs.Close Este tipo é mais facil de ser feita e da para fechar facilmente...rs
-
>> acho que voce não esta fechando a conexao! Cara que não entendi muito o seu codigo, mas acho que voce poderia fazer um sistema de atualizacao mais facil. faz assim oh: SQL = "Puxa a conexao WHERE id=" & id 'Campo que puxa o campo de pontos rs("pontos") = numero da atualizacao 'Aqui atualiza rs.Update 'Aqui fecha a conexao rs.Close Cara eu estou te dando esta dica por que há algum tempo eu tive este problema de não atualizacao. e eu testei este e logo deu certo. Se não funcionar acho que valeu a intencao!
-
Ai vai o godigo... as partes comentadas são as buscas que estao dando errado... <%Set rs = Server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("X5-2003.mdb") SQLbusca = "SELECT * FROM TB_Alunos ORDER BY aluno ASC" rs.Open SQLbusca, DSN, 3, 3 for x = 1 to 5 if rs.EOF then exit for response.Write rs("Cod_Aluno") & "<br>" response.Write rs("Cod_Titular") & "<br>" response.Write rs("Aluno") & "<br>" response.Write rs("CPF") & "<br>" response.Write rs("RG/IE") & "<br>" response.Write rs("O_Emissor") & "<br>" response.Write rs("Nascimento") & "<br>" response.Write rs("Sexo") & "<br>" response.Write rs("Fone_Resd") & "<br>" response.Write rs("Fone_com") & "<br>" response.Write rs("Fone_Cel") & "<br>" response.Write rs("Divulgacao") & "<br>" response.Write rs("Endereco") & "<br>" response.Write rs("Complemento") & "<br>" response.Write rs("Bairro") & "<br>" response.Write rs("Cidade") & "<br>" response.Write rs("UF") & "<br>" response.Write rs("Cep") & "<br>" response.Write rs("D_Contrato") & "<br>" response.Write rs("Pai") & "<br>" response.Write rs("Mae") & "<br>" response.Write rs("E_civil") & "<br>" response.Write rs("G_Estudo") & "<br>" response.Write rs("Cod_Funcionario") & "<br>" response.Write rs("Cod_Sede") & "<br>" response.Write rs("Cod_Profissao") & "<br>" response.Write rs("Cod_Fonte") & "<br>" 'response.Write rs("N_Contrato") & "<br>" 'response.Write rs("N_Parcela") & "<br>" 'response.Write rs("D_Vencimento") & "<br>" 'response.Write rs("Bloqueto") & "<br>" 'response.Write rs("Cod_Ocorrencia") & "<br>" 'response.Write rs("Desc") & "<br>" 'response.Write rs("V_Pagar") & "<br>" 'response.Write rs("D_Pagamento") & "<br>" 'response.Write rs("V_Pago") & "<br>" 'response.Write rs("V_Juros") & "<br>" 'response.Write rs("Obs") & "<br>" rs.MoveNext response.write "<hr>" Next %> mas acho que minha conexao esta correta!
-
Galera alguém sabe como eu posso fazer para poder selecionar dados de um subnivel de tabela? Eu estou chamando mas ele diz que o campo não existe! desde já. agradeço!
-
Galera já estou com o IIs instalado... alguém sabe como eu poso fazer para poder rodar as minhas paginas internamente? Galera tentei acessar as paginas que estao no local wwwroot mas não funciona.... Ou se alguém já quiser mesmo conferir o codigo para achar se vai dar algum erro pode ver ai... <% '**Definindo as variaveis para poder fazer com que a pessoa se logue ***** '*** Ele busca cookies para ver se pode ou não logar id = request.QueryString("id") logado = request.Cookies("logado") logadoNome = request.Cookies("logadoNome") if logado = "" OR logadoNome = "" then if id = "" then %> <form action="?id=logando" method="post"> Login: <input type="text" name="login"><br> Senha: <input type="password" name="senha"><br> <input type="submit" value="logar"><br> </form> <%elseif id = "logado" login = request.Form("login") senha = request.Form("senha") Set rs = Server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("bd.mdb") SQLlogin = "SELECT * FROM login WHERE login = '"& login &"' and senha = '"& senha&"'" rs.Open SQLlogin, DSN, 3, 3 if rs.RecordCount = "1" then response.Cookies("logado") = "Verdade" response.Cookies("logadoNome") = rs("nome") else response.Redirect "?" end if '-- Aqui eu finalizo os ifs de ID '---Caso os cookies não estejam vazios então else%> voce esta logado! <%end if%> alguém sabe se ele esta mesmo correto?
-
CARA AGORA EU ESTOU SEM TEMPO PARA PODER OLHAR SEU CODIGO... SE você QUIZER EU FIZ UM LIVRO DE VISITAS QUE CRIA UMA PAGINACAO... AI VAI O CODIGO ESTA TOTALMENTE CERTO SE você QUISER UTILIZAR PODE... SE você não ENTENDER ALGUMA CCOISA PODE ME PEDIR AJUDA ESTOU MESMO PRONTO PARA AJUDAR. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Vendo Mensagem do site</title> </head> <body> <%if request.querystring("enviado") = "ok" then%> <div align="center"> <center> <table border="0" width="500" cellpadding="0"> <tr> <td width="100%" align="center" style="color:#FF0000"> A sua mensagem foi postada com sucesso, porém o administrador do site vai vê-la primeiro antes de ela ir para o ar! </td> </tr> </table> </center> </div> <%end if%> <% '-------------------------------------------------------------------------- 'Aqui vem todos os dados da paginacao # '-------------------------------------------------------------------------- TamanhoDaPagina = 2 pagina = request.querystring("pagina") if pagina = "" then pagina = CInt("1") else pagina = CInt(request.querystring("pagina")) end if '-------------------------------------------------------------------------- vendo = "1" Set rs = Server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb") SQL = "SELECT * FROM mensagem WHERE ver = '"& vendo &"' ORDER BY id DESC" rs.Open SQL, DSN, 3, 3 TotaldePaginas = CInt(rs.RecordCount/TamanhoDaPagina) rs.PageSize= TamanhoDaPagina if not rs.EOF then rs.AbsolutePage = pagina for x = 1 to TamanhoDaPagina if rs.EOF then exit for%> <div align="center"> <center> <table border="0" width="500" cellspacing="1" cellpadding="0"> <tr> <td width="116" valign="middle" align="right"><b>Nome:</b></td> <td width="368" valign="top" align="left"><%=rs("nome")%></td> </tr> <tr> <td width="116" valign="middle" align="right"><b>E-mail:</b></td> <td width="368" valign="top" align="left"><%=rs("email")%></td> </tr> <%if rs("site") = "0" or rs("site") = "" or rs("site") = "http://" then else%> <tr> <td width="116" valign="middle" align="right"><b>Site:</b></td> <td width="368" valign="top" align="left"><a href="http://<%=rs("site")%>" target="_blank"><%=rs("site")%></a></td> </tr> <%end if%> <tr> <td width="116" valign="top" align="right"><b>Mensagem:</b></td> <td width="368" valign="top" align="left"><%=rs("msg")%></td> </tr> <tr> <td width="484" valign="top" align="right" colspan="2"> <table border="0" width="100%" cellspacing="1" cellpadding="0"> <tr> <td width="25%" align="right"><b>Data</b>:</td> <td width="25%" align="left"><%=rs("data")%></td> <td width="25%" align="right"><b>Hora:</b></td> <td width="25%" align="left"><%=rs("hora")%></td> </tr> <tr> <td width="100%" align="right" colspan="4"><hr></td> </tr> </table> </td> </tr> </table> </center> </div> <%rs.MoveNext Next 'end if do absolute page end if%> <br> <div align="center"> <center> <table border="0" width="500" cellspacing="1" cellpadding="0"> <tr> <td width="100" valign="middle" align="right"> <%if pagina <> 1 then response.write "<a href=""ver_livro.asp?pagina="& pagina - 1 &""">Página Anterior</a>" end if%> </td> <td width="300" align="center"> <div id="pagg0"> <%for y = 1 to TotaldePaginas if pagina <> y then response.write " <a href=""ver_livro.asp?pagina=" & y & """>" & y & "</a>" else response.write " "& y &" " end if next%></div> </td> <td width="100" valign="middle" align="left"> <%if pagina < TotaldePaginas then response.write "<a href=""ver_livro.asp?pagina="& pagina + 1 &""">Próxima Página</a>" end if%></td> </tr> </table> </center> </div> </body> </html> VEJA QUE REALMENTE ESTÁ FUNCIONANDO NO LINK: http://i.1asphost.com/teajudo/livro/ver_livro.asp
-
Era mesmo o Imasters.... Obrigadao galera... Por isso que eu ADORO este forum... pessoas rapidas e prontas para tirarem duvidas...
-
Galera ah pouco tempo eu entrei num site que era indicado aqui pelo "script", mas deixei de entrar nele e agora me esqueci o endereco... Sera que alguém sabe que site é este? é algo como ..."Master" Desde já agradeco
-
só aproveitando a oportunidade... Acho que tem uma maneira mais facil de atualizar o banco de dados... Facam assim.... SQL = "SELECT¨* FROM tabela WHERE id = " request.----- rs.Open SQL, DSN, 3,3 rs("campo") = "novo valor do campo" rs.Update e assim atualiza... beleza???
-
Se você quiser eu fiz um contador de acessos... se você quiser eu posso te dar de graca...rs