Ir para conteúdo
Fórum Script Brasil

rike_0

Membros
  • Total de itens

    53
  • Registro em

  • Última visita

Tudo que rike_0 postou

  1. aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa está....................... entaum faz assim <% 'página 1 'gera os primerios menus com as marcas strSQL = "SELECT distinct(linha) FROM TblistaPrecos group by linha" set objLinha=objConn.Execute(strSQL) if not objLinha.EOF do while not objLinha.EOF %> <!--aqui é o link pra próxima página--> <a href="pagina2.asp?linha=<%=objLinha("linha")%>"><%=objLinha("linha")%></a><br /> <% 'beleza agora você tem o link para a próxima página onde você vai pegar a linha objLinha.movenext loop end if objLiha.close() set objLinha=nothing %> <% 'página2.asp 'aqui você pega a informação passada linha=request.querystring("linha") strSQL= "SELECT distinct(grupo) FROM TblistaPrecos where linha="&linha&" group by grupo" set objGrupo=objConn.Execute(strSQL) if not objGrupo.EOF %> Pneus da marca <%=linha%> <% do while not objGrupo.EOF %> <!--aqui você gera os links dos aros que você tinhafalado usando a referencia linha uqe você passou pela outra página--> <a href="pesquisa.asp?linha=<%=linha%>&grupo=<%=objGrupo("grupo")%>"><%=objGrupo("grupo")%></a><br /> <% objGrupo.movenext loop end if objGrupo.close() set objGrupo=Nothing %> acho que agora deu o que você queria....
  2. entaum.... tipo tenta isso aqui.... <% 'pega as variaveis pra saber que nivel você tá exibindo linha=request.querystring("linha") grupo=request.querystring("grupo") strSQL = "SELECT distinct(linha) FROM TblistaPrecos group by linha" set objLinha=objConn.Execute(strSQL) if not objLinha.EOF then do while not objLinha.EOF %> <a href="sua_pagina.asp?linha=<%=objLinha("linha")%>">- <%=objLinha("linha")%></a> <% 'testa se tem valor na variavel linha se tiver é que 'foi clicado no link entaum tem de exibir os grupos de dentro da linha if linha=objLinha("linha") then 'faz a segunda consulta no banoc agora com o parametro linha para chamar os grupos strSQL2="Select distinct(grupo) from TblistaPrecos where linha="&linha&" group by grupo" set objGrupo=objConn.Execute(strSQL2) if not objGrupo.EOF then %>Pneus da Marca <%=linha%><% do while not objGrupo.EOF 'gera os links para os grupos %> <a href="sua_pagina.asp?linha=<%=objLinha("linha")%>&grupo=<%=objGrupo("grupo")%>">--<%=objGrupo("grupo")%></a> <% 'testa se alguém clicou em algum link do grupo if grupo=objGrupo("grupo") then 'se clicou faz a terceira consulta no banco e traz o nome_do_produto strSQL3="Select nome_do_produto from TblistaPrecos where linha="&linha&" and grupo="&grupo&" order by nome_do_produto" set objNP=objConn.Execute(strSQL3) if not objNP.EOF then %>Pneus da Marca <%=linha%> e <%=grupo%><% do while not objNP.EOF %> ---<%=objNP("nome_do_produto")%><br /> <% objNP.movenext loop end if objNP.close() set objNP=Nothing end if objGrupo.Movenext loop end if objGrupo.close() set objGrupo=nothing end if objLinha.movenext loop end if objLiha.close() set objLinha=nothing %> isso vai retornar alguma coisa assim -Pirelli -Goddear -Bs Cowei se clicar em pirelli -Pirelli Penus da Marca Pirelli --aro 14 --aro 15 -Goddear -Bs Cowei se clicar em aro 14 -Pirelli --aro 14 Pneus da Marca Pirelli e aro14 ---branco ---preto ---azul --aro 15 -Goddear -Bs Cowei acho que é isso né........ ve se você acha algum erro e me avisa que a gente tenta de novo!!! ^^V
  3. rike_0

    Erro Na Conexão Com Bd

    hehe fala aí.... ^^V entaum... como está estruturado seu banco?? por exemplo... Tabela 1 - Produtos Tabela 2 - Caracteristicas mais ou menos assim??
  4. rike_0

    Como Deletar Registros?

    entaum cara é que uma vez eu tava tendo problemas com inserção e remoção do banco de dados no access e alguém em algum lugar me falou pra fazer isso por isso eu disse que num sabia bem ao certo.... mas aí eu coloquei e funcionou entaum vai que funciona com você também hehehe ^^V mas se num usou ignora...^^*) acho que é alguma coisa de locktype num sei não alguém sabe??? responde pra gente aí^^V
  5. rike_0

    Como Deletar Registros?

    entaum converte o esqeuma só por garantia heheheheh ^^V cara acho que falta um parametro RS.Open SQL, conn, 3, 3 acho que assim funciona..... testa aí
  6. rike_0

    Problema No Querystring

    hehe cortou o mal pela raiz hehehehe ^^V
  7. faz a consulta asssim strSQL = "SELECT distinct(linha) FROM TblistaPrecos group by linha" quando você executar ele vai retornar um de cada sem repetir...... faz os links <% do while not objrs.eof %> <a href="pagina.asp?linha=<%=objrs("linha")%>"><%=objrs("linha")%></a><br /> <% objrs.movenext loop %> feito os links você testa se o parametro da pagina retornou alguma coisa depois usa isso pra fazer outra cnsulta do grupo <% strSQL="Select distinct(grupo) FROM TblistaPrecos where linha="&linha&" group by grupo" %> tendeu??? se quiser a gente tenta criar um código topdo pra isso que você precisa.... ^^V
  8. rike_0

    Problema No Querystring

    entaum acho que esse registro tem um erro. hehehe ^^V .. tipo devem ter gravado um letra ou algo do genero, manda imprimir o registro que deu erro pra ver.... vai sabe né não... ^^V
  9. cria uma check box tipo pessoas juridic() fisica() e usa pra testar quando você precisa fazer uma validação ou outra.... lá no javascript você testa e executa a rotina de validação de cpf ou de Cnpj
  10. entaum.... quando for dia você pode usar a query que eu coloquei acima.... quando for mês você pode testar usando um like tipo select 8 from tab where data like'%mmaaa' tendeu??? o loop que eu falei é mais ou menos assim ó.... digamos que v já selecionou no banco e tal.. 'num sei o nome que você vai da mas eu vou fazer algo bem genérico select case perido_exibicao case 15min total_loop=1 case 30min total_loop=2 case 1h total_loop=4 end select 'se for dia você usa a query lá..... quando for mostra no gráfico faz assim do while not rs.EOF for x=1 to total_loop total=total+rs("total_de_entrada") rs.movenext next 'escreve o total referente a hora e o total_de entradas.... loop assim você tem a soma dos registro divididos de quantos em quantos você precisar.. mais ou menos isso....
  11. rike_0

    Problema No Querystring

    aeeeee ^^V precisando estamos perdidos por aqui... ^^V
  12. rike_0

    Erro Na Conexão Com Bd

    entender entender eu num entendi não... ^^*) mas pelo visto... tipow... tem uma lista com produto... cada usuário tem uma permissão, pra incluir produto, deletar e coisas do genero certo?? depois você quer que os selecionados gerem uma lista pra quem for gerar o .doc de proposta saiba o que colocar.. é isso????
  13. rike_0

    Firefox

    Po cara eu só uso o firefox.... e agora instalei um plugin que abre um aba do IE dentro dele mó útil se alguém quiser o link está aqui.... http://info.abril.com.br/download/4729.shtml e aqui o localhost abre de boa... muito estranho... tive que reinstalar uma vez porcausa disso mas nunca foi muito estrnho......
  14. rike_0

    Problema No Querystring

    e aí ^^V enton... sempre que pego infos pelos links eu sempre converto pra int..... <% id=cint(request.querystring("id")) 'converte para int Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = "SELECT * FROM clientes WHERE pedido ="&id&";" RS.Open SQL, conn, 3 %> aí evita alguns erros e tal, num se se vai funcionar mas testa aí porque ele está falando que é erro de dados imcompatíveis da um response.write de SQL e posta aqui pra gente ver o que acontece.....
  15. rike_0

    Erro Na Conexão Com Bd

    aeeeeee...^^V a Session("Codigo") é um numero né....??? funcionou tudo já??? resolveu entuam???
  16. calma sem desespero...^^V enton... tipo como você mostra os dados nos gráficos.... já que tem um padrão por que você num soma os registro num loop.... tipo cada 15 minutos num faz loop..... a cada 30 faz um loop pra somar dois registros de total de entrada.... uma hora faz loop pra somar 4.... entendeu??? quanto ao dia acho melhor você fazer uma nova query de consulta usando mais ou menos assim... SELECT DISTINCT(data), SUM(TOTAL_DE_ENTRADAs) AS total_de_entradas,* FROM passagens WHERE idcliente = '1' AND idloja = '1' AND identrada = '1' AND (data BETWEEN #1/1/2006# AND #29/9/2007#) AND (horario BETWEEN #12:00:00# AND #23:00:00#) GROUP BY DATA ORDER BY id ASC agora o mês melhor fazer a consulta e testar os meses que você quiser.... num sei se fui claro o suficiente.. acho que até eu me perdi aqui ^^*)
  17. rike_0

    Salvando Entrada No Formuláro

    e aí ..^^V enton.. se eu entendi.. você tem um formulário... depois uma página com os dados desse formulário... e quer um botão pra alterar e tal caso esteja algum errado... bom..... eu faria assim.... antes de gravar qualquer coisa no banoc de dados crie sessios para cada campo(o complicado vai ser se o seu formulário tiver 200 campos...) quando você chamar a página que exibe os dados grava nas sessions os valores... ex.... session("nome")=request.form("nome") exibe o nome... se tiver certo confirma e grava a session no banco..... se tiver errado volta pra outra página... no seu formulário você testa se a session está vazia ou não... ex.. <input type="text" name="nome" <%if session("nome")<>"" then%>value="<%=session("nome")%>" <%end if%> /> aí quando tiver uma session com algum valor você coloca o valor no campo "value" o input....e continua o processo depois que for arrumado e tal.... espero que tenha ajudado... qualquer coisa posta aí
  18. rike_0

    Erro Na Conexão Com Bd

    'Verifica permissao do usuario Set rec_direitos = Server.CreateObject("ADODB.Recordset") rec_direitos.Open "SELECT * from tbDireitosUsuarios where usuario=" & Session("Codigo"),conn,1 if not rec_direitos("propostas") Then response.redirect "proibido.asp" End If andreia eu to achando que é aqui que está o erro bem onde estão as aspas em negrito , porque eu estou abrindo no context essas páginas... e me parece que ele está reconhecendo que akela aspas do codigo está fechando a do select, algo assim. Tem algo de errado ali? o problema é que tem esse tratamento em todas as outras páginas aqui da intranet e não da problema nenhum , isso que não da pra entender !! abraços entaum faça isso pra testar..... 'Verifica permissao do usuario Set rec_direitos = Server.CreateObject("ADODB.Recordset") sql="SELECT * from tbDireitosUsuarios where usuario="&Session("Codigo")&";" response.write(sql) response.end() 'aqui você verifica a instrução sql e ve se está certa....... rec_direitos.Open sql,conn,1 if not rec_direitos("propostas") Then response.redirect "proibido.asp" End If ^^V
  19. e aí galera... ^^V gente to com um problema loco... tipo.. to enviando email pelo servidor e um cliente em específico num consegue receber porque o servidor dele dá o seguinte erro abaixo....... --------------------- 2007-03-06 15:14:11 1HOeAt-0001j2-IB H=(hm17.locaweb.com.br) [200.234.196.44] F= rejected after DATA: syntax error in 'Reply-To:' header when scanning for sender: missing or malformed local part (expected word or "<") in "NOME DO CARA QUE RECEBe O EMAIL" --------------------- num faço a menor idéia do que possa ser isso.. eu acho que é algum antispam do server dele mas o cara está teimando que num é... entuam vamos perguntar pra ver quem está errado.... ^^V valews ^^V
  20. bom vamos ver se eu entendi... você precisa só mudar o tanto de registro que você mostra no gráfico certo.... de 30min, 1h, 1 dia.... certo? entaum como você tá fazendo com 15 minutos??? coloca a instrução aqui .... tipo num dá pra você mudar nessa que você tem já...??? cola aqui pra eu ver.... quem sabe da pra entender melhor....
  21. por que você num faz um teste antes tipo if not rsTabela.eof then executa o loop a té ser vazio end ifse retornar vazio banco ele num faz nada e continua em baixo pra testar o outro.... outra coisa... tipo porque vctá usando o do while?? tipo essa busca pode retornar mais de um valor???? tipo acho que aum né... e pelo o que eu entendi num precisa do do while só de um if mesmo.....
  22. e aí raphael!! cara consegui fazer acho que é meio gambiarra mas da uma olhada no esqueminha o que eu fiz foi esconder o div que o swf está entaum quando passa um tempo ou alguém clica no fechar ele aciona a função javascript e esconde o div no ultimo frame eu coloquei um geturl("java script:esconde();") é sem espaçoo java script mas num sei o que acontece aqui que ele separa sozinho..... e lá no código da página coloquei <script> function esconde() { document.getElementById('id_do_div_aki').style.visibility='hidden'; } </script> e funcionou agora os links que estavam em baixo estão funcionando normalmente!! bom é um alternativa né!!! ^^V valeu raphael pela atenção!!! ^^V
  23. enton raphael eu testei no plyer 9 e deu isso também...... o que eu fico indignado é que na americanas funciona heheh ^^*) enton num sei se tem a ver mas quando eu (teoricamente)fecho o swf eu uso o comando goto pra ir pra um frame vazio.... tem algum outro jeito de fazer isso? sei lá algum window.close igual no js mas que só fecha-se o swf e tlz
  24. e aí pessoal beleza.... num manjo muito de flash por isso to pedindo socorro aqui ^^ enton é o seguinte... manjam o site da americanas(www.americanas.com.br) logo qundo você entra ele abre uma espécie de popup em flash (hoje dia 8/01 é de tv de plasma..) e em baixo dele tem um link pra outros produtos... quando o banner da tv fecha o link em baixo funciona direitinho..... o problema é o seguinte eu não consigo isso acontecer no firefox2.0 no IE funciona... masno fire fox não... outra coisa.... o da americanas funciona nos dois...... no fire fox onde tava o banner fica bloqueado..... ^^V alguém tem alguma dica??? valews desde já pessoas!!!
  25. rike_0

    Sistema De Linguagem!

    cara aqui na empresa temos o site em 3 idiomas diferentes..... mas tá tudo (mas tudo mesmo cada palavra) no banco de dados..... quando o usuario muda o idioma ele muda uma variavel "lingua" no banco de dados cada coluna tem um nome seguido desse numero texto_1 texto_2 texto_3 se for espanhol a variavel lingua fica com 2 entaum na instrução de consulta ele busca na coluna texto_"&lingua&" mudando as variaveis os campos... nas paginas cada campor também tem a referencia da lingua pra chamar da coluna certa..... deu pra entender?????
×
×
  • Criar Novo...