Jump to content
Fórum Script Brasil

Rodrigo_Linhas

Membros
  • Content Count

    64
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Rodrigo_Linhas

  • Birthday 09/18/1984

Contatos

Perfil

  • Gender
    Male
  • Location
    São Paulo
  1. 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"
  2. 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
  3. 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'
  4. 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 |
  5. 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 d
  6. 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
  7. 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 t
  8. 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&
  9. 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?
  10. 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.QueryS
  11. 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 PA
  12. 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.d
  13. Desculpe na página o código esta certo, eu só errei aqui no forum colocando 2 select, o que será que esta errado?
  14. 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"))&"# An
  15. 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
×
×
  • Create New...