py2tz
-
Total de itens
261 -
Registro em
-
Última visita
Tudo que py2tz postou
-
Legal, deu certo O primeiro deu um erro de circular alias, mas o segundo contou redondo Obrigado Andreia,
-
Num BD de + de 13000 itens queria saber quantos paises estão cadastrados, são vários onde o select deveria conta-los mas não conta: Sql1 = "SELECT pais FROM cadastro" Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open Sql1, ConStr, 3, 3 alguém poderia dar uma dica????
-
Não foi, troquei a palavra variavel pelo campo noticia. O meu problema era somente excluir os caracteres <BR> que aparecem no campo de edição Fiz assim: <% Public Function Elimina_linguagens(noticia) IF noticia <> "" THEN resposta = Replace(noticia, "'", "") resposta1 = Replace(resposta, "<html>", "") resposta2 = Replace(resposta1, "</html>", "") resposta3 = Replace(resposta2, "<body>", "") resposta4 = Replace(resposta3, "</body>", "") resposta5 = Replace(resposta4, "<title>", "") resposta6 = Replace(resposta5, "</title>", "") resposta7 = Replace(resposta6, "<head>", "") resposta8 = Replace(resposta7, "</head>", "") resposta9 = Replace(resposta8, "<table>", "") resposta10 = Replace(resposta9, "</table>", "") resposta11 = Replace(resposta10, "<tr>", "") resposta12 = Replace(resposta11, "</tr>", "") resposta13 = Replace(resposta12, "<td>", "") resposta14 = Replace(resposta13, "<td>", "") resposta15 = Replace(resposta14, "a href", "") resposta16 = Replace(resposta15, "</a>", "") resposta17 = Replace(resposta16, "<br>", "") resposta18 = Replace(resposta17, "</br>", "") resposta19 = Replace(resposta18, "<p>", "") resposta20 = Replace(resposta19, "</p>", "") resposta21 = Replace(resposta20, "<HTML>", "") resposta22 = Replace(resposta21, "<HTML>", "") resposta23 = Replace(resposta22, "<BODY>", "") resposta24 = Replace(resposta23, "</BODY>", "") resposta25 = Replace(resposta24, "<TITLE>", "") resposta26 = Replace(resposta25, "</TITLE>", "") resposta27 = Replace(resposta26, "<HEAD>", "") resposta28 = Replace(resposta27, "</HEAD>", "") resposta29 = Replace(resposta28, "<TABLE>", "") resposta30 = Replace(resposta29, "</TABLE>", "") resposta31 = Replace(resposta30, "<TR>", "") resposta32 = Replace(resposta31, "</TR>", "") resposta33 = Replace(resposta32, "<TD>", "") resposta34 = Replace(resposta33, "<TD>", "") resposta35 = Replace(resposta34, "A HREF", "") resposta36 = Replace(resposta35, "</A>", "") resposta37 = Replace(resposta36, "<BR>", "") resposta38 = Replace(resposta37, "</BR>", "") resposta39 = Replace(resposta38, "<P>", "") resposta40 = Replace(resposta39, "</P>", "") resposta41 = Replace(resposta40, "<%", "") resposta42 = Replace(resposta41, "<%=", "") resposta43 = Replace(resposta42, "If", "") resposta44 = Replace(resposta43, "if", "") resposta45 = Replace(resposta44, "IF", "") resposta46 = Replace(resposta45, "End", "") resposta47 = Replace(resposta46, "end", "") resposta48 = Replace(resposta47, "END", "") resposta49 = Replace(resposta48, ">", "") resposta50 = Replace(resposta49, "<", "") resposta51 = Replace(resposta50, "http://", "") resposta52 = Replace(resposta51, ".html", "") resposta53 = Replace(resposta52, ".htm", "") resposta54 = Replace(resposta53, ".asp", "") resposta55 = Replace(resposta54, ".php", "") resposta56 = Replace(resposta55, ".mspx", "") resposta57 = Replace(resposta56, ".aspx", "") resposta58 = Replace(resposta57, ".HTML", "") resposta59 = Replace(resposta58, ".HTM", "") resposta60 = Replace(resposta59, ".ASP", "") resposta61 = Replace(resposta60, ".PHP", "") resposta62 = Replace(resposta61, ".MSPX", "") resposta63 = Replace(resposta62, ".ASPX", "") resposta64 = Replace(resposta63, "www", "") resposta65 = Replace(resposta64,chr(13),"") 'Use a linha de baixo caso queira inserir BR (quebrar a linha de um texto) no final na linha ou um outro qulquer, EX: <p> 'resposta65 = Replace(resposta64,chr(13),"<br>") Elimina_linguagens = resposta65 END IF End Function %>
-
Tenho um sisteminha de inclusao, alteracao e exclusao de informacoes, tudo funciona redondo, porem quando vou editar o texto, abre-se as caixas de imput com o texto dentro, mas vem com os <br> junto, ex: Perceba que existem os <br> no meio do texto e se eu salvar desse jeito sem alterar nada, os espacos vao aumentando. Pra ficar normal tenho de deletar os <br> antes e depois salvar. Se alguém tiver uma dica de como excluir os <BR> na hora da edição vai me ajudar e muito. A leitura da informação é feita assim: <textarea name="noticia" rows="15" cols="84" ><%=rs("noticia")%></textarea> Obrigado Fausto
-
Olá Cyber Tentei: noticia =Replace(varcod,chr(13),"<br>") Mas não foi, não dá erro nenhum e somente junta todo o texto num bloco só como antes. Vi o BD e lá entre um paragrafo e outro existe um espaço grande, como todos os outros BD de texto, porem os outros obedecem o <BR> mas esse ai não quer ir nem a pau. Fausto
-
Em outros sitema este ex funciona mas nesse aqui não quer funcionar. alguém poderia ajudar dizendo o porque não vai. O txt fica todo junto, unindo o começo com o final dos paragrafos, fica muito ruim de ler.
-
Como Juntar 600 Paginas De Html Em 1 Somente?
pergunta respondeu ao py2tz de py2tz em HTML, XHTML, CSS
Olá companheiro, Tentei sua dica, mas não foi, não dá erro nenhum, mas não abre nada. Veja se é isso mesmo, o nome do arquivo é com P maiusculo e tudo, mas não foi, a pagina fica em branco. <? include("Pag107.htm"); include("Pag108.htm"); include("Pag109.htm"); include("Pag110.htm"); ?> Tentei em ASP tambem com o include, <!--#include file="Pag.107.asp" --> mas emite este erro: Cannot process file /qra/listagem/Pag.107.asp, line 1 UNICODE ASP files are not supported. As paginas possuem uns caracteres esquisitos, ou seja se você edita ela, aparece somente uns 5 caracteres estranhos, mas se você roda ela, ela abre normalmente. -
Tenho 600 paginas de HTML ex: pag001.htm pag002.htm etc.... Precisava junta-las numa só para copias as informaçoes e inserir num banco de dados em acces. A migraçaõ para o banco eu sei fazer, só não sei se existe um jeito de juntar as 600 paginas numa só. Agradeço qualquer ajuda. Fausto
-
Olá Junior, Bem eu vi algo por ai tipi CASE e outro usando IF THEN, os dois parece que funciona, eu como não entendo muito fiz uma pagina para cada consulta, uma vantagem que vi fazendo isso é que personalizei a pagina do resultado para aquela consulta. Se quiser mando a amostra. Fausto PS: Achei estes tipos de case e IF procutrando no SB pela palavra "2 Tabelas" ai achei algo assim.
-
Ainda não foi, deixei assim: RS2.open "SELECT Tab_Radio.Id_Correio, Tab_Correio.Id_Correio FROM Tab_Radio inner join Tab_correio ON Tab_Radio.Id_Correio = Tab_Correio.Id_Correio" Id Id 161 725 9820 R. Sagalee Bilisummaa Oromo Admin 8/1/2007 161 714 91,9 R. Hitz FM St. John's Admin 8/1/2007 161 711 97 R. Basse-Terre Admin 8/1/2007 161 711 94,3 R. Morne-Rouge Admin 8/1/2007 161 711 94 R. La Trinite Admin 8/1/2007 Note que as id deveriam estar com o mesmo numero ou seja, a id 725 deveria ver dados da 725 da outra tabela. Uma pergunta, dá pra fazer com um select só, pois estou usando 2 selects, onde tem o RS e o RS2, tá certo isso?????
-
Tentei, mas não foi. RS2.open "SELECT Id_Correio.Tab_Radio, Id_Correio.Tab_Correio FROM Tab_Radio inner join Tab_correio ON Id_Correio.Tab_Radio = Id_Correio.Tab_Correio" Deu erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error in JOIN operation. /modo-radioescuta/admin/ad_adi_radio.asp, line 21 Linha 21 RS2.open "SELECT Id_Correio.Tab_Radio, Id_Correio.Tab_Correio FROM Tab_Radio inner join Tab_correio ON Id_Correio.Tab_Radio = Id_Correio.Tab_Correio"
-
Eu uso o If Then, funciona redondo sem frescuras, inclusive fiz uma jogada que quando são numeros diferentes me mostra tambem, simples, veja abaixo: <%If pId_Correio <> eId_Correio Then %><img src="../../image/atencao.gif" border="0"><% else %><% end if %> <%If pId_Correio = "" Then %><img src="../../image/atencao.gif" border="0"><% else %><% end if %> <%If eId_Correio = "" Then %><img src="../../image/atencao.gif" border="0"><% else %><% end if %> <%If pLegalidade = "Clandestina" Then %> <img src="../image/cland.gif"><% else %><% end if %> Se servir....... Fausto
-
Numa relacao da dados, gostaria de trazer dados interligados por uma ID chave de duas tabelas, porem ela somente me mostra o mesmo numero nuam das tabelas. Ex: 161 456 161 789 161 1003 161 2002 etc..... Sendo que deveria ficar assim: 456 456 789 789 1003 1003 2002 2002 Vejam o script: Qualquer ajuda será bem vinda !!!!!! Fausto
-
Exatamente, mudei pra ess e funcionou, Set rs = GobjConnect.Execute(gsSQL1) Obrigado Bareta. Valeu pela força.... Fausto
-
Bareta, deu o seguinte erro: Microsoft VBScript runtime error '800a01a8' Object required: '' /modo-radioescuta/class/viewdetail.asp, line 12 Linha 12: conn.execute(gsSql1)
-
ele é simples, deveria contar mas não esta contando. agradeço qualquer ajuda. <% Set GobjConnect = server.createobject("ADODB.Connection") GobjConnect.open gsConnect iadID = Request.QueryString("ID") cliquesa = Request.QueryString("cliques") cliquesb = "1" x = cliquesa + cliquesb gsSqL = "UPDATE adcontent SET Cliques = '" & x & "' WHERE ID = " & iadID & " " gsSQL = "Select ID, TopicID, adtitle, cliques, content, price, image, name, city, state, phone, email, dateposted, " gsSQL = gsSQL & "link FROM adcontent WHERE ID = " & SQLVal(iadID) Set rs = GobjConnect.Execute(gsSQL) Session.LCID = 1046 Do While not rs.EOF %> Fausto
-
Veja só o tilt, Ele busca a relacao da tab 1 e mosta os numeros de index corretos, porem o numero do index puxa somente um numero só. ex real: Algeum sabe porque ele pega somente um registro fixo?????? deveria achar o mesmo numero do index onde deveria ficar assim: Veja o jeioto que esta agora: O mais interessante é que esse numero 159, não é o primeiro do BD, ele esta pegando com um criterio que não achei a lógica. A unica coisa que achei é que o numero do ID é igual ao numero do Id_Correio na mesma tabela, ou seja ele plotou uma coincidencia entre dois campos com o mesmo numero 159.
-
Juntei, De 4 arquivos, fiz dois, um de form e outro que salva, coloquei o INNER nos dois, mas somente salva a tabela 1 a dois não gera nada. Ficaram super compridos, senao eu plotava aqui pra ver, criei o sql e sql2, rs e rs2, uma usa o p a outra e, estao todas definidas, mas num vai. Abre o form com os dois registros direitinho sem pau nenhum, quando salvo, emite pagina de sucesso, direitinho, sem pau nenhum, mas so faz o registro na tabela 1, na dois não registra nada. está faltando uma virgula e algum lugar.
-
Seria isso: <% cnpath="DBQ=" & Server.MapPath("dados.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource Set RS = Server.CreateObject( "ADODB.Recordset" ) Set RS2 = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = conn RS2.ActiveConnection = conn RS.open "SELECT top 5 * FROM Tab_Radio ORDER BY id DESC" RS2.open "SELECT n.*, i.* FROM Tab_Radio n INNER JOIN Tab_Correio i ON i.Id_Correio = n.Id_Correio" %> onde as leituras ficariam assim: <%=rs("Frequencia")%> <%=rs2("Frequencia")%> Ele até puxa os dados da tabela 2, mas não são correspontende ao mesmo registro, ele esta pegando aleatoriamente, falta uma virgula em algum lugar (modo de dizer) teria que achar um jeito de ele verificar o Id_Correio dos dois tabelas, sendo este os que ligam as duas.
-
Fala Bareta, Então, eu já tentei montar isso, Peguei o form da Tabela 1 e o Form da tabela 2, juntei num script só, porem, me deparei dom dois action e dois botoes, ai se clico no botao 1 do action 1 ele executa, porem no form 2 não pois ele não consegue ver os dados respectivos e interligado da tabela 2, entende? Quando abro o form com 2 forms, ele me mostrava os dados perfeitos da tabela 1 porem os dados interligados da tabela 2 não vinha, tentei e retentei, mas não achei o jeito. O INNER JOIN que tenho esta assim, ele funciona somente para ler os dados das duas tabelas: sql2 ="SELECT n.*, i.* FROM Tab_Radio n INNER JOIN Tab_Correio i ON i.Id_Correio = n.Id_Correio WHERE i.Id_Correio =" & pId_Correio E isso já foi um sufoco fazer, com muitos topicos aqui no SB. Captou a mensagem.......
-
Um script que tenho le os dados das ultimas 5 alteracoes que foram feitas numa tabela, porem o logotipo entre outros dados estao na outra tabela. O script que mostra os dados da tabela 1 é este abaixo: Sei que tenho que usar o INNER, mas já tentei e não tive exito. O nome da outra tabela é Tab_Correio. O que tentei estava assim: Qualquer ajuda será bem vinda!!!!!!
-
Tenho duas tabelas interligadas, e na inclusao ou alteracao precisava fazer com um somente form ou 2. Deram me a dica de usar o autp_increment porem não sei qual é o pé nem a cabeça disso. alguém já viu isso e poderia plotar um exemplo real de alguma coisa. 73 Fausto
-
Inclusive voce pode adicionar mais campos para o ORDER BY, pode colocar: ORDER BY campo1,campo2,campo3 DESC Primeiro ele ordena o campo1 em seguida o campo2 e por ultimo o campo3. Isso tudo fica no select, ache onde esta o select no script e adicione o ORDER BY. 73 Fausto
-
Agora foi, O que tinha achado tinha algo a mais que não estava indo e o seu esta mais inxuto e foi redondo. TKS Marcos, Prospero ano novo Fausto
-
Oi Marcos, Num foi, agora puxa tudo que é cidade do bd, sem critérios nenhum. qualquer nome, com e sem acentos, ou seja ele traz todas as cidades do mundo. Fausto