Rodrigo_Linhas

Consegui achar uma solução, segue abaixo a lógica! <% MeuArray = ("Amarelo, Vermelho, Verde, Azul") 'Este MeuArray é aleatório, existe mais de 10 mil opções Cores = Split(MeuArray, ",") Cor = 1 For Each item In Cores Execute("VCores"& Cor & " = item") Cor = Cor + 1 Next Cor = Cor - 1 For j=1 to Cor StrCores = StrCores & eval("VCores" & j) Next %> <%=StrCores%> Desta forma consigo colocar a String onde eu quero fora do "For Each"

Olá, tenho um scrpit e gostaria de saber se consigo pegar o array, transformar em variavel e colocar ela fora do Next? Segue o Exemplo: <% MeuArray = ("Amarelo, Vermelho, Verde, Azul") 'Este MeuArray é aleatório, existe mais de 10 mil opções Cores = Split(MeuArray, ",") For Each item In Cores Execute("VCores = item") 'Já usei essa função mas só aparece a ultima Array VCores = Response.Write(item & "<br>") 'Essa função ele trabalha com o next, mas só funciona assim! Next %> <%=VCores%> 'Aqui só chega a ultima Array. Tenho a necessidade de pegar todas fora do next, já procurei em varios foruns e sites em vbscript e não encontrei nada parecido, alguém conhece outra forma de fazer isso?

Marcelo_2, desde já lhe agradeço pela ajuda e pela indicação desses sites, utilizo outros pra estudo e já guardei esses no meus favoritos. Obrigado Marcelo era isso mesmo, quando precisar em algo que eu possa ajudar estarei aqui valeu! select produto from cadastro where usuario='A1'

Boa noite a todos, procurei em varios topicos e não achei nada parecido, acredito que é algo facil e desde já agradeço a todos que possam me ajudar! O código até funciona, porém não da forma correta. Quando o usuario A1 acessar a página do produto SD12 preciso exibir uma mensagem de que ele já se cadastrou naquele produto, isso eu consegui mas quando ele visita a página G254 que ele não tem cadastro, a mensagem que ele se cadastrou naquele produto também aparece! Banco de Dados Tabela: Cadastro colunas: Id | usuario | produto 1 | A1 | SD12 2 | A1 | XP05 3 | C3 | G254 Esse codigo abaixo é o que exibe do banco: SELECT usuario, produto FROM cadastro where usuario BETWEEN 'A1' and 'SD12' Esse outro código é o que exibe a mensagem <% if rs.eof and rs.bof then response.write "Você não é cadastrado neste produto" else response.write "Você já é cadastrado neste produto" end if %> Porque será que ele mostra a mensagem que o usuario A1 já tem cadastro no produto G254?

Obrigado mais uma vez Rafael, você conseguiu abrir minha mente, fiz dessa maneira acima que você mencionou e deu certo só que acabei deixando de outra porque ele só exibe e emite som quando o cliente é diferente: Essa pagina abaixo exibe os clientes comum, quando for cadastrado um cliente avulso ele vai jogar para outra página que só exibe os clientes avulsos. listar-registros.asp sql = "select * from cliente where status='avulso'" rs.open sql,conn if rs.eof then else Response.Redirect"listar-avulsos.asp" <meta http-equiv="refresh" content="30"> Na pagina abaixo vai ficar dando reflesh a cada 3 minutos redirecionando para pagina acima listar-registros.asp, e toda vez que a página abaixo for carregada vai tocar o audio avisando que tem um cliente avulso aguardando até que os status seja mudado. listar-avulsos.asp Set rs = Server.CreateObject( "ADODB.Recordset" ) sql = "SELECT * FROM servico where status='avulso' order by codigo asc" rs.open sql, conexao, 3, 3 <meta http-equiv="refresh" content="180;url=listar-registros.asp"> <audio src=alerta.wav controls autoplay></audio>

