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