Ir para conteúdo
Fórum Script Brasil

marcus Gemeos

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    404

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que marcus Gemeos postou

  1. marcus Gemeos
    Ele lista idependente da data! A data está imprimindo assim da variável... 10/12/2008 E o que está dentro do banco está assim: 08/01/2009. Nem venceu... mais exibe assim mesmo! Talvez seja melhor eu migrar para SQL Server!
  2. marcus Gemeos
    Estou usando o ACCESS, será isso a causa do problema? O ACCESS talvez não tenha tanta "inteligência" para ler o comando como o SQL Server faz?
  3. marcus Gemeos
    Abaixo segue o código da página completa... <!--#include file="conexao_dados.asp"--> <% if Session("Usuario") = "" then Response.Redirect "usuario_nao_identificado.asp" end if Dim Conexao VarData = (month(date) & "/" & day(date) & "/" & year(date)) 'VarData = (day(date) & "/" & month(date) & "/" & year(date)) 'VarData = "" & day(date) & "/" & month(date) & "/" & year(date) & "" 'novaData = dateadd("d", 31, VarData) sqlProd = "Select * from clientes where dt_prox_venc < #" & VarData & "# order by dt_prox_venc" %> <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>:: Programa IP IDEAL ::</title> </head> <body> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="108"> <tr> <td width="100%" height="75"> <p align="center"><img border="0" src="imagens/logo1.jpg"></td> </tr> <tr> <td width="100%" height="33"> <p align="center"> <font color="#FFFFFF" face="Verdana" size="1"><b>.</b></font><font face="Verdana"><span style="font-size: 8pt; font-weight: 700">:: Programa IP IDEAL ::</span></font></td> </tr> </table> <table border="0" width="100%" cellspacing="1" cellpadding="0"> <tr> <td width="100%" bgcolor="#FFFFFF"> <font size="2" face="Verdana">:: <b>Seção lista de clientes em débitos</b>, bem vindo(a) <font color="#008080"><%=Session("Usuario")%></font></font></td> </tr> <tr> <td width="100%" bgcolor="#FFFFFF"> &nbsp;</td> </tr> <tr> <td width="100%" bgcolor="#FFFFFF"> <form method="POST" action="<%= Request.ServerVariables("SCRIPT_NAME") %>"> <p> <input type="submit" value="*Listar novamente todos os clientes em débitos" name="Blistar_clientes_debitos" style="font-family: Verdana; font-size: 10 px; float: right; border-style: solid; border-width: 1"></p> </form> </td> </tr> <tr> <td width="100%" bgcolor="#FFFFFF"> <p align="left">&nbsp;</td> </tr> </table> <table border="0" width="100%" cellspacing="1" cellpadding="0"> <tr> <td width="42%"> &nbsp;</td> </tr> </table> <table border="0" width="519" cellspacing="1" cellpadding="0" height="1"> <% 'abre a conexao Call abre_conexao 'executa a instrução SQL Set rs = Conexao.Execute(sqlProd) IF rs.EOF then Response.write "<i><font color=""#FF0000"">Não existem clientes em débitos!</font></i>" ELSE While not rs.EOF %> <tr> <td height="1" width="100000" bgcolor="#F2F2F2"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"> <% Response.write "<br><b>Código: </b>" & rs("Codigo") Response.write "<br><b>Nome do responsável: </b>" & rs("nome") Response.write "<br><b>E-mail: </b>" & rs("email") Response.write "<br><b>Domínio: </b>" & rs("dominio") Response.write "<br><b>Data do vencimento: </b>" & rs("dt_prox_venc") %> </font> </td> <td height="1" width="42" align="center" bgcolor="#F2F2F2" valign="middle"> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"> <form method="POST" action="listar_clientes_debitos_detalhes.asp?id=<%=rs("Codigo")%>"> <p> <input type="submit" value="Detalhar" name="BDetalhes" style="border-style:solid; border-width:1; float: left; font-family:Verdana; font-size:10 px; color:#666666"></p> </form> </font> </td> <td height="1" width="71"></td> <% rs.movenext Wend End If rs.Close 'fecha a conexao Call fecha_conexao Set rs = Nothing%> </td> </tr> </table> <p align="center">&nbsp;</p> <form method="POST" action="secao_financas.asp"> <p align="center"> <input type="submit" value="» Voltar «" name="Bvoltar" style="font-family: Verdana; font-size: 10 px; border-style: solid; border-width: 1"></p> </form> <p align="center">&nbsp;</p> <p align="center"></p> </body> </html> O que está dentro da DB ACCESS no campo dt_prox_venc é exatamente isso: 8/12/2008 Será que não tinha outra forma...? :huh: Eu acredito também amigo, que o BD ACCESS, não funcione como se fosse SQL Server!
  4. marcus Gemeos
    Olá amigo, Eu tentei os três... e não lista... a data no banco está "8/12/2008". E hoje juntamente com o PC, são 10/12/2008. Nem sei mais o que fazer... não sei como ele lê o código... VarData = (month(date) & "/" & day(date) & "/" & year(date)) 'VarData = (day(date) & "/" & month(date) & "/" & year(date)) *comentado e testado não deu certo 'VarData = "" & day(date) & "/" & month(date) & "/" & year(date) & "" *comentado e testado não deu certo sqlProd = "Select * from clientes where dt_prox_venc < #" & VarData & "# order by dt_prox_venc"
  5. marcus Gemeos
    Olá amigo, Meu código está com bug: VarData = "" & day(date) & "/" & month(date) & "/" & year(date) & "" sqlProd = "Select * from clientes where dt_prox_venc < #" & VarData & "# order by dt_prox_venc" O campo "dt_prox_venc " está com dado 8/12/2008, mas não lista... só se seu invreter o sinal "<". E a VarDATA está imprimindo "10/12/2008" *Há desculpa pelo tópico duplicado!
  6. marcus Gemeos
    Olá Rafael, Por incrível que pareça, para listar resgistros que tenham a data menor que a data atual, invertir de "<" para ">" e deu certo! Tipo: campo_data > data atual. Então se hoje forem 10/12/2008 a data para ser listada tem que ser no máximo 09/12/2008. Isso porque invertir o sinal ">". E enquanto ao "0", eu quero removê-lo e não acrescentá-los! Obrigado por tudo! Marcus
  7. marcus Gemeos
    Jonathan, O código funcionou assim: sqlProd2 = "Select * from tabela where campo_data > " & date() & " order by campo_data" Na prática, a data do campo 5/12/2008 é menor do que a data atual (9/12/2008) então liste... você ver que o ">" foi invertido! E além do mais, o sistema ler a data sem o "0". Invés de 05/12/2008 é 5/12/2008. Também gostaria de saber, como faz, se alguém digitar o "0" no campo, e não cadastrar...? E além do mais, percebir que o código só ler o primeiro número, no caso "5/..." Abraços!
  8. marcus Gemeos
    Não é bem isso... lá está listando registros por um período de data, eu gostaria de listar resgistros que seja menor que a data atual! :mellow:
  9. marcus Gemeos
    Pessoal, Eu gostaria de saber, como faço para um busca no sistema só listar pessoas por data? Ou seja, tem um registro que contem um campo chamado "vencimento", se a data cadastrada neste campo, for menor que a data atual, listasse (imprimisse...) Eu tenho já o comando de imprimir a data atual: VarData = "" & day(date) & "/" & month(date) & "/" & year(date) & "" Esse comando "captura" a data atual. Resumindo: Um sistema que listasse registros que tenha a data vencida! Abraços!
  10. marcus Gemeos
    Olha meu código completo: <% data = datediff ("m", 1, date) VarData = "" & day(data) & "/" & month(data) & "/" & year(data) & ""%> A data exbida foi: 31/7/1903 Entendeu?
  11. marcus Gemeos
    Olá amigo, Houve uma alteração na exbição meio sem nexo: data = datediff ("m", 1, data) VarData = "" & day(Data) & "/" & month(Data) & "/" & year(Data) & ""%> Resultado: 30/12/1899 Invés de ser 08/01/2009 comparada a data atual mais um mês... Entendeu?
  12. marcus Gemeos
    Olá pessoal, Eu gostaria do seguinte: Eu tenho um comando que imprime a data atual, que fica assim por exemplo: 08/12/2008, mas queria que ele exibesse a data do mês posterior, que seria no caso assim: 08/01/2009 entendeu? O código da impressão data atual é: VarData = "" & day(Date) & "/" & month(Date) & "/" & year(Date) & "" Obrigado a todos! Fico no aguardo! Marcus Vinicius
  13. marcus Gemeos
    Olá amigo! Resolveu... :rolleyes: Abraços!
  14. marcus Gemeos
    Prezados, Eu gostaria de um comando que quando o usuário fechasse a janela no "X" da janela, automaticamente atualizava a página anterior... Eu já tenho o comando de atualizar a página anterior quando se clica no botão fechar, mas queria que esse mesmo comando fosse executado quando se clicasse também no botão "X" da janela para fechá-lo! Alguém conhece? Agradeço desde de já!
  15. marcus Gemeos
    JavaScript! Entrei no fórum errado? :unsure:
  16. marcus Gemeos
    Prezados, Eu gostaria de um comando que quando o usuário fechasse a janela no "X" da janela, automaticamente atualizava a página anterior... Eu já tenho o comando de atualizar a página anterior quando se clica no botão fechar, mas queria que esse mesmo comando fosse executado quando se clicasse também no botão "X" da janela para fechá-lo! Alguém conhece? Agradeço desde de já!
  17. marcus Gemeos
    Olá pessoal, Eu procuro um site que disponibilize sistema de classifocados por região e cidade? Quam puder me indicar... fico muito grato! Abração! Marcus
  18. marcus Gemeos
    Olá pessoal, Eu gostaria de saber aonde arranjo um código fácil para pop up flutuante? Aqueles que muitos sites usam em flash, mas eu quero para imagem também! Preciso! Obrigado!!
  19. marcus Gemeos
    Olá pessoal, Eu possuo o seguinte código para exibição de fotos em uma pasta: <% Dim Fso,arq,pasta Set Fso = CreateObject("scripting.filesystemobject") Set pasta = Fso.getfolder(server.mapPath("fotos/")) For each arq in pasta.Files if (contador mod 8) = 0 then response.write "</tr>" response.write "<tr>" end if %> <% '/////COMECA AS FOTOS Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""100%"">" nomeArquivo = arq.name imagem="fotos/"& nomeArquivo Response.Write "<a name= """&contador&""" target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a>" Response.Write "</table></div>" contador = contador + 1 if contador = 5 then exit for end if next %> Mas gostaria que as fotos ficassem um do lado do outro e não um em baixo do outro, mas quando chegasse em uma quantidade de fotos horizontal, descia mais uma linha e realizasse o mesmo processo da linha anterior! Precisso!! Obrigado!! Marcus
  20. marcus Gemeos
    Olá pessoal, Eu gostaria do seguinte, de como posso fazer para limitar quantidades de registros por usuários, ou seja, cada usuário teria direito de 10 registros... caso ele queira colocar registros novos é só deletar ou atualizar um dos registros? Precisso! Obrigadão! Marcus
  21. marcus Gemeos

    Conexão Odbc

    pergunta respondeu ao AlexMunhoz de marcus Gemeos em ASP

    É só pedir ao servidor que habilita a questão dos dois pontinhos...
  22. marcus Gemeos
    Olá pessoal, Eu conseguir este código abaixo, mas ele (código) está instalado em duas celulas de tabelas diferentes, funcionam perfeita mente, mas aparecem as duas fotos iguais nas duas celulas, ou seja, não aparece fotos diferentes aleatóriamente, e sim, também aleatória mente as mesmas, entendes? Como faço diferenciar o "ritimo" de cada comando? Obrigado! Marcus <% Response.Expires = -1000 Set oConn2 = Server.CreateObject("ADODB.Connection") oConn2.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banner_rotativo/banco.mdb")) sSQL = "SELECT * FROM banners" Set oRS2 = Server.CreateObject("ADODB.Recordset") oRS2.Open sSQL , oConn2, 3 if not oRS2.eof then rndMax = CInt(oRS2.RecordCount) oRS2.MoveFirst Randomize Timer rndNumber = Int(RND * rndMax) oRS2.Move rndNumber response.write "<a href=""" & oRS2("usuario") & """><img width=""150"" height=""150"" border=0 src=""" & oRS2("imagem") & """>" end if set oRS2 = nothing set oConn2 = nothing %>
  23. marcus Gemeos
    Olá pessoal, Eu gostaria de saber, como faço para deletar todos os arquivos (no caso fotos) de um determinado usuário em uma pasta que quarda vários arquivos de usuários diferentes? Eu sei um código que deleta um determinado arquivo (como exemplo abaixo) mas gostaria que deletasse todos arquivos refente a um tal usuário? VarArquivo = Request.Form("nome") VarArquivo = replace(VarArquivo, "'", "") VarCaminho = "c:\domains\feirafotos.com.br\wwwroot\fotos\" & VarArquivo Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.DeleteFile Server.MapPath("\fotos") & "/" & VarArquivo Precisso! Obrigado! Marcus
  24. marcus Gemeos
    Vlw!!! ;)
  25. marcus Gemeos
    Ola pessoal, Sabe como conseguir mostrar cotações do dólar, comercial e etc? eu usava o http://www.guianews.com.br/ mas estava sempre atrasado, quero um script que possa fazer algo diario, alguém sabe como obter? Obrigado! Marcelo
×
×
  • Criar Novo...