Ir para conteúdo
Fórum Script Brasil

zando

Membros
  • Total de itens

    59
  • Registro em

  • Última visita

Tudo que zando postou

  1. Pessoal, Estou tendo problemas com os acentos das palavras. Mas achei meio estranho por conta do seguinte aspecto: estou usando o sistema de Atendimento Online PHPLive e a aplicação paralelamente com o site está mostrando os caracteres corretamente. O problema está ocorrendo somente da janela de conversa e para visualização do cliente.. o atendente vê o caracteres normalmente... eu achei isso muito estranho, mas testei no IE e também está acontecendo.. Alguém pode ter alguma idéia do que está acontecendo? Obs.: acredito que seja algo do tipo -> configuração do charset Desde já agradeço.
  2. Pois é... Eu tive que fazer o seguinte: if(eval("document.F1.link" + l + ".value") == ""){ comandos... } Agora funcionou.. valeu..
  3. Prezados, Como faço para concatenar os dados do form. Tipo = document.F1.tit_not + l.value == "" tit_not é um campo dinamico.. Como fazer? function veri(){ for(l=0;l<<?=$_GET['links']?>;l++){ f = document.F1.tit_not; alert(f + l.value);//Como concatenar isso? if(document.F1.tit_not+l.value == ""){ alert('Preencha o campo título.'); alert(l); //return false; } } }
  4. zando

    Ajuda..

    Prezados, Gostaria de saber como funciona esta linha que escrevi abaixo. $cod_plano_usuario = mysql_result($obj_consulta, 0, $CONST_cod_plano_usuario); Não sei o porque de usar isto assim.. Valeu e t+.
  5. zando

    Configurar

    Prezados, Gostaria de configurar no Dreamwaver de modo que quando o cursor fique em uma linha qualquer, essa mesma fique com um traço em cima e outro em baixo. Esta opção existe no HomeSite, mas no Dream não estou conseguindo configurar. Segue exemplo: <? $file = "lc-pre-123.in"; $fd = fopen($file, "r"); $linha = file($file); $tam = sizeof($linha); for($l=1;$l<$tam;$l++){ echo $linha[$l]."<br>"; $conteudo = $linha[$l]; $arquivo = "teste.txt"; touch($arquivo); $abrir = fopen($arquivo, "a"); if (!fwrite($abrir, $conteudo)){ $msg = "Correto!!!"; exit; fclose($arquivo); } } _____________________________________________ fclose($fd); _____________________________________________ ?> É um pouco parecido com o que eu fiz acima... Desde já agradeço a Ajuda...
  6. Cara, estou usando o ASP. A página que deverá processar é a nova (popup). Tem como mandar os dados pra ela?
  7. zando

    Pop-up

    Olá Galera, Alguém sabe responder a dúvida que está neste tópico. Estou precisando fazer algo parecido... Alguém pode me ajudar? Desde já agradeço...
  8. Gostaria de fazer um form para cadastramento de internautas no meu site. Funcionaria assim: o form estaria em uma página de e assim que o usuário clicar no botão enviar, abrisse uma janela menor, com as propriedades alteradas... com a confirmação.. como faço isso? Alguém pode me ajuda?
  9. zando

    Pedido De Ajuda

    Acho que o include executa indepedente da condição.... porque? Posta o código que fez na sua galeria de fotos.. tem como? Não tem outro jeito não...
  10. zando

    Pedido De Ajuda

    Tinha esquecido de logar... mas no exemplo que você escreveu tá dando tudo certo? No meu, ele executa os includes independente da condição? O que tem de errado? Aguardo respostas...
  11. zando

    Pedido De Ajuda

    Olá Galera, Estou tendo dificuldade em fazer o seguinte: Quero fazer uma página incial que será separada por sessoes, ou seja, categorias. Eu quero que quando estiver (www.meusite.net/default.asp?sessao=inicial) abra a página inicial e quando estiver (www.meusite.net/default.asp?sessao=downloads) abra a página para Downlods.. tem como fazer? Olha só o que eu estava tentando fazer.. to indo pelo caminho certo? <% dim sessao sessao = request.querystring("sessao") if sessao = "inicial" then %> <!--#include file="inicial.asp" --> <% else sessao = "clientes" %> <!--#include file="includ_02.asp" --> <% end if %> E aí por diante... assim tem como fazer.. dar includes?
  12. zando

    Brush

    Olá galera, Estou precisando de uma ajudinha.... alguém tem algum Brush de livros ou um lugar onde posso baixar os mesmos? Estou precisando desejar imagens de livros... o que fazer? Alguém tem outra solução. Desde já agradeço as respostas.
  13. zando

    Consulta Ao Bd

    Ok... vou fazer isso e verificar qual o erro. Obrigado pela resposta e qualquer dúvida entro em contato novamente. Valeu e t+.
  14. zando

    Consulta Ao Bd

    Segue aí o código do jeito que está dando o erro. Já verifiquei e não consegui achar o erro. Será que o Recordeset está no lugar errado? <% option explicit ' declarar as variaveis dim conexao, registros, string_conexao, string_consulta_titulo, string_consulta_autor dim string_consulta_isbn, string_consulta_ean Set conexao = Server.CreateObject("ADODB.Connection") set registros = server.CreateObject("ADODB.recordset") string_conexao = "DRIVER={SQL Server};SERVER=nome_servidor;UID=usu;PWD=senha;DATABASE=desenvolvimento" conexao.open string_conexao dim valor, vchave valor = request.Form("valores") vchave = request.Form("chave") 'CONSULTA TITULO if vchave = "DESC_LIVRO" then string_consulta_titulo = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.DESC_LIVRO LIKE '%"&valor&"%'" conexao.execute string_consulta_titulo end if 'CONSULTA AUTOR if vchave = "NOME_AUTOR" then string_consulta_autor = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.NOME_AUTOR LIKE '%"&valor&"%'" conexao.execute string_consulta_autor end if 'CONSULTA ISBN if vchave = "CODG_ISBN" then string_consulta_isbn = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.CODG_ISBN LIKE '%"&valor&"%'" conexao.execute string_consulta_isbn end if 'CONSULTA EAN if vchave = "CODG_EAN" then string_consulta_ean = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.CODG_EAN LIKE '%"&valor&"%'" conexao.execute string_consulta_ean end if %> <title>Valores da consulta</title> <style type="text/css"> <!-- --> </style> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="779" border="1" cellpadding="2" cellspacing="1" bordercolor="#999999"> <tr bgcolor="#FFCC66"> <td width="23%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">T&iacute;tulo</font></strong></td> <td width="20%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Autor</font></strong></td> <td width="24%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Editora</font></strong></td> <td width="20%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Classifica&ccedil;&atilde;o</font></strong></td> <td width="13%"> <div align="center"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Pre&ccedil;o</font></strong></div></td> </tr> <% do until registros.EOF dim titulo, autor, editora, classificacao, preço titulo = registros("DESC_TITULO") autor = registros("NOME_AUTOR") editora = registros("DESC_EDITORA") classificacao = registros("DESC_CLASSIFICACAO") preço = registros("VALR_VENDA") %> <tr bgcolor="<%=cor_celula%>"> <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=titulo%></font></td> <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=autor%></font></td> <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=editora%></font></td> <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=classificacao%></font></td> <td> <div align="center"><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif">R$ <%=preço%></font></div></td> </tr> <% registros.MOVENEXT loop %> </table> <STYLE type="text/css"> <!-- BODY { scrollbar-face-color: #EEEEEE; scrollbar-highlight-color: EEEEEE; scrollbar-3dlight-color: #006699; scrollbar-darkshadow-color: #EEEEEE; scrollbar-shadow-color: #006699; scrollbar-arrow-color: #006699; scrollbar-track-color: #EEEEEE; } --> </style> <% conexao.close set conexao = nothing set registros = nothing %>
  15. zando

    Consulta Ao Bd

    É esta aqui... <% while not registros.eof%> ...
  16. zando

    Consulta Ao Bd

    Agora o erro que dá é este aí... ADODB.Recordset erro '800a0e78' Operation is not allowed when the object is closed. /logos/processa_consulta.asp, line 55 O que será?
  17. zando

    Consulta Ao Bd

    Alguém pode me ajudar? Tenho este código que crie para uma consulta no banco de dados. O que está errado? Tá dando o seguinte erro..."Há um problema com a página que você está tentando acessar e ela não pode ser exibida." <% option explicit ' declarar as variaveis dim conexao, registros, string_conexao, string_consulta_titulo, string_consulta_autor dim string_consulta_isbn, string_consulta_ean if ' cria o objeto conexao Set conexao = Server.CreateObject("ADODB.Connection") string_conexao = "DRIVER={SQL Server};SERVER=nome_servidor;UID=usuario;PWD=senha;DATABASE=database_name" ' abre a conexao conexao.open string_conexao ' cria um recordset para buscar valores set registros = server.CreateObject("ADODB.recordset") dim valor, vchave valor = request.Form("valores") vchave = request.Form("chave") 'CONSULTA TITULO if vchave = "DESC_LIVRO" then string_consulta_titulo = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.DESC_LIVRO LIKE '"&valor&"'" set registros = conexao.execute(string_consulta_titulo) end if 'CONSULTA AUTOR if vchave = "NOME_AUTOR" then string_consulta_autor = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.NOME_AUTOR LIKE '"&valor&"'" set registros = conexao.execute(string_consulta_autor) end if 'CONSULTA ISBN if vchave = "CODG_ISBN" then string_consulta_isbn = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.CODG_ISBN LIKE '"&valor&"'" set registros = conexao.execute(string_consulta_isbn) end if 'CONSULTA EAN if vchave = "CODG_EAN" then string_consulta_ean = "select i.DESC_LIVRO, i.NOME_AUTOR, E.DESC_EDITORA, CODG_ISBN, DESC_CLASSIFICACAO, CAST (VALR_VENDA AS DEC(10,2)) AS preço from dbo.ITENS as i, DBO.EDITORAS AS E, classificacao_geral as c where INDI_WEB = 1 and i.CODG_CLASSIFICACAO = c.CODG_CLASSIFICACAO AND I.CODG_EDITORA = E.CODG_EDITORA and i.CODG_EAN LIKE '"&valor&"'" set registros = conexao.execute(string_consulta_ean) end if %> <title>Valores da consulta</title> <style type="text/css"> <!-- --> </style> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="779" border="1" cellpadding="2" cellspacing="1" bordercolor="#999999"> <tr bgcolor="#FFCC66"> <td width="23%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">T&iacute;tulo</font></strong></td> <td width="20%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Autor</font></strong></td> <td width="24%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Editora</font></strong></td> <td width="20%"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Classifica&ccedil;&atilde;o</font></strong></td> <td width="13%"> <div align="center"><strong><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Pre&ccedil;o</font></strong></div></td> </tr> <% ' fazer este comando sempre que quiser que repita uma linha com os dados no banco while not registros.eof %> <% ' declara as variaveis para colocar as células e a fonte de cores diferentes dim cor_celula, celula, fonte, cor_fonte celula = celula + 1 fonte = fonte + 1 if celula mod 2 <> 0 then cor_celula = "#D6E4DE" else cor_celula = "#EEEEEE" end if if fonte mod 2 <> 0 then cor_fonte = "#CC0000" else cor_fonte = "#000000" end if dim titulo, autor, editora, classificacao, preço titulo = registros("DESC_TITULO") autor = registros("NOME_AUTOR") editora = registros("DESC_EDITORA") classificacao = registros("DESC_CLASSIFICACAO") preço = registros("VALR_VENDA") %> <tr bgcolor="<%=cor_celula%>"> <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=titulo%></font></td> <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=autor%></font></td> <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=editora%></font></td> <td><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=classificacao%></font></td> <td> <div align="center"><font color="<%=cor_fonte%>" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%="R$ " & formatnumber(preço),2)%></font></div></td> </tr> <% registros.movenext wend %> </table> <STYLE type="text/css"> <!-- BODY { scrollbar-face-color: #EEEEEE; scrollbar-highlight-color: EEEEEE; scrollbar-3dlight-color: #006699; scrollbar-darkshadow-color: #EEEEEE; scrollbar-shadow-color: #006699; scrollbar-arrow-color: #006699; scrollbar-track-color: #EEEEEE; } --> </style> <% conexao.close set conexao = nothing set registros = nothing %>
  18. Obrigado pela resposta... achei o problema... Era que meu espaço no servidor estava todo ocupado... Já resolvi o problema... Valeu e t+..
  19. O código estava funcionando normalmente e depois ficou dando este erro... não mudei o caminho do banco.. aliás, não fiz nada, simplismente quando fui abrir a página apareceu este erro... a linha que está dando erro não tem nenhuma programação além do html comum... o que será? Problemas de permissão?
  20. A página que está dando erro é esta aqui...
  21. Alguém poderia me dizer que erro é esse? Desde já agradeço...
  22. zando

    Backup Do Banco

    Valeu pela resposta... vou olhar lá e vou verificar como fazer... Se ver algum, encaminhe-me por favor! Abraços...
  23. zando

    Backup Do Banco

    Pela lógica do que você citou acho que funciona, mas como faço este código? Caso eu use um banco de Dados Access, poderia pegar o arquivo no diretório atual e depois colar em outro?
  24. zando

    Backup Do Banco

    Seria os dados todos do banco. Quando faço do SQL faço pelo Enterprise Manager e gera um arquivo .BAk Teria como fazer da mesma forma, para assim gravar todos os dados do bando. Relacionamentos, tipo de campo?
  25. zando

    Backup Do Banco

    Cara, Como poderia fazer? Gostaria que fosse o banco todo, mas não em txt. To querendo ver se consigo fazer uma aplicação segura e que não me dê problemas futuramente. Se for em txt tem como eu importar esse arquivo e o banco ficar igual ao atual?
×
×
  • Criar Novo...