Boa noite galera, procurei aqui no forum e não achei o que estou precisando, será que tem alguém que possa me ajudar. Tenho uma página que lista os registro do banco de dados o nome da página é "Listar-registros.asp", eu gostaria que essa página tocasse um som de alerta automático toda vez que fosse inserido um novo registro. Não tenho ideia como posso fazer isso, já estou a dias procurando algo e não acho. Obs. A pagina que tem que tocar o som automatico tem que ser a "Listar-registros.asp" pois essa página ficará em um computador só com essa página aberta e os funcionários iriam se alertar que tem um novo registro cadastrado. :unsure:

Olá galera, já procurei no forum aqui e num achei o que preciso, queria saber se alguém possa me ajudar??? Tenho um código aqui que exibe a seguinte informação: Faltam 5 horas para Entrar no Site São frases de aviso de acordo com a hora E o código segue abaixo: <% Hora = Hour(now) if hora = 1 then response.write("Faltam 5 horas para Entrar no Site") elseif hora = 2 then response.write("Faltam 4 horas para Entrar no Site") elseif hora = 3 then response.write("Faltam 3 horas para Entrar no Site") elseif hora = 4 then response.write("Faltam 2 horas para Entrar no Site") elseif hora = 5 then Response.Redirect("http://www.site.com.br") elseif hora = 6 then response.write("Faltam 24 horas para Entrar no Site") elseif hora = 7 then response.write("Faltam 23 horas para Entrar no Site") elseif hora = 8 then response.Write("Faltam 22 horas para Entrar no Site") elseif hora = 9 then response.Write("Faltam 21 horas para Entrar no Site") elseif hora = 10 then response.Write("Faltam 20 horas para Entrar no Site") elseif hora = 11 then response.Write("Faltam 19 horas para Entrar no Site") elseif hora = 12 then response.Write("Faltam 18 horas para Entrar no Site") elseif hora = 13 then response.Write("Faltam 17 horas para Entrar no Site") elseif hora = 14 then response.Write("Faltam 16 horas para Entrar no Site") elseif hora = 15 then response.Write("Faltam 15 horas para Entrar no Site") elseif hora = 16 then response.Write("Faltam 14 horas para Entrar no Site") elseif hora = 17 then response.Write("Faltam 13 horas para Entrar no Site") elseif hora = 18 then response.Write("Faltam 12 horas para Entrar no Site") elseif hora = 19 then response.Write("Faltam 11 horas para Entrar no Site") elseif hora = 20 then response.Write("Faltam 10 horas para Entrar no Site") elseif hora = 21 then response.Write("Faltam 9 horas para Entrar no Site") elseif hora = 22 then response.Write("Faltam 8 horas para Entrar no Site") elseif hora = 23 then response.Write("Faltam 7 horas para Entrar no Site") elseif hora = 24 then response.Write("Faltam 6 horas para Entrar no Site") End If %> O codigo acima esta tudo funcionando certinho, e eu gostaria de saber se tem como eu colocar os avisos a cada 10 minutos no codigo acima, por exemplo: 1:00 - Faltam 5 horas para Entrar no Site 1:10 - Frases Personalizadas 1:20 - Frases Personalizadas 1:30 - Frases Personalizadas 1:40 - Frases Personalizadas 1:50 - Frases Personalizadas 2:00 - Faltam 4 horas para Entrar no Site E assim por diante, alguém consegue me ajudar???

Olha eu mudei a estrutura mas não tive um bom resultado, de uma olhada: Aparece assim: Não era para aparecer a ultima imagem, era para exibir as 8 imagens e o botão de ir para proxima pagina <table border="1" width="177" id="table1"> <% If Not rs1.EOF Then rs1.AbsolutePage = intpagina intrec = 0 While Not RS1.Eof And intrec < rs1.PageSize %> <tr> <%for i = 1 to 4%> <td><p align="center"><a href="<%=rs1("foto")%>" rel="lightbox" title=""><img src="<%=rs1("fotolink")%>" alt=""/></a></td> <%rs1.movenext%><%next%> </tr> <% intrec = intrec + 1 Wend %> </table>

O Bareta muito obrigado pela ajuda, só tem um probleminha e agora me perdi, ve se você pode me ajudar: Preciso que aparece assim: coluna 1 | coluna 2 | coluna 3 | coluna 4 foto n. 1 | foto n. 2 | foto n. 3 | foto n. 4 foto n. 5 | foto n. 6 | foto n. 7 | foto n. 8 com esse codigo acima que você me mandou ficou com 5 colunas e continuou mostrando mais de 8 registros, o que eu faço agora?

Olá galera, estou com um problema na minha paginação e não consigo resolver, gostaria de saber se alguém possa me ajudar. O Problema é que eu limitei o 8 registros por pagina e continua aparecendo mais que 8. segue o código abaixo: Esse é o Código de conexao e paginação Set rs = Server.CreateObject( "ADODB.Recordset" ) strrs = "SELECT * FROM artesanato where categoria='abajures' order by uid asc" rs.open strrs, conexao, 3, 3 rs.PageSize = 8 rs.CacheSize = 8 if rs.eof then Response.Redirect"erro.asp" Response.End else if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rs.PageCount then intpagina = rs.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if Esse abaixo são as colunas que estão dando problema, acredito eu rsrsrsrs <% If Not rs.EOF Then rs.AbsolutePage = intpagina intrec = 0 Do While Not RS.Eof %> <ul> <li class="first"> <a href="<%=rs("foto")%>" rel="lightbox" title=""><img src="<%=rs("foto-link")%>" alt=""/></a> <h4 align="center"><%=rs("nome")%> - <%=rs("codigo")%></h4> <p align="center"><%=rs("entrega")%></p> <p align="center"><span>SOLICITAR ORÇAMENTO</span> </li><% RS.MoveNext %><% If RS.EOF Then Exit Do %> <li> <a href="<%=rs("foto")%>" rel="lightbox" title=""><img src="<%=rs("foto-link")%>" alt=""/></a> <h4 align="center"><%=rs("nome")%> - <%=rs("codigo")%></h4> <p align="center"><%=rs("entrega")%></p> <p align="center"><span>SOLICITAR ORÇAMENTO</span> </li><% RS.MoveNext %><% If RS.EOF Then Exit Do %> <li> <a href="<%=rs("foto")%>" rel="lightbox" title=""><img src="<%=rs("foto-link")%>" alt=""/></a> <h4 align="center"><%=rs("nome")%> - <%=rs("codigo")%></h4> <p align="center"><%=rs("entrega")%></p> <p align="center"><span>SOLICITAR ORÇAMENTO</span> </li><% RS.MoveNext %><% If RS.EOF Then Exit Do %> <li> <a href="<%=rs("foto")%>" rel="lightbox" title=""><img src="<%=rs("foto-link")%>" alt=""/></a> <h4 align="center"><%=rs("nome")%> - <%=rs("codigo")%></h4> <p align="center"><%=rs("entrega")%></p> <p align="center"><span>SOLICITAR ORÇAMENTO</span> </li><% RS.MoveNext %><% If RS.EOF Then Exit Do %> </ul> <% loop End If intrec = intrec + 1 if rs.eof then response.write " " end if %> E por ultimo os botões da Paginação <% if intpagina>1 then %> <INPUT TYPE="BUTTON" VALUE="<<< Anterior" ONCLICK="window.location.href='new_arrival.asp?pagina=<%=intpagina-1%>'"> <% end if if StrComp(intpagina,rs.PageCount)<>0 then %> <INPUT TYPE="BUTTON" VALUE="Próximo >>>" ONCLICK="window.location.href='new_arrival.asp?pagina=<%=intpagina + 1%>'"> <% end if rs.close Set rs = Nothing %>

Olá galera estou com um probleminha e não consigo resolver, preciso filtrar uma busca mas os dados não aparecem! SEGUE O CODIGO QUE ESTOU FAZENDO O FILTRO: Set rs1 = Server.CreateObject( "ADODB.Recordset" ) strrs1 = "SELECT * FROM titulos where despesa = '"&Request.Form("tipo")&"' AND dataemissao BETWEEN #"&formatadata(request.form("datainicial"))&"# AND #"&formatadata(request.form("datafinal"))&"#" rs1.open strrs1, conexao, 3, 3 Será se tem haver com os dados que esta recebendo do Request.Form("tipo"), pois estão com acentos e traços? SEGUE O SELECT QUE ENVIA PARA O REQUEST.FORM <select name="tipo" size="1"> <option>SELECIONE</option> <option value="140 - ANTECIPAÇÃO DE VALE TRANSPORTE">140 - ANTECIPAÇÃO DE VALE TRANSPORTE</option> <option value="120 - AMORTIZAÇÃO DE IMPRESTIMOS/FINANCIAMENTOS/CONSORCIOS">120 - AMORTIZAÇÃO DE IMPRESTIMOS/FINANCIAMENTOS/CONSORCIOS</option> <option value="106 - CONTRIBUIÇÃO E ASSIST. / SINDICATOS">106 - CONTRIBUIÇÃO E ASSIST. / SINDICATOS</option> </select>

Continua na mesma... o primeiro da o resultado certinho cara, mas o segundo já não aparece certo, o que será???? Eu ultilizo os dois códigos na mesma página, será q pode ser isso? Primeiro Resultado: 143:00:00 rs1.open "select Sum(ponto.tardeentrada) AS SomarEntrada, Sum(ponto.manhasaida) AS SomarSaida, ([SomarEntrada]-[SomarSaida]) AS SomarTotal, ([SomarTotal]*86400) AS Dias, Round(([Dias] Mod 3600),0) AS Sobra, (([Dias]-[Sobra])/3600) AS Horas, (([Sobra]-([Sobra] Mod 60))/60) AS Minutos, ([Sobra] Mod 60) AS Segundos FROM ponto HAVING (((ponto.id)='"&Request("id")&"') AND ((ponto.data) Between #"&formatadata(request.form("datainicial"))&"# And #"&formatadata(request.form("datafinal"))&"#))" Segundo Resultado: 24,9999999999999:0:0 rs2.open "select Sum(ponto.manhaentrada) AS SomaDeentrada, Sum(ponto.tardesaida) AS SomaDesaida, ([SomaDesaida]-[SomaDeentrada]) AS SomaTotal, ([SomaTotal]*86400) AS Dias, Round(([Dias] Mod 3600),0) AS Sobra, (([Dias]-[Sobra])/3600) AS Horas, (([Sobra]-([Sobra] Mod 60))/60) AS Minutos, ([Sobra] Mod 60) AS Segundos FROM ponto HAVING (((ponto.id)='"&Request("id")&"') AND ((ponto.data) Between #"&formatadata(request.form("datainicial"))&"# And #"&formatadata(request.form("datafinal"))&"#))"

Desculpe na página o código esta certo, eu só errei aqui no forum colocando 2 select, o que será que esta errado?

valeu bareta, resolvel meu problema só que fico com uma dúvida: Esse código abaixo é o que você me mandou e da certinho: SELECT Sum(teste.entrada) AS SomaDeentrada, Sum(teste.saida) AS SomaDesaida, ([SomaDesaida]-[SomaDeentrada]) AS SomaTotal, ([SomaTotal]*86400) AS Dias, Round(([Dias] Mod 3600),0) AS Sobra, (([Dias]-[Sobra])/3600) AS Horas, (([Sobra]-([Sobra] Mod 60))/60) AS Minutos, ([Sobra] Mod 60) AS Segundos FROM teste HAVING (((teste.id)="&Request("id")&") AND ((teste.data) Between #"&formatadata(request.form("datainicial"))&"# And #"&formatadata(request.form("datafinal"))&"#)); Usei o mesmo código e modifiquei as colunas para fazer outra soma e deu errado, o que será? SELECT Sum(ponto.tardeentrada) AS SomaEntrada, Sum(ponto.manhasaida) AS SomaSaida, ([SomaEntrada]-[SomaSaida]) AS SomaTotal, ([SomaTotal]*86400) AS Dias, Round(([Dias] Mod 3600),0) AS Sobra, (([Dias]-[Sobra])/3600) AS Horas, (([Sobra]-([Sobra] Mod 60))/60) AS Minutos, ([Sobra] Mod 60) AS Segundos FROM ponto HAVING (((ponto.id)='"&Request("id")&"') AND ((ponto.data) Between #"&formatadata(request.form("datainicial"))&"# And #"&formatadata(request.form("datafinal"))&"#))" Ele me da esse resultado: 24,9999999999999:0:0

Segue uma função que eu conheço: SQL = SELECT COUNT(ANUNCIOS.IDCATEGORIA) AS TOTAL, CATEGORIAS.ID, CATEGORIAS.CATEGORIA FROM CATEGORIAS, ANUNCIOS WHERE ANUNCIOS.ATIVACAO = 1 GROUP BY ANUNCIOS.IDCATEGORIA Ai você pode fazer dentro do seu while assim: while not rs.eof response.write rs("categoria")&"("&rs("total")&")" rs.movenext wend

O arquivo Global.asa é um arquivo opcional que pode conter informações de objetos, variáveis ​​e métodos que podem ser acessados ​​por todas as páginas em uma aplicação ASP. Todos os scripts browser válido (JavaScript, VBScript, JScript, PerlScript, etc) podem ser usados ​​dentro Global.asa. O arquivo Global.asa pode ter: eventos de aplicativo eventos de sessão declarações <object> declarações TypeLibrary directiva # include Exemplo: Tem contador de visitas que ultiliza um Global.asa 'a linha abaixo define a linguagem a ser utilizada. <script LANGUAGE=VBSCRIPT RUNAT=SERVER> Sub Application_OnStart() 'criando uma sub-rotina global. 'criando uma variavel global, que será iniciada com uma visita. Application("visitas") = 1 End Sub 'fechando a sub-rotina. Sub Session_OnStart() 'criando uma sessão global exclusivo para cada usuário. Application.Lock 'bloqueia o acesso de dois usuários ao mesmo tempo 'a linha é um contador de acessos, ou seja, 'incrementado quando um novo usuário entrar no site. Application("visitas") = Application("visitas") + 1 'desbloqueia o acesso para que um novo usuário 'para incrementar o contador Application.UnLock End Sub 'fechando a sessão. 'a linha abaixo fecha o servidor do servidor. </SCRIPT> Página que exibirá o contador <html><head><title>Sevenlink</title></head> <body> <br><%=Application("visitas")%> <-- exibindo o valor do contador--> </body> </html>

é isso mesmo, sua conta esta certa, a minha também deu a mesma, agora como eu vou ultilizar essa função, estou com dificuldades, você não pode me ajudar Kuroi?

Eu pequei o total de horas de saida que deu o resultado correto: rs5.open "select SUM (tardesaida) as total from ponto WHERE id='"&Request("id")&"' AND Data BETWEEN #"&formatadata(request.form("datainicial"))&"# AND #"&formatadata(request.form("datafinal"))&"#" Peguei o total de horas de entrada que também deu certo: rs2.open "select SUM (manhaentrada) as total from ponto WHERE id='"&Request("id")&"' AND Data BETWEEN #"&formatadata(request.form("datainicial"))&"# AND #"&formatadata(request.form("datafinal"))&"#" Ai o que eu fiz, subtrai a saida menos entrada que deu o resultado! ultilizei o código abaixo apara fazer as somas: <% 'Total de horas Saída n2 = ""&rs5("total")&"" 'Total de horas Entrada n1 = ""&rs2("total")&"" totalTempo = n2 - n1 soma1 = (totaltempo & "") %> Total de horas já somado <%=Response.Write(soma1)%> Agora só preciso converter esse resultado para horas conforme eu disse acima, o Resultado deu 16,31666667 se eu converter este resultado em horas vai dar 445:00:00. Você tem algum código que faz isso Kuroi?

Seria mais ou menos isso: <%Response.Charset="ISO-8859-1"%> <HTML> <HEAD> <TITLE>.:: Combos com AJAX ::.</TITLE> <META NAME="Author" CONTENT="Wellington Marinheiro"> <script src="lanc_ComboAjax.js"> </script> </HEAD> <BODY> <% if request.queryString("at")= "" then db = Server.MapPath("dados.mdb") Set cnn = Server.CreateObject("adodb.Connection") cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db &";" SQL="SELECT * FROM tb_Lanc_categ ORDER by categoria" SET rs = Server.CreateObject("Adodb.recordset") rs.Open SQL,cnn if not rs.eof then lista = rs.getrows() total = ubound(lista,2) end if rs.close set rs = nothing %> <CENTER> Utilizando AJAX para atualizar um COMBOBOX <hr> <form name="form" action="index.asp?at=1" method="post"> <table border="1" bgcolor=#F4F4F4 width=40% align="center"> <tr> <td><B>Categoria</B> <td> <select name="categoria" class="select" Onchange="atualizaLanc(this.value);"> <option value="">selecionar... <% for t=0 to total response.write "<option value=" & lista(0,t) & "|" & lista(1,t) &">" & lista(1,t) & "</option>" next%> </select> <tr> <td><B>Lançamento:</B> <td> <div id="lanc"> <select name="Lancamento"> <option value="">Selecionar categoria</option> </select> </div> <tr> <td colspan="2" align="center"> <INPUT TYPE="submit" value="Enviar"> </tr> </table> </form> </CENTER> <% else response.write "<div align=center><B>Resultado:</B><BR>" response.write "Categoria selecionada: " & request.Form("nomecat") & "<BR>" response.write "Lançamento: " & request.Form("lancamento") & "<BR><BR>" response.write "<A HREF='index.asp'>Nova escolha</A>" response.write "</div>" end If %> </body> </html> Clique aqui para baixar o script completo

Olha eu fiz uma conta rápida, e assim descobri o problema, acho que agora fica mais facil para me ajudar!!!! Os códigos acima estão somando certo, o Resultado deu 16,31666667 se eu converter este resultado em horas vai dar 445:00:00 então eu só preciso de um código que converta esses 16,31666667 em horas igual a 445:00:00.

ixi eu nem sei fazer isso, você não consegue me ajudar por etapa Kuroi?

Nossa o resultado saiu assim Kuroi 0:0016,3166666666667, acho que vou começar do zero e explicar tudo! Minha necessidade é de somar horarios de um funcionário atrazes de uma pesquisa, preciso que some os horarios só no periodo que eu selecionei, Tenho uma pagina que faz uma pesquisa por data, ex. 20/05/2011 á 20/06/2011. E essa pagina é a Pesquisa.asp Ela tem a action do formulario como action="pesquisar.asp?id=<%=rs("id")%> com a id do funcionário, bom até aqui esta tudo ok com esta página AGORA A PÁGINA DE RESULTADOS QUE ESTA DANDO PROBLEMA NAS SOMAS! Resultados.asp?id=blablabla rs2.open "select SUM (((Hour(ponto.manhaentrada)*60)+(Minute(ponto.manhaentrada )))/60) as SomaHora from ponto WHERE id='"&Request("id")&"' AND Data BETWEEN #"&formatadata(request.form("datainicial"))&"# AND #"&formatadata(request.form("datafinal"))&"#" Meu Banco de Dados! TEBELAS funcionarios: id,nome ponto: id, data, manhaentrada, manhasaida só que os resultados não tem nada haver

Será se alguém tem a solução e possa me dar um help???

Olha eu não sei o que esta dando de errado, a conta era pra dar o resultado de 391:36:00 e esta dando 190,25, fiz certinho como você colocou acima! Será que este Between esta atrapalhando, é que minha necessidade é que eu selecione as datas e ele some os horarios da data selecionada! "select SUM (((Hour(ponto.manhaentrada)*60)+(Minute(ponto.manhaentrada)))/60) as SomaHora from ponto WHERE id='"&Request("id")&"' AND Data BETWEEN #"&formatadata(request.form("datainicial"))&"# AND #"&formatadata(request.form("datafinal"))&"#"

Ixiiii ai ferrou rsrsrs não manjo em fazer adaptações já quebrei a cabeça e não consegui nenhum resultado!