Ir para conteúdo
Fórum Script Brasil

py2tz

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    261

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por py2tz

  2. Somar Quantos Paises Tem No Bd

    em ASP

    Postado

    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????

  3. Estou Com Um Problema No Asp Com <br>

    em ASP

    Postado

    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

    %>

  4. Estou Com Um Problema No Asp Com <br>

    em ASP

    Postado

    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:

    ainda não foi desmantelada. <br>

    <br>

    O Código de Morse e a Telegrafia (manual) são a excelência de qualquer Operador de Rádio que se digne dessa qualificação.<br>

    <br>

    A Radiotelegrafia tem sido progressivamente abolida pelos

    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

  5. Como Pula Linha Em Txt Do Bd Acces

    em ASP

    Postado

    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

  6. Como Pula Linha Em Txt Do Bd Acces

    em ASP

    Postado

    Em outros sitema este ex funciona mas nesse aqui não quer funcionar.

    varcod = Trim(RS("noticia"))

    noticia =Replace(varcod,vbCrlf,"<br>")

    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.

    <%

    cnpath="DBQ=" & Server.MapPath("radio.mdb")

    DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

    Set Conn = Server.CreateObject("ADODB.Connection")

    Conn.Open DataSource

    'Abre o Recordset

    Set RS = Server.CreateObject( "ADODB.Recordset" )

    RS.ActiveConnection = conn

    set rs=conn.execute("select*from Noticias where id="&request.querystring("id")&"")

    varcod = Trim(RS("noticia"))

    noticia =Replace(varcod,vbCrlf,"<br>") %>

  7. Como Juntar 600 Paginas De Html Em 1 Somente?

    em HTML, XHTML, CSS

    Postado

    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.

  9. Consulta Com Filtros

    em ASP

    Postado

    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.

  10. Ver Dados De 2 Tabelas

    em ASP

    Postado

    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?????

  11. Ver Dados De 2 Tabelas

    em ASP

    Postado

    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"

  12. Mostrar Alert Se Id Não For Encontrado

    em ASP

    Postado

    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 %>&nbsp;&nbsp;<img src="../image/cland.gif"><% else %><% end if %>

    Se servir.......

    Fausto

  13. Ver Dados De 2 Tabelas

    em ASP

    Postado

    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:

    <%

    cnpath="DBQ=" & Server.MapPath("radio.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

    pid = request("id")

    pId_Correio = request("Id_Correio")

    pRadio = request("Radio")

    pFrequencia = request("Frequencia")

    pCidade = request("Cidade")

    pEstado = request("Estado")

    pPais = request("Pais")

    pIdioma = request("Idioma")

    eId_Correio = request("Id_Correio")

    RS.open "SELECT top 2 * FROM Tab_Radio ORDER BY StartDate DESC"

    RS2.open "SELECT n.*, i.* FROM Tab_Radio n INNER JOIN Tab_Correio i ON i.Id_Correio = n.Id_Correio "

    %>

    <%=rs2("Id_Correio")%>&nbsp;<%=rs("Id_Correio")%>

    Qualquer ajuda será bem vinda !!!!!!

    Fausto

  16. Contador De Clicks Simples

    em ASP

    Postado

    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

  17. Usando O Inner Join, Eu Acho!

    em ASP

    Postado

    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:

    Tab1 Tab2

    ID ID

    159 3187

    159 3186

    159 3185

    159 3184

    159 3183

    159 3182

    Algeum sabe porque ele pega somente um registro fixo?????? deveria achar o mesmo numero do index onde deveria ficar assim:

    Tab1 Tab2

    ID ID

    3187 3187

    3186 3186

    3185 3185

    3184 3184

    3183 3183

    3182 3182

    Veja o jeioto que esta agora:

    <%

    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_Correio DESC"

    RS2.open "SELECT n.*, i.* FROM Tab_Radio n INNER JOIN Tab_Correio i ON i.Id_Correio = n.Id_Correio WHERE i.Id_Correio = n.Id_Correio"

    %>

    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.

  18. alguém Teria Algum Exemplo De Autp_increment

    em ASP

    Postado

    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.

  19. Usando O Inner Join, Eu Acho!

    em ASP

    Postado

    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.

  20. alguém Teria Algum Exemplo De Autp_increment

    em ASP

    Postado

    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.......

  21. Usando O Inner Join, Eu Acho!

    em ASP

    Postado

    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:

    <%

    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" )

    RS.ActiveConnection = conn

    RS.open "SELECT top 5 * FROM Tab_Radio ORDER BY id DESC"

    %>

    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:

    "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

    Qualquer ajuda será bem vinda!!!!!!

×
×
  • Criar Novo...