Ir para conteúdo
Fórum Script Brasil

fantasma

Membros
  • Total de itens

    901
  • Registro em

  • Última visita

Tudo que fantasma postou

  1. fantasma

    Replace

    ok andreia também fiz assim mas estou com uma duvida porque, este grupo de palavra vem de um checkbox, dependendo da quantidade de seleção O COD É ESSE <% teste = split(replace(Request.form("checkbox"),",",",")) for i=lbound(teste) to ubound(teste) if teste(i)="LOCALIDADES" or teste(i)="LINK" THEN "SE ISSO FOR TRUE quero que de uma msg que o item localidade OU lINK deve ser selecionado sozinho. end if next %>
  2. fantasma

    Replace

    ainda não caiu a ficha, pode dar um luz
  3. fantasma

    Replace

    estou pegando no request.form("") tudo separado por virgula teste1,teste2,teste3, tenho como comparar se existe uma paralavra teste4 com if e replace????
  4. fantasma

    Filtro Simples

    E´so você fazer um select depois gerar as tabelas ????? você não tem como hospedar para que possa ver
  5. fantasma

    Filtro Simples

    Eu não entendi direito você pode explicar melhor? eu vi que tem um campos resposta, você quer clicar no link e aparece um relatorio daquele determinado registro.!!!!!!!!!!!!!
  6. fantasma

    Porta Paralela

    http://www.asp101.com/articles/john/server...int/default.asp
  7. fantasma

    Filtro Simples

    você pode postar o cod?
  8. <body> <div id="Layer1" style="position:absolute; left:10px; top:11px; width:990px; height:580px; z-index:1; overflow: auto;"> <form> <table width="190" border="1" align="center"> <tr> <td><div align="center"><span class="style6"><a href="relacao.asp">Rela&ccedil;&atilde;o de Cursos </a></span></div></td> </tr> </table> <% sql = "Select * From mini WHERE treinamento LIKE '%CONCRETO SP%' ORDER BY data DESC" Set rs = bco.Execute(sql) if rs.eof then Response.Write("<p align=""center"">NÃO HÁ CADASTROS.</p>") else %> <p><input name="id" type="hidden" id="id" value=""></p> <table width="605" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC"> <tr> <td colspan="7"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Relat&oacute;rio de Inscritos no Minicurso: <span class="style10">Concreto Armado</span></span></div></td> </tr> <tr> <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Id</span></div></td> <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Data</span></div></td> <td width="147"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Empresa</span></div></td> <td width="48"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Contato</span></div></td> <td width="129"><div align="left"><span class="style11">Email</span></div></td> <td width="25"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">DDD</span></div></td> <td width="94"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tel</span></div></td> <td width="75"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Confirma&ccedil;&atilde;o</span></div></td> </tr> <% contado=0 Do While Not rs.eof contador=contador+1 %> <tr> <td nowrap="nowrap"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=contador%></span></div></td> <td nowrap="nowrap"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("data")%></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("empresa")%></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("contato")%></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"></span></div></td> <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><</span></div></td> <td nowrap="nowrap"><div align="center"> <div align="center"><a href="" class="link02 style9">[Confirma]</a></div> </div></td> </tr> <% rs.MoveNext Loop end if %> </table> </form> </div> </body>
  9. Eu não entendi , você pode explica melhor
  10. http://www.criarweb.com/artigos/421.php http://www.sosdesigners.com/colunas-47.html você tem que ter componente instalado na maquina
  11. fantasma

    Sql

    alguém pode me dizer, se pode ser pau do access ???????
  12. fantasma

    Sql

    beleza já vi o erro rodou legal mas continua cortando email desta maneira ele le ate um determinado ponto do campo e não le o restante vou dau um exemplo se eu faço issso da certo sql="select * from tab_serv where tipo_serv='"&strQ&"'" set objRS=DB.execute(sql) ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br se eu faço da sua maneira a query le ate um determinado ponto do campo. lembrando que é access ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss@teste.com.br;xxx@teste.com.br;ssss.............................
  13. fantasma

    Sql

    Tipo de erro: ADODB.Recordset (0x800A0CC1) O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado. /teste/informativo/recserv.asp, line 218 sera que dar para fazer com group by ????
  14. fantasma

    Sql

    esta dando este erro Progr'amador Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] Referência circular causada pelo alias 'email1' na lista SELECT da definição da consulta.
  15. fantasma

    Sql

    o filtro esta comparando o tipo do serviço, se for igual o tipo de serviço ...............pois eu entendi o que você disse mas o campos email tem muita coissa..... quero que pegue somente os email diferentes
  16. fantasma

    Sql

    tenho uma tabela de email 50 email no access campo memorando quando faço isso sql="select DISTINCT email1 from tab_serv where tipo_serv='"&strQ&"'" set objRS=DB.execute(sql) ele não retorna todos os emails agora se eu fizer isso sql="select * from tab_serv where tipo_serv='"&strQ&"'" set objRS=DB.execute(sql) ai ira retornar todos os email, mas eu não quero ter duplicidade de email Como eu faço
  17. você pode explicar melhor pois não entendi.????
  18. fantasma

    Janela De Alerta!

    você tem que usar vbscript <script Language="VBScript"> ver= MsgBox ("Olá, este é um teste de Alert do VBScript", 16, "Teste de título") </script> Dependendo do simbolo, so trocar a numeração 0 = OK ---> e retorna o valor 1 1= OK e Cancel ----> e retorna o valor 2 2= Abort, Retry e Ignore ----> Abort retorna valor 3, retry o valor 4 e Ignore valor 5; 3= Yes, No e Cancel 4= Yes e No ---> yes retorna valor 6 e no valor 7 5= Retry e Cancel 16= Ícone de mensagem Crítica 32= Ícone de aviso (pergunta) 48= Icone de aviso (mensagem) 64= Ícone de informação
  19. select * fron tabela where id<>1 and id<>2 and id<>3 and id<>4 depois você faz outro while deve dar certo
  20. Set objRS = objDB.Execute("SELECT top 15 * FROM tabela order by id desc") tenta assim
  21. Set objRS = objDB.Execute("SELECT top 20 * FROM tabela order by id desc")
  22. Eu acho que não tem como fazer isso mas você pode buscar a imagem e no codigo asp deixar o tamanho que você quer para apresentar a sua imagem.
  23. <% Dim mySessionID mySessionID = Session.SessionID response.write mySessionID if mySessionID=Session.SessionID then Session.Abandon end if %>
×
×
  • Criar Novo...