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

Se você está consultando com js. pede para imprimir no formulário em js.... <form name="myForm" method="post" action="visualizar.asp?codigo=<%=filtro("codigo")%> para <form name="myForm" method="post" action="visualizar.asp?codigo="imprima_o_codigo_em_js"> Eu desisti uma vez de fazer igual você de pegar o código e jogar no form na mesma pagina pois o asp sozinho eu acredito que não é dinâmica a ponto de você querer atualizar na mesma página a sua consulta sem dar um refresh, tive que apelar para esse modo. Página - 1 ' Aqui ele pesquisa a razão social e autocompleta... <script src="../js/jquery-1.5.2.min.js" language="javascript"></script><!-- se encontra no site http://jqueryui.com/autocomplete/ !--> <script src="../js/jquery.autocomplete.js" language="javascript"></script> <!-- se encontra no site http://jqueryui.com/autocomplete/ !--> <script type="text/javascript" language="javascript"> $(document).ready(function(){ $("#nome").focus().autocomplete("autocompletafiltro.asp",{ minChars: 1 , matchContains: true , scrollHeight: 220 , selectFirst: true , mustMatch: false , delay: 0 }); }); </script> <form name="form" method="post" action="consulta.asp"> <input name="nome" type="text" id="nome" autocomplete="on" style="width: 380px"/> <input type="submit" value="Continuar" name="submit"/> </form> Código do autocompletafiltro.asp <% Dim conexao Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=caminho_do_seu_mdb;Persist Security Info=False" 'Efetua a Conexão valor = Replace(Request.QueryString("q"),"'","") 'Valor que vem como parâmetro ' SQL de pesquisa sql = "SELECT * FROM tabela WHERE razao_social LIKE '%"&TRIM(valor)&"%' ORDER BY RAZAO_SOCIAL ASC" Set query = conexao.execute(sql) While Not query.eof ' Lista o nome response.write TRIM(query("RAZAO_SOCIAL"))&vbCrLf query.movenext Wend Set query = Nothing Set conexao = Nothing %> Página - 2 <% SET Conn = server.CreateObject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=caminho_do_seu_mdb;Persist Security Info=False" Conn.CursorLocation = 3 SET RS = Server.CreateObject("ADODB.Recordset") RS.open "SELECT * FROM tabela WHERE razao_social='"&request.form("nome")&"'", conn, 1,3 Do While not RS.eof %> Razão Social : <%=RS("razao_social")%> <a href="visualizar.asp?codigo=<%=RS("codigo")%>" > Clique aqui para visualizar </a> <% RS.movenext Loop RS.Close() SET RS = Nothing %> Ai na terceira página você recupera o código com o Request.QueryString("codigo")

Irei forçar ele a verificar se já existe no bd quando entrar na função e fazer com que ele saia da função só quando não existir no bd, obrigado xanburzum

Você já tentou usar "case"?

Pelo o que eu vi no seu código: If dataprevista <= datasaida () Then Tente assim: If dataprevista <= datasaida Then Aquele código que postei esta com um pequeno erro no IF, sou iniciante em asp... Retire "()" para ver o que vai dar, peço desculpas pela falta de atenção, o " Date() " Puxa a data atual, ela não é uma variável como datasaida dataprevista = "02/02/2000" datasaida = "04/02/2000" If dataprevista <= datasaida () Then ' Retira () só para testar mesmo

Boa tarde! Estou com uma pequena dúvida, possuo um código que gera um serial variando entre letras e números, para controle de rastreio de pedido, o problema é seguinte, eu gero o serial, ele faz uma consulta no banco de dados, para ver se já não possui o registro dele no banco, se já existe ele chama novamente a função e sai do IF, o problema é que queria consultar novamente no banco se o número que foi gerado já existe também, sei que talvez seja difícil mas vai que sai da função e gera outro serial mas que já existe no banco. Peguei essa função de um sistema do meu pai '-------------- Função -------------------' Private Function PW(ByVal length) Const HRF = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim MX Dim TPV Dim LOC Dim X Dim Y Dim WAR() If isnumeric( length ) Then MX = 62 : LOC = HRF Else PW = null Exit function End If TPV = "" For X = 1 to CInt( length - 1 ) Randomize Y = CInt( rnd * MX ) + 1 Randomize Y = CInt( rnd * Y ) + 1 If Y > MX Or Y < 1 Then Y = 3 TPV = TPV & mid( LOC, Y, 1 ) Next TPV = strreverse( TPV ) Randomize Y = CInt( rnd * 10 ) + 1 If Y > 10 Then Y = 1 TPV = TPV & mid( LOC, Y, 1 ) ReDim WAR( length ) For X = 1 to Len( TPV ) WAR( X - 1 ) = mid( TPV, X, 1 ) Next TPV = "" For X = 0 to UBound( WAR ) step 2 If X > UBound( WAR ) Then Exit For TPV = TPV & WAR( X ) Next For X = 1 to UBound( WAR ) step 2 If X > UBound( WAR ) Then Exit For TPV = TPV & WAR( X ) Next PW = cstr( strreverse( TPV )) End Function '------------- Fim Função ------------' SERIAL = PW(10) SET TS = Server.CreateObject("ADODB.Recordset") TS.open "SELECT * FROM HISTORICO_PEDIDO WHERE SERIAL='"&SERIAL&"'", conn IF TS.EOF then ELSE Response.Write "Tem serial" SERIAL = PW(10) END IF

Bom não testei o código mas a lógica talvez seja essa IF NOT isNull(DATA) THEN ' Também da para usar IF data <> "" THEN Response.Write "VERDE" IF data_prevista < Date() THEN ' Verifica se a data prevista esta menor que a data está no prazo Response.Write "Amarelo" ELSEIF data_prevista>Date() THEN ' Verifica se a data passou do prazo Response.Write "Vermelho" Else Response.Write "Não satisfez a condição Erro...." END IF Else ' Caso a data seja nula Response.Write "Data encontra-se vazia" END IF