Ir para conteúdo
Fórum Script Brasil

PhoEniXFirE

Membros
  • Total de itens

    231
  • Registro em

  • Última visita

Tudo que PhoEniXFirE postou

  1. Deu no mesmo: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A005E) Uso inválido de Null: 'CStr' /enderecosuteis/endereco.asp, line 27 No caso na linha Response.Write(Replace(CStr(rs("informacoes")), chr(10), "<br>" & chr(10)))
  2. Estou utilizando o seguinte código... <% If rs("informacoes") <> "" Then Response.Write(Replace(rs("informacoes"), chr(10), "<br>" & chr(10))) End If%> E o campo no banco esta com conteudo. Mas estou recebendo a seguinte msg de erro: Erro de tempo de execução do Microsoft VBScript (0x800A005E) Uso inválido de Null: 'Replace' /enderecosuteis/endereco.asp, line 28 porque diz esta vazio se tem conteúdo? :blink: Fiz uns testes aqui e vejam só! quando uso só <%Response.Write(Replace(rs("informacoes"), chr(10), "<br>" & chr(10)))%> funciona! Mas o campo informações n pode está vazio que dá erro. Aquele If seria p impedir que dar erro, mas na verdade está atribuindo para rs('informacoes') um valor null, pois quando uso <% If rs("informacoes") <> "" Then 'Response.Write(Replace(rs("informacoes"), chr(10), "<br>" & chr(10))) Response.Write(rs("informacoes")) End If%> N aparece nd
  3. PhoEniXFirE

    Permissão Negada

    Seguindo suas instruções consegui liberar a alteração por FSO a um arquivo TXT, mas isso terei que fazer com todos os arquivos que precisar usar, tem pastas com 100 arquivos asps. e cada um com um contador, n tem como desativar esta proteção de segurança no geral ?
  4. PhoEniXFirE

    Replace E Busca No Bd

    Sim, mas só exibirá as palavras que iniciem com a letra A com acento agudo, tem que ser todas as palavras que iniciem com a letra A independente de ter acentos ou não... Sabe como fazer, outra pessoa?
  5. PhoEniXFirE

    Replace E Busca No Bd

    E para listar as palavras que iniciam com a letra A acentuada?
  6. E como fazer a lista, por ex, da letra A, incluindo os acentos ? Estou usando "SELECT * FROM enderecos WHERE nome LIKE 'A%'"
  7. Boa, resolvido. Neste tópico o assunto principal é replace, e terei problemas com acentos e testei aqui e deu certo: If replace(Left(rs("Nome"), 1),"Á","A") <> letra Then letra = replace(Left(rs("Nome"), 1),"Á","A") a letra A que iniciar com acento agudo, vai listar como A sem acento, ok. Mas temos mtos outros acentos e mais 4 consoantes, além do Ç, mas este n vem ao caso, já que n se inicia palavra com o mesmo. Como faço p facilitar?
  8. Valeu kuroi ! Agora vou aproveitar este tópico para perguntar, se e quiser dar um SELECT somente nos nomes de uma primeira letra? Por exemplo exibir somente os nomes que iniciam com a letra B?
  9. Estou com um trabalhando num sistema de End Úteis, onde os nome ficam listados, mas está um pouco bagunçado, seria melhor p visualizar se antes de dos nomes viessem a letra da 1º palavra destacado, já que é em ordem alfabetica, tipo assim: A Associação Bom Samaritano Adab B Banco do Brasil Banco Bradesco Banco Sicoob C Caixa Economica Federal Ciretran Correios ... Eu n sei como posso fazer isso, alguém sabe?
  10. Deu um trabalhindo como da vez da substituição de letras acentuadas, mas consegui agora. Olha o tamanho que ficou: SELECT Conteudo.Secao, Tipo.Descricao As Descricao, Tipo.Cod AS Cod, (SELECT COUNT (*) FROM Conteudo WHERE Conteudo.Secao = Tipo.Cod) AS TOTAL FROM Tipo INNER JOIN Conteudo ON Conteudo.Secao = Tipo.Cod GROUP BY Conteudo.Secao, Tipo.Descricao, Tipo.Cod ORDER BY Descricao ASC Acho quem resolveu o problema da repetição foi este GROUP BY, p que serve?
  11. já tinha feito assim e também por INNER JOIN SELECT * FROM Tipo INNER JOIN Conteudo ON Conteudo.Secao = Tipo.Cod Mas olha o só que acontece: Comércios: » Bombonieres (1) » Churrascarias / Restaurantes (2) » Churrascarias / Restaurantes (2) » Escolas / Cursos (1) » Farmácias (3) » Farmácias (3) » Farmácias (3) » Financeiras (1) » Hotéis / Pousadas / Motéis (1) » Lojas / Boutiques (2) » Lojas / Boutiques (2) » Materais de Construção (1) » Moto Peças / Bicicletas (1) » Óticas (1) » Portas / Portões Eletrônicos (1) » Pronta Entrega (1) » Relojoarias / Joalherias / Bijuterias (1) » Salões de Beleza (1) » Sapatarias (1) » Serralherias (2) » Serralherias (2) » Sorveterias (1) » Supermercados / Mercadinhos (2) » Supermercados / Mercadinhos (2) » Vidraçarias (2) » Vidraçarias (2) O número de comércios que tem adicionados é usando também p apresentar as categorias, o erro será que está no While ?
  12. +/- assim: Na página inicial vê: Padarias (1) Papelaria (0) Mercadinho (0) Famarcias (2) Vidraçaria (1) ------------------------- No caso o que n tem nenhum comercio, n aparecerá, ficará só: Padarias (1) Famarcias (2) Vidraçaria (1) ------------------------- Meu cód é este: <% set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Conn ' RS.Source = "SELECT COUNT (*) FROM Conteudo WHERE Conteudo.Secao = Tipo.Cod HAVING COUNT(*) > 0 ORDER BY Descricao ASC" RS.Source = "SELECT *, (SELECT COUNT (*) FROM Conteudo WHERE Conteudo.Secao = Tipo.Cod) AS TOTAL FROM Tipo HAVING COUNT(*) >=1 ORDER BY Descricao ASC" RS.Open() %> <table border="0" cellpadding="5" cellspacing="3" style="border-collapse: collapse" width="460"> <% startrw = 0 endrw = 0 numberColumns = 2 numrows = -1 while((numrows <> 0) AND (Not RS.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <tr> <% While ((startrw <= endrw) AND (Not RS.EOF)) %> <td align="center" style="font-family: Tahoma, Verdana, Arial; font-size: 9 pt;">» <font size=2 style="font-weight:700"><A HREF="comercio.asp?tipo=<%=(RS.Fields.Item("Cod").Value)%>" style="color: #9C1208;"><%=(RS.Fields.Item("Descricao").Value)%></A></font><font face=arial size=1> <i>(<%=(RS.Fields.Item("total").Value)%>)</i></td> </td> <% startrw = startrw + 1 RS.MoveNext() Wend %> </tr> <% numrows=numrows-1 Wend %> O que devo fazer? Se o Having soluciona eu n sei utiliza-lo.
  13. Fiz uma pesquisa aqui no forum sobre a clausula HAVING mas n deu certo. RS.Source = "SELECT *, (SELECT COUNT (*) FROM Conteudo WHERE Conteudo.Secao = Tipo.Cod) AS TOTAL FROM Tipo ORDER BY Descricao ASC" Adicionei HAVING COUNT(*) >= 1, após FROM Tipo e recebi: Você tentou executar uma consulta que não inclui a expressão 'Cod' especificada como parte de uma função agregada. Coloquei depois do Conteudo.Secao = Tipo.Cod e o RS.Fields.Item("total").Value n apareceu nd. Não estou sabendo utilizar mesmo
  14. Pessoal, estou desenvolvendo um sistema de comercio local, onde na pag inicial irá apresentar os tipos de comercios, mas inicialmente nem todos os tipos terão comércios adicionados, por exemplo, BOMBONIERE ainda n tem loja p anunciar, queria saber como faço p apresentar somentes as categorias/tipos que tem comercios adicionados. No banco (como padrão) são duas tabelas: - A 1ª [Tipo] onde está os tipos de comércios (categorias), com [Cod] (que seria o id) e a [Descricao] (nome do tipo do comércio). - A 2ª [Conteudo], onde estão os comércios propriamente ditos com suas informações, e uma coluna [secao] ligada a 1ª tabela, que diz de qual tipo de comério se trata. Se alguém puder me da uma luz de como fazer isso agradeço, porque realmente n sabendo como fazer isso. Obrigado.
  15. Bom sistema mesmo, tem como disponibilizar-lo ?
  16. N to entendo cara, você quer um sist de noticias com foto ou um sist album/galeria de fotos? O sistema de noticias com foto é facil facil de encontrar...
  17. E aí manda, este sistema aí p galera, abraços
  18. PhoEniXFirE

    Sistema De Busca

    Oh andreia_sp, já descobri como utiliar o cód, vou postar aqui porque alguém pode precisar: function Palavra(str) Palavra = replace(str,"a","[a,á,à,ã,â,ä]") Palavra = replace(Palavra,"e","[e,é,è,ê,ë]") Palavra = replace(Palavra,"i","[i,í,ì,î,ï]") Palavra = replace(Palavra,"o","[o,ó,ò,õ,ô,ö]") Palavra = replace(Palavra,"u","[u,ú,ù,û,ü]") Palavra = replace(Palavra,"c","[c,ç]") Palavra = Palavra end function E o sql fica assim: sql = "select * from tabela where campo like '%" & Palavra(palavraprocurada) & "%'" Abraços
  19. PhoEniXFirE

    Sistema De Busca

    N consegui utilizar seu script andreia_sp, inclusive testei ele e tive este resultado: s[c,ç]r[i,í,ì,î,ï,I]ptbr[a,á,à,ã,â,ä,A]s[i,í,ì,î,ï,I]l acho que n soube usar, olhe como fiz: texto = Request.QueryString("texto") busca=split(texto,chr(32)) for x = 0 to Ubound(busca) palavra=busca(x) palavra = replace(palavra,"a","[a,á,à,ã,â,ä,A]") palavra = replace(palavra,"e","[e,é,è,ê,ë,E]") palavra = replace(palavra,"i","[i,í,ì,î,ï,I]") palavra = replace(palavra,"o","[o,ó,ò,õ,ô,ö,O]") palavra = replace(palavra,"u","[u,ú,ù,û,ü,U]") palavra = replace(palavra,"c","[c,ç]") next Sql = "SELECT * FROM Conteudo WHERE Nome LIKE '%" & palavra & "%' ORDER BY Nome ASC" Rs.Open Sql, Conn, 3, 3 Usei na busca "remedio", mas ele n achou, e existe "remédio" no banco. Se puder me orientar fico grato.
  20. PhoEniXFirE

    Sistema De Busca

    Olá pessoal, Nem sei como funciona, sei que o google por exemplo tem. estou desenvolvendo um sistema de comércio, com armazenamento em banco Access e neste sistema, também tenho uma busca para os internautas, mas como sei que tem internautas que n acentuam as palavras queria saber como posso fazer p encontrar quando faltar o acentos. Ex.: O internauta busca por Remédio, mas n acentua, como achar mesmo assim? Grato
  21. Sei que tem como mudar dentro a página mesmo mudar o titulo, mas dentro de um frame tem como? Estou usando document.title="msg"; mas n serve neste caso. Alguém sabe como ? Grato
  22. N cara, este espaço foi dado aqui no fórum, mas ele n existe de fato. Acredito que seja algum arquivo corrompido ou então alguma configuração. Aonde será que eu poderia baixar o scrrun.dll para colar no atual ?
  23. N. Na minha maquina, no servidor funciona normal. Com o Server. recebe isso: Objeto Server, ASP 0177 (0x800401F3) Seqüência de classe inválida /acontece/Default.asp, line 5 O que posso fazer ?
  24. Tenho o mesmo problema, ninguém sabe como resolver isso ?
×
×
  • Criar Novo...