Jump to content

Patrick Ramiro

Members
  • Content count

    42
  • Joined

  • Last visited

Community Reputation

0 Comum

About Patrick Ramiro

Recent Profile Visitors

189 profile views
  1. Patrick Ramiro

    DateDiff - Aviso 3 dias antes e na data vencimento de um contrato.

    Como ficaria o script amigão , eu não sei fazer desse jeito que você falou ?
  2. Patrick Ramiro

    DateDiff - Aviso 3 dias antes e na data vencimento de um contrato.

    Consegui Resolver kkk, to postando o Resultado Pessoal. <% data=date() data_para_vencer_contrato= "15/01/2017" 'Compara data If DateValue(data_para_vencer_contrato)=>DateValue(data) Then 'Retorna a diferença de datas diferenca_dias = DateDiff("d",data,data_para_vencer_contrato) %> <%If (diferenca_dias)<> "3" Then%> <%ELSE%> Atenção o Contrato Vence em três dias <%END IF%> <%end if%>
  3. Olá pessoal bom dia , lendo bastante consegui fazer este script que me mostra quando um contrato está vencido e o total de dias que se passou do vencimento, tentei de várias forma mais não sei como incluir um aviso aí de 3 dias antes de vencer , e quando chegar a data do vencimento avisar que venceu hoje. Alguém pode me ajudar desde já agradeço. <% ' Inicio Verificando Somente Contratos Vencidos. data=date() data_vencimento="15/01/2017" 'Compara data If DateValue(data_vencimento)<=DateValue(data) Then 'Retorna a diferença de datas diferenca_dias = DateDiff("d",data_vencimento,data) ' Fim Verificando Somente Contratos Vencidos. %> Atualize os valores ! Se passaram <%=diferenca_dias%> dias desde o Vencimento do Contrato da Empresa : TESTE <%End If%>
  4. Patrick Ramiro

    Não permitir que o usuário envie email várias vezes.

    Vou desabilitar o botão em Jquery após o envio, assim que terminar posto o resultado, mais ma vez obrigado pela atenção public2004
  5. Patrick Ramiro

    Não permitir que o usuário envie email várias vezes.

    Public 2004 você acha que seria uma boa solução criar uma session para cada usuário quando enviar o email usando o session id , quando essa session for criada bloqueio o envio , e pra liberar o envio novamente uso o session time out definindo o tempo que desejo . você acha que assim iria funcionar bem ou eu iria enfrentar algum tipo de problema ou dificuldade com o servidor ?
  6. Alguém tem uma ideia ou uma forma mais fácil para bloquear que usuário envie emails várias vezes clicando no mesmo botão ?
  7. Patrick Ramiro

    Ocultar texto

    Ta certo meu amigo qual erro está dando , pra você colocar imagem aí é só seguir o ultimo passo que te dei. <%if links ("foto2")<>"" then %> ' verificando se esta vazio 'se estiver vazio não vai mostrar nem o link nem a imagem <%else%> <%=links("foto2")%><img src="sua_imagem" alt="titulo"> ' Aqui vai mostrar o link e imagem se existir, <%end if%>
  8. Patrick Ramiro

    Asp Limitar Registros no Banco

    Fala Public bom dia, Limit ja resolveu meu problema , mais uma vez muito obrigado Public 2004 :)
  9. Patrick Ramiro

    Asp Limitar Registros no Banco

    Olá boa tarde pessoal , alguém pode me ajudar com algum código asp para limitar registros no banco ? Preciso definir um numero total de emails ativos no banco, se o numero de registros encontrados ultrapassar o total definido por mim , aparece a mensagem falando que a pessoa ultrapassou o limite. <% total_emails_permitidos_ativos=100 abreconexao sql1="select *from emails where ativos='sim' " set links=conexao.execute(sql1) do while not links.eof ' não sei como condicionar if else e o count no registros que estiverem ativos sim, e aparecer a mensagem , se ultrapassar o 100 alguém pode me ajudar . %>
  10. Patrick Ramiro

    ASP HTML DECODE,ERRO AO CHAMAR FUNÇÃO

    Resolvido Pessoal Estava Puxando a Função Assim : <%=links(HTMLDecode("codigo_chat"))%> O Correto é Assim: <%=HTMLDecode(links("codigo_chat"))%> Fiz poucas alterações no HTMLDECODE, PQ EU PRECISAVA DA ASPAS SIMPLES ' <% Function HTMLDecode(sText) Dim regEx Dim matches Dim match sText = Replace(sText, """, Chr(34)) sText = Replace(sText, "<" , Chr(60)) sText = Replace(sText, ">" , Chr(62)) sText = Replace(sText, "&" , Chr(38)) sText = Replace(sText, " ", Chr(32)) sText = Replace(sText, "'", Chr(39)) sText = Replace(sText, "'", Chr(39)) sText = Replace(sText, "'", "'") Set regEx= New RegExp With regEx .Pattern = "(\d+);" 'Match html unicode escapes .Global = True End With Set matches = regEx.Execute(sText) 'Iterate over matches For Each match in matches 'For each unicode match, replace the whole match, with the ChrW of the digits. sText = Replace(sText, match.Value, ChrW(match.SubMatches(0))) Next HTMLDecode = sText End Function %>
  11. <%=links(HTMLDecode("codigo_chat"))%> Pessoal o problema acho que está aqui, está retornando este erro O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado,será que eu chamei a função HTMLDECODE errado ? A função está logo Abaixo: <% Function HTMLDecode(ByVal EncodedString) 'Declarations Dim ret Dim i 'Decoding ret = EncodedString ret = Replace( ret, """, chr(34) ) ret = Replace( ret, "<" , chr(60) ) ret = Replace( ret, ">" , chr(62) ) ret = Replace( ret, "&" , chr(38) ) ret = Replace( ret, " ", chr(32) ) For i = 1 to 255 ret = Replace( ret, "" & i & ";", chr( i ) ) Next 'Return HTMLDecode = ret End Function %> <% abreconexao sql1="select *from chat where status_chat='sim'" set configchat=conexao.execute(sql1) do while not configchat.eof %> <%=links(HTMLDecode("codigo_chat"))%> Pessoal o problema acho que está aqui, está retornando este erro O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado,será que eu chamei a função HTMLDECODE errado ? <% configchat.movenext %> <% loop fechaconexao %>
  12. Patrick Ramiro

    Ocultar texto

    <%if seuparametro ("preco1")<>"" then %> ' verificando se esta vazio 'se estiver vazio não vai mostrar nem o link nem a imagem <%else%> <%=seuparametro ("preco1")%> <img src="sua_imagem" alt="titulo"> ' Aqui vai mostrar o link e imagem se existir, <%end if%> Qualquer coisa poste seu código fica mais fácil ajudar
  13. Pessoal preciso verificar 3 coisas neste campo "foto_usuario" ( 1 se o campo é nulo ) ( 2 se o campo está em branco) ( 3 se o valor do campo é "0" ) Consegui usar o IsNull e verificar se o campo foto_usuario é "0" falta só colocar pra verificar se o campo está em branco, olhem aí o exemplo que tentei fazer, desde já agradeço amigos. <%If IsNull(session("foto_usuario")<>"0") = True Then%> --------------------------------------------------------------------------------------------------- Tentei fazer isso deu erro , tentei dei outras formas e deu erro também If IsNull (Is Empty(session("foto_usuario")<>"0")) = True Then%>
  14. Patrick Ramiro

    Ocultar texto

    você coloca aí o parâmetro que você usar para setar a conexão, o comando que você usa para ler textos ou títulos do banco, eu ultilizo o parametro que chama links. set links=ConexaoCliente.execute(sqltotalcat) Ex: <%=links("titulo_da_materia")%> < ----- Titulo da matéria é uma coluna do banco de dados e o parâmetro links vai no banco e verifica, no lugar de parâmetro você coloca o nome que você usa para chamar os dados da base.
  15. Patrick Ramiro

    Asp Else If com mais de um campo.

    KKKKKKKK tem erro não , você me ajudou 99% com esse código , eu tava ficando doido , pensando o que tem de errado nesse trem kkkkk..... mais aí vi outras pessoas usando o código OR aí deu certo kkk..... Muito obrigado pelo ajuda Public2004 coloquei só duas letras nesse código kk :)
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.