Gabriel Jansen

Na minha aplicação eu faço tocar um áudio de Beep quando entra um pedido novo (um registro no BD). Primeiro pego uma variável para receber o Recordcount, dai no final da leitura dela eu salvo essa variável em uma session. Ai no código da página forço ela da um refresh e faço uma comparação da variável que recebe o primeiro recordcount com a session, caso ela seja diferente ela solta um beep. Ex: Response.AddHeader "Refresh", "180" ' faz o refresh na página a cadad 180 segundos SET Conn = server.CreateObject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=caminho_do_bd;Persist Security Info=False" Conn.CursorLocation = 3 SET RS = Server.CreateObject("ADODB.Recordset") RS.open "SELECT * FROM Tabela", conn, 1,3 comp = Rs.RecordCount 'variavel que faz a contagem de quantos registros tem o banco. IF comp <> Session("cont") Then 'caso o registro da tabela seja diferente da ultima ela solta o beep nesse caso você substituiria pelo icone da notificação Response.Write ("<embed height='0' width='0' src='img/beep.mp3' />") End if Session("cont") = Rs.RecordCount 'salvo a variavel na session antes de destruir a conexão com BD.

Alejandro Estive lidando com um painel administrativo e também estava preocupado quanto a isso, uma solução que resolveu foi Com cookies Dim check,refe,testa 'cookies criado na página que recebe o formulário do login check = Request.Cookies("check") 'Aqui recupera o cookies criado na validação refe = Request("HTTP_REFERER") 'resgata a referencia de onde veio a página variavel = "testelogin." 'aqui você coloca uma parte do seu site que identifique ele eu coloquei parte do dominio ex: www.testelogin.com.br IF check = "TRUE" AND Instr(refe, variavel) <> 0 Then 'verifica se o cookies é valido e a página de origem é do site If Request("HTTP_REFERER") = "" Then 'caso o usuario digite ela a referencia é vazia e ele é redirecionado para outra página response.Redirect("http://www.google.com.br/") Response.End End If Else 'Cookies invalio ou referencia invalida também redireciona response.Redirect("http://www.google.com.br/") End if Sem Cookies If Request("HTTP_REFERER") = "" Then 'caso o usuario digite a pagina para acesso, a referencia é vazia ele redireciona (não é muito segura, mas já evita acesso de curioso) response.Redirect("http://www.google.com.br/") Response.End End If

Acho que entendi, seria um tipo ORDER BY pela data?

Então, se você não conseguiu fazer pelo DISTINCT, faz ela fazer uma consulta depois que você vê as datas... Ex SET RS = Server.CreateObject("ADODB.Recordset") RS.open "SELECT * FROM NOTICIA WHERE ... seu codigo da data" 'Nessa consulta tu pega data Do If Not Rs.EOF Then SET GGS = Server.CreateObject("ADODB.Recordset") GGS.open "SELECT * FROM NOTICIA WHERE .... seu codigo da data" ' Nessa você manda ela imprimir as datas puxando a data da consulta anterior GGS.Close() SET GGS = Nothing RS.movenext END IF Loop While not RS.eof RS.Close() SET RS = Nothing Fiz isso em uma consulta que preciso imprimir os pedidos da data tal e listar todos eles (já que eu uso banco de dados access e infelizmente não consegui usar select distinct nele ), a desvantagem que se você não fechar as consultas depois sobrecarrega o banco pra caramba.

Boa tarde! Não sei se seria o lugar correto mas queria deixar uma pequena colaboração, em meio a pesquisa na internet não achei uma forma para o asp clássico de fazer replace entre duas variáveis definida e tentei estudar um pouco sobre replace e não consegui entender ao certo, então apelei. Em meio ao texto pode ser que precise remover algo que está entre o determinada parte do conteúdo, ex: Abacaxi <0,1111> desidratado, para Abacaxi desidratado. Criei a função abaixo: FUNCTION REPLACE_ENTRE(VARIAVEL,INICIO,FIM) TEXTO=VARIAVEL INICIA=split(TEXTO,INICIO) IF Ubound(INICIA)>"0" Then FINALIZA=split(INICIA(1),FIM) REPLACE_ENTRE=INICIA(0)&""&FINALIZA(1) ELSE REPLACE_ENTRE=TEXTO END IF END FUNCTION Para fazer o replace chama ela dessa forma, caso queira pode fazer a alteração dos caracteres para qualquer um que deseja (desde que haja diferença entre elas tipo: [ , ], <,>, sx, xs): REPLACE_ENTRE("Variavel que deseja fazer replace","caractere que identifica inicio","caractere que identifica o final") Quero retirar uma parte do texto onde fica entre os caracteres "[" e "]". Há quem o faça [mas não o aconselha] por isso não o farei. FUNCTION REPLACE_ENTRE(VARIAVEL,INICIO,FIM) TEXTO=VARIAVEL INICIA=split(TEXTO,INICIO) IF Ubound(INICIA)>"0" Then FINALIZA=split(INICIA(1),FIM) REPLACE_ENTRE=INICIA(0)&""&FINALIZA(1) ELSE REPLACE_ENTRE=TEXTO END IF END FUNCTION TEXTO="Há quem o faça [mas não o aconselha] por isso não o farei." TEXTO=REPLACE_ENTRE(TEXTO,"[","]") Imprimindo a variável ela ficará assim: Há quem o faça por isso não o farei. É isso ai