
PhoEniXFirE
Membros-
Total de itens
231 -
Registro em
-
Última visita
Tudo que PhoEniXFirE postou
-
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)))
-
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
-
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 ?
-
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?
-
E para listar as palavras que iniciam com a letra A acentuada?
-
E como fazer a lista, por ex, da letra A, incluindo os acentos ? Estou usando "SELECT * FROM enderecos WHERE nome LIKE 'A%'"
-
valeu
-
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?
-
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?
-
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?
-
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?
-
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 ?
-
+/- 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.
-
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
-
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.
-
Bom sistema mesmo, tem como disponibilizar-lo ?
-
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...
-
E aí manda, este sistema aí p galera, abraços
-
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
-
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.
-
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
-
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
-
O Componente Do Activex Não Pode Criar Objeto:
pergunta respondeu ao Carlos Rocha de PhoEniXFirE em ASP
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 ? -
O Componente Do Activex Não Pode Criar Objeto:
pergunta respondeu ao Carlos Rocha de PhoEniXFirE em ASP
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 ? -
O Componente Do Activex Não Pode Criar Objeto:
pergunta respondeu ao Carlos Rocha de PhoEniXFirE em ASP
Tenho o mesmo problema, ninguém sabe como resolver isso ?