Ir para conteúdo
Fórum Script Brasil

Himura

Membros
  • Total de itens

    92
  • Registro em

  • Última visita

Tudo que Himura postou

  1. adriano eu to vendo seu codigo... eu vo postando na medida que for vendo as coisas... 1º você indicou o local fisico do bd agrupe seu site numa pasta geral, que você só escreve isso../../bd/banco.mbd tipo isso você usa os comandos pra subir um nivel(pasta) acima.... fica no aguardo que já eu posto mais coisa!!!!!
  2. cyberalexx eu acabei de mostrar esse replace com chr(13) eu me enganei no negocio de htmlencode...
  3. Himura

    Update De Informações

    quando me passaram esse código eu também achei isso fantasma mas o cara disse isso: "esse select vai só posiciona a tabela(?) o que inclui é o métoo addnew do rs entendeu?" num sei se ajudo...faz assim eu vou tira o select e testa!!!beleza
  4. é o seguinte a minha página de inclusao no bd e essa: <%@ Language="VBScript" %> <!-- #include file="conexoes.asp" --> <% 'Criando variáveis Dim rs set rs=server.createobject("adodb.recordset") rs.cursortype = 2 rs.locktype = 2 rs.Open "SELECT top 1 * from noticias", con rs.addnew rs("titulo") = request.form("titulo") rs("descricao") = request.form("descricao") rs("conteudo") = request.form("noticia") rs.update rs.close 'redirecionando para página principal response.redirect "noticia_principal.asp" %> aparentemente tudo funciona corretamente porém num entra nada no bd?!?!?!?! Alguém pode me dizer o que há de errado..tudo bem que posso usar sql...eu até já fiz com sql mas eu queria ver esse codigo funcionando vocês me entendem né? desde já obrigado pela colaboração!
  5. bem faz assim me manda teu código no meu email: tiago_vage@hotmail.com que eu tento fazer alguma coisa nele pra vc..se você quiser claro se quiser passar via MSN também dá
  6. ve se isso te ajuda <% 'Criando variáveis Dim localbd, meubd 'Indicando local do Banco de dados localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("bd/bd.mdb") 'Setando conexao set meubd=server.createobject("adodb.connection") 'Abrindo conexao meubd.Open localbd 'Bom, criaremos agora, por questão de organização, 3 variáveis 'Essas variáveis serão para guardar os valores vindo do form dim cod_questao, nome, comentario 'Recuperaremos do formulário seus valores 'Guardando-os em suas respectivas variáveis cod_questao=request.form("cod_questao") nome=request.form("nome") comentario=request.form("comentario") 'Agora iremos executar o comando que fará a inserção do comentário 'Com o uso de 'INSERT INTO' iremos mostrar a tabela que iremos adicionar 'Os campos que serão preenchidos e seus devidos valores meubd.EXECUTE "INSERT INTO comentarios (cod_questao, nome, comentario, data) values ("& cod_questao &", '"& nome &"', '"& comentario &"', '"&day(now)&"/"&month(now)&"/"&year(now)&"')" 'Obs.: A data foi desmembrada para não haver diferença de padrões 'Logo após a inserção, redirecionaremos para a página de comentários 'Para que o usuário confira seu comentário adicionado response.redirect "comentarios.asp" 'Zerando e fechando a conexao meubd=nothing meubd.close %> tem isso aqui também <!-- #include file="conexoes.asp" --> <% DIM TABELA SET TABELA = con.EXECUTE ("SELECT * FROM coment") %> <HTML> <HEAD> <style type="text/css"> h1 {font: Arial, 25px; color: white;} body {background: #000066; font: Arial, 10px; color:#FFFFFF; text-align:left;} </style> </HEAD> <BODY> Todos os comentários: <br> <br> <% DO While not Tabela.EOF Response.Write "Nome:&nbsp;"&Tabela.Fields("Nome" ) & "<BR>" Response.Write "E-mail:&nbsp;"&Tabela.Fields("email") & "<BR>" if isnull(Tabela.Fields("comentarios")) then else Response.Write "Comentário:&nbsp;<br>"&replace(Tabela.Fields("comentarios"), chr(13), "<br>") &"<BR>" & "<BR>" end if Tabela.MoveNext Loop %> <hr> </BODY> </HTML> a primeira página inclui no bd, esta última mostra o banco de dados respeitando o caracter de quebra de linha ou seja não transforma o texo em cod html não eu me confundi cara foi mal... por via das dúvidas eu acabei de testar esse meu código e funcionou beleza
  7. eu acredito que você tenha um sistema em asp de adm... senão essa é uma forma grosseira de resolver o problema, eu acho que dá certo... você quer ver minha página de comentários que tem po htmlencode funcionando?
  8. Himura

    Sistema Para Comentar

    é isso mesmo qualquer outro q você achar vai ter a mesma base uma coisa ou outra só que muda
  9. Himura

    Problemas De Conexão Com Bd

    fii eu baixei esse código que você postou meu e ele simplesmente funciona muito bem rodou tranquilo é rápido as vezes na hora de extrair o zip, você fez errado, joga numa pasta só dele e acessa pelo iexplorer...sacou!
  10. Himura

    Problemas De Conexão Com Bd

    das vezes que vi esse erro eu tava com o path do bd errado, as vezes é um errinho bobo mas que causa esse problema.
  11. cara você está usando htmlencode na hora de inserir os dados no bd... por que dessa forma os dados entram no bd com tags html...aí na hora do browser exibir ele mostra tudo certinho respeitando a forma que você digitou... eu usei isto pra uma página de comentários, acho que isso vai te ajudar...
  12. Himura

    Bof E Eof

    aí vão os códigos conexoes.asp: <% option explicit %> <% dim con set con = server.createobject("adodb.connection") con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../dados/bd.mdb")&";" %> e anoticia.asp: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!-- #include file="conexoes.asp" --> <% Dim rs Set rs= server.createobject("adodb.recordset") set rs= con.execute("Select * From noticias Where titulo='"&Request("titulo")&"'") %> <html> <head> <style type="text/css"> h1 {font: Arial, 25px; color: white;} body {background: #000066; font: Arial, 10px; color:#FFFFFF; text-align:left;} a:link {color: white} a:visited {color: white} a:hover {color: red} </style> <title></title> </head> <body> <%=rs("conteudo")%> </body> <%con.close%> </html> tão aí...
  13. Himura

    Bof E Eof

    Olá pessoal tenho um problema numa página asp... é o seguinte eu tenho uma página anoticia.asp com um include direcionado para outra página conexoes.asp, nesta página de conexão o meu bd tá setado e aberto voltando para a página anoticia.asp, eu crio um recordset, faço um select, depois eu chamo um reponse.write para exibir o conteudo do campo conteudo, ou seja exibir o corpo da noticia... porém dá esse erro: Tipo de erro: ADODB.Field (0x80020009) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /nightwish/anoticia.asp alguém pode me ajudar????
  14. Himura

    Validar Formulario

    Sem contar que o que tá pronto no dw gera uns códigos lascados pra caramba, o melhor é o modo texto!!!!
  15. Himura

    Inserção De Dados

    agradeço a todos mas o meu problema já foi resolvido eu fiz um código diferente para inserir os dados e agora tá tudo certo!!!! Obrigado!
  16. Himura

    Conexao Access

    eu uso está tenta aí: dim con, meubd set con = server.createobject("adodb.connection") con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../dados/bd.mdb")&";"
  17. Himura

    Inserção De Dados

    deu certo!! valeu só tem um porém, agora tá inserindo coisa a mais. por exemplo eu insiro um registro novo, apareçem mais dois sem dado nenhum?!?! alguém sabe eliminar este problema
  18. Himura

    Inserção De Dados

    tenho uma página de inserção de dados e digito os valores todos nos campos tá tudo certo, só que na hora de gravar bd diz que um campo está com comprimento nulo?!!?!?!?! o campo é do tipo texto, e eu entrei com os dados corretamente.. o q pode ser?
  19. Himura

    Resposta Rápida

    agradeço a ajuda de vocês fantasma e bareta mas ainda dá o mesmo erro....
  20. Himura

    Sql E Variáveis

    já funciono valeu! pode fechar o tópico
  21. Himura

    Resposta Rápida

    tenho esse código: meubd.EXECUTE "INSERT INTO questoes (questao, data) values ("& questao &",'"&day(now)&"/"&month(now)&"/"&year(now)&"')" so que diz que falta uma ". aonde está faltando? já procurei e aparentemente tá tudo certo obrigado
  22. Himura

    Sql E Variáveis

    apareceu o mesmo erro!?!?!?!?!?!?!?!?!?!?
  23. Himura

    Sql E Variáveis

    esse foi o erro q apareceu Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /nightwish/adm/login.asp, line 10 e eu usei este código: rsLogin.Open "SELECT * FROM acesso where login='" & formlogin & "'", meubd tem que ser dessa forma a execução do sql você consegue achar o erro
  24. Himura

    Sql E Variáveis

    esse foi o erro q apareceu Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /nightwish/adm/login.asp, line 10 e eu usei este código: rsLogin.Open "SELECT * FROM acesso where login='" & formlogin & "'", meubd tem que ser dessa forma a execução do sql você consegue achar o erro
  25. Tipo de erro: ADODB.Recordset (0x800A0BB9) Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /nightwish/adm/login.asp, line 10 eu fiz como você disse mas apareceu esse erro aí de cima você sabe o porque do erro?
×
×
  • Criar Novo...