Ir para conteúdo
Fórum Script Brasil

spy73

Membros
  • Total de itens

    20
  • Registro em

  • Última visita

Tudo que spy73 postou

  1. Aewwwwww, funfou... Valeu pela dica, cara! Sobre o cabeçalho fixo, alguém tem alguma idéia de como posso fazer...?! Vlw, Rodrigo.
  2. spy73

    Problema no Postback

    Opa Hélio, tranquilo? Então cara, 7 mil registros num combo acho que fica muito pesado, o retorno do banco vai ser meio lento. Claro, a sua infra influi totalmente né, mas mesmo assim o esquema era tentar quebrar isso, ou fazer algum outro filtro para não sobrecarregar o combo. Uma dica: Posta esse tópico lá no Fórum de .NET, que é mais específico. AbcS, Rodrigo.
  3. Ah, eu coloquei aqui porque todo a minha codificação está em ASP... xD
  4. Bom Dia, galera! Tenho uma lista de produtos em uma tabela, mas a medida que vou descendo a página, gostaria que o cabeçalho se mantesse para o usuário acompanhar a que se refere a coluna. Como eu consigo fazer isso? Aproveitando, tenho uma segunda dúvida: Tenho alguns botões na página que são apenas imagens, por isso quero fazer com que quando o usuário colocar o ponteiro do mouse em cima do botão, um ToolTip apareça para mostrar para que o botão serve. Eu já pesquisei na net sobre isso e vi que a propriedade ALT que faz isso. Coloquei nos botões mas mesmo assim o ToolTip não aparece... Alguém sabe o motivo/como resolver tal questão? Ex.: <img src='imagem/imagem.jpg' border='0' width='20' height='20' alt='Imagem'> Valeu aew, AbcS. -- Rodrigo.
  5. Tentei usar o split mas não deu certo... O que fiz de errado?! Código: eDest = split(v_para,";") for i=0 to UBound(eDest) Mail.AddAddress eDest(i) next Response.Write eDest Sendo q o v_para tem o valor dos e-mails: "teste@teste.com.br; test1@teste.com.br; etc..." Ufa, consegui... xD Valeu pelo help aew, Rafael...! AbcS, Rodrigo.
  6. Tentei usar o split mas não deu certo... O que fiz de errado?! Código: eDest = split(v_para,";") for i=0 to UBound(eDest) Mail.AddAddress eDest(i) next Response.Write eDest Sendo q o v_para tem o valor dos e-mails: "teste@teste.com.br; test1@teste.com.br; etc..."
  7. Então, eu fiz assim pra tentar resolver, verificando as dicas do link que você mandou: while not aprova.eof v_para = v_para + aprova( "email" ) Mail.AddAddress v_para aprova.movenext if not aprova.eof then v_para = v_para + "; " end if wend Assim, TEORICAMENTE, ele iria add um e-mail a cada vez e não teria problemas, certo?! Mas o erro persiste... Será q é porque to colocando esse separador aew: v_para = v_para + "; " ?!?!?! Caraca, eu já não gostava de ASP puro antes de mexer, agora q to mexendo to vendo q é mais chato do q eu pensava... hahaha
  8. Bom Dia galera, tranquilo?! Eu tenho um código aqui que manda um informativo por e-mail para alguns contatos mas dá erro quando a variável V_PARA tem mais de um e-mail... Código: Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.From = v_email_remetente Mail.FromName = v_nome_remetente Mail.AddAddress "mr.spy7@gmail.com; rodrigo@diretriz.srv.br" ' v_para Mail.Subject = v_assunto Mail.Body = v_corpo Mail.IsHTML = True On Error Resume Next Mail.Send Set Mail = Nothing Call FechaBanco Response.Write v_para If err = 0 Then response.Redirect( "solicitacao.asp" ) Else Response.Write( "<tr><td class='fonte-grid-erro' colspan='2' class='fonte-grid-erro'><div align='center'><font color='#FF0000'>Erro: E-mail(s) de destinatário(s) inválido(s)! </font></div></td></tr>") Response.Write "Ocorreu um erro inesperado (" & Err.number & " - " & err.Description & ")" End If Os e-mails na variável ficam assim: "rodrigo@teste.com.br; rodrigo@teste1.com.br" etc etc etc.. E todos os e-mails saum válidos...! Alguém tem alguma pista do porque disso ocorrer?! Valeu, AbcS! Rodrigo.
  9. Caraaaaaaaaaaaaca, valeu Bareta, funfou certinho...! xD Ficar arrumando bug de sistemas dos outros já é um porre, ainda mais quando não manjo quase nada da linguagem... =/ AbcS, Rodrigo.
  10. Opa, assim sim, consegui com isso mesmo... E como eu fecho antes os 3 frames que estão abertos?! porque assim, quando eu clico em logout, ele vai pra página default.asp, mas depois quando eu logo novamente, ele abre os frames de novo, dentro dos que já estavam abertos... Fica, tipo, um site dentro do outro... hahaha A minha idéia era fechar todos os frames pra deixar o site limpo, como a primeira vez que você entra...
  11. O código da página de Logout está assim: <% Session.Abandon() Session.Contents.RemoveAll() Response.Redirect( "www.diretriz.srv.br" ) %> Só que ele mostra que a página não pode ser exibida quando ele tenta redirecionar... Será que acontece isso pela página main.asp estar dentro de frames?!
  12. Bom Dia Galera, firmeza?! Sou novo aqui no Fórum e também programando em ASP puro. Tenho um sistema aqui que a página principal tem 3 frames e no meio a página main.asp. Um dos links do menu é uma página logout.asp, que quando o usuário clica, preciso que o sistema feche. Alguém sabe como fazer isso?! AbcS, Rodrigo.
  13. Eu uso direto o Painel de Controle deles... To há 15 min tentando falar com eles no tel mas tá complicado, mta fila... hahaha Vou tentar usar o FTP direto, as vezes rola melhor... Valeu pelas ajudas aew cara, e me desculpe-me o incômodo aew... xD AbcS, Rodrigo. Eu uso direto o Painel de Controle deles... To há 15 min tentando falar com eles no tel mas tá complicado, mta fila... hahaha Vou tentar usar o FTP direto, as vezes rola melhor... Valeu pelas ajudas aew cara, e me desculpe-me o incômodo aew... xD AbcS, Rodrigo. Ops, "ME DESCULPE-ME" foi difícil, hein... hahahhaahha Vlw!
  14. Tentei colocar tudo na mesma pasta mas o erro persiste. Esses arquivos estão na Locaweb, foram desenvolvidos localmente e depois jogados para o servidor deles, e sempre rodou normal por lá. O banco tb se encontra lá. Antes ele ficava no login do desenvolvedor que fez o sistema, depois migramos para o login de nossa empresa na Locaweb, e quando apontei a conexão para o banco do nosso login, que eu repliquei idêntico ao do desenvolvedor, ele começou a aparecer tal erro. Um detalhe, não sei se é normal: Quando eu subo o arquivo "default_sql.asp" para a Locaweb e depois baixo, ele me volta sem a primeira linha de referência: <!-- #include file="biblioteca.asp"-->, e no biblioteca.asp não retorna a primeira linha tb, o "<%"... Será que isso tem alguma influência ou é normal?! Código do default_sql.asp quando baixo da Locaweb: <% dim intCodCliente session( "cd_usuario" ) = -1 Call AbreBanco Set resultado = conn.execute( "select cd_cliente, cd_usuario, nome, aprova, separa, entrega from usuario where login = '" + Request.Form( "login" ) + "' and senha = '" + Request.Form( "senha" ) + "'" ) ETC... Código do biblioteca.asp quando baixo da Locaweb: Session.LCID = 1046 Session.Timeout = 1400 Dim conn Function IsLogado IsLogado = False if ( Session ( "cd_usuario" ) = 0 ) or ( Session ( "cd_usuario" ) = "" ) then Response.Redirect( "default.asp?ai=1" ) end if IsLogado = True end function ETC... A Locaweb tá comendo a primeira linha do meu código nos arquivos... -.- Eu pensei no começo que isso fosse meio que normal, sei lá, eles criavam algum script que dispensava tais linhas e funcionava do mesmo jeito... Mas agora, quando você comentou de alterações no fonte, me dei conta de que os arquivos não estavam assim quando os peguei pela primeira vez no login do outro cara, estavam completos... Patz, vou ligar na Locaweb e ver o que rola de fazer pra que eles não alterem meu código... =/ Será que é só isso mesmo?!
  15. Tentei colocar tudo na mesma pasta mas o erro persiste. Esses arquivos estão na Locaweb, foram desenvolvidos localmente e depois jogados para o servidor deles, e sempre rodou normal por lá. O banco tb se encontra lá. Antes ele ficava no login do desenvolvedor que fez o sistema, depois migramos para o login de nossa empresa na Locaweb, e quando apontei a conexão para o banco do nosso login, que eu repliquei idêntico ao do desenvolvedor, ele começou a aparecer tal erro. Um detalhe, não sei se é normal: Quando eu subo o arquivo "default_sql.asp" para a Locaweb e depois baixo, ele me volta sem a primeira linha de referência: <!-- #include file="biblioteca.asp"-->, e no biblioteca.asp não retorna a primeira linha tb, o "<%"... Será que isso tem alguma influência ou é normal?! Código do default_sql.asp quando baixo da Locaweb: <% dim intCodCliente session( "cd_usuario" ) = -1 Call AbreBanco Set resultado = conn.execute( "select cd_cliente, cd_usuario, nome, aprova, separa, entrega from usuario where login = '" + Request.Form( "login" ) + "' and senha = '" + Request.Form( "senha" ) + "'" ) ETC... Código do biblioteca.asp quando baixo da Locaweb: Session.LCID = 1046 Session.Timeout = 1400 Dim conn Function IsLogado IsLogado = False if ( Session ( "cd_usuario" ) = 0 ) or ( Session ( "cd_usuario" ) = "" ) then Response.Redirect( "default.asp?ai=1" ) end if IsLogado = True end function ETC...
  16. Fiz isso que você disse, e me retornou isso na tela: Microsoft VBScript runtime error '800a000d' Type mismatch: 'xxx' /sodexo/default_sql.asp, line 3 Sei lá, o default_sql.asp não tá conseguindo enxergar o biblioteca.asp eu acho... Essa referência tá zuada... =/
  17. é, mas é essa mensagem de erro q ta estranha. mas explica melhor esses testes q você fez. o q quer dizer com "Testei a conexão em outros locais"?? quer dizer em outro arquivo?? otro banco?? otro servidor?? O erro provavelmente é que os outros arquivos não conseguem achar a função no biblioteca.asp, sei lá, a referência não tá funcionando, num sei o que é... Ah, eu criei uma conexão ODBC no Windows, do MySQL, e testei a conexão com o banco de dados direto e funcionou, ou seja, a string de conexão tá de boa, o problema é a chamada da função, algo do tipo... =/ A referência no arquivo default_sql.asp tá certa?! Referência: <!-- #include file="includes/biblioteca.asp"--> Isso já é suficiente para que os arquivos usem as funções do biblioteca.asp ou falta alguma coisa?!
  18. É, to testando isso e realmente é alguma coisa na função AbreBanco() do biblioteca.asp... Testei a conexão em outros locais e ela está funcionando! Será que o default_sql.asp não tá conseguindo chamar tal funcão do arquivo biblioteca.asp?! Se não está, qual seria o motivo?! O que mais me irrita é que foi de uma hora pra outra, sem mais nem menos... =/
  19. Foi na hora que postei aqui mesmo, meu código tá sem o Enter... =/ Eu já tentei colocar o Response.Write de algumas variáveis pra ver o valor mas eles nem aparecem na tela do site quando entram na página... Ele deveria funcionar, não?! Ex.: Response.Write session( "cd_usuario" ) Caraca, não sei mais o que fazer pra que funcione... Será que ele não está conseguindo abrir o banco ou nem tá chamando a página biblioteca.asp em que está a função AbreBanco()...?! Não sabia que ASP puro seria tão chato assim, uma vez que programo em .NET há 4 anos e sempre resolvo os problemas muito rápido, debbugando tranquilo... :( :( :(
  20. Bom Dia, galera! Sou novo aqui no Fórum e também programando em ASP puro, e logo de cara me deparei com tal problema: Microsoft VBScript runtime error '800a000d' Type mismatch: 'AbreBanco' /sodexo/default_sql.asp, line 5 Assim que eu coloco meu login e senha no sistema ele já me retorna tal erro. A página biblioteca.asp contém as propriedades de conexão com o banco MySQL e depois chama a página default_sql.asp. Alguém saberia como solucionar tal caso?! Vlw...! CÓDIGO DO BIBLIOTECA.ASP: <% Session.LCID = 1046 Session.Timeout = 1400 Dim conn Function IsLogado IsLogado = False if ( Session ( "cd_usuario" ) = 0 ) or ( Session ( "cd_usuario" ) = "" ) then Response.Redirect( "default.asp?ai=1" ) end if IsLogado = True end function Function AbreBanco() if IsLogado then Set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql03.diretriz.srv.br;PORT=3306;DATABASE=diretriz4;USER=diretri z4;PASSWORD=sdx3737DLS;OPTION=3;") ' conn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;PORT=3306;DATABASE=diretrizportfolio;USER=admin;PASSWOR D=;OPTION=3;") end if End Function Function FechaBanco() conn.Close Set conn = Nothing End Function %> CÓDIGO DO DEFAULT_SQL.ASP: <!-- #include file="includes/biblioteca.asp"--> <% dim intCodCliente session( "cd_usuario" ) = -1 Call AbreBanco Set resultado = conn.execute( "select cd_cliente, cd_usuario, nome, aprova, separa, entrega from usuario where login = '" + Request.Form( "login" ) + "' and senha = '" + Request.Form( "senha" ) + "'" ) if not resultado.eof then session( "cd_usuario" ) = resultado( "cd_usuario" ) session( "aprova" ) = resultado( "aprova" ) session( "separa" ) = resultado( "separa" ) session( "entrega" ) = resultado( "entrega" ) session( "nome" ) = resultado( "nome" ) intCodCliente = resultado ("cd_cliente") Set resultado = conn.execute( "select cd_cliente, nm_cliente, cd_cliente_pai, logotipo, arquivo, diasenha from cliente where cd_cliente = " + CSTR ( intCodCliente ) ) if not resultado.eof then Session( "cd_cliente" ) = resultado( "cd_cliente" ) Session( "nm_cliente" ) = resultado( "nm_cliente" ) Session( "cd_cliente_pai" ) = resultado( "cd_cliente_pai" ) Session( "logotipo" ) = resultado( "logotipo" ) Session( "arquivo" ) = resultado( "arquivo" ) Session( "diasenha" ) = resultado( "diasenha" ) end if Response.Redirect( "main.asp" ) else Session( "cd_cliente" ) = 0 Session( "nm_cliente" ) = "" Session( "cd_cliente_pai" ) = 0 Session( "logotipo" ) = "" Session( "arquivo" ) = "" Session( "height" ) = 0 Session( "width" ) = 0 Session( "diasenha" ) = 0 Response.Redirect( "default.asp?acesso=1" ) end if Call FechaBanco %> É bem na linha em que chama a função de AbreBanco do default_sql.asp, que está aberta no biblioteca.asp. Sempre funcionou, mas tive que criar outro banco de dados MySQL na Locaweb, montei a mesma estrutura de dados, tabelas e do nada começou a dar esse erro... =/
×
×
  • Criar Novo...