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 

Tudo que py2tz postou

  1. py2tz
    Olá Priscila, vê se serve este. <script Language="JavaScript"> function checar_formulario(cadastro){ if (cadastro.indicativo.value == ""){ alert("Digite seu Indicativo!!!"); cadastro.indicativo.focus(); return (false); } if (cadastro.nome.value == ""){ alert("Digite seu Nome!!!"); cadastro.nome.focus(); return (false); } if (cadastro.endereco.value == ""){ alert("Digite Sua Rua, AV, Trav, Viela, Alameda!!!"); cadastro.endereco.focus(); return (false); } if (cadastro.numero.value == ""){ alert("Digite Número de sua Residência!!!"); cadastro.numero.focus(); return (false); } if (cadastro.bairro.value == ""){ alert("Digite o seu Bairro!!!"); cadastro.bairro.focus(); return (false); } if (cadastro.cidade.value == ""){ alert("Digite a Sua Cidade!!!"); cadastro.cidade.focus(); return (false); } if (cadastro.estado.value == ""){ alert("Digite o Seu Estado!!!"); cadastro.estado.focus(); return (false); } if (cadastro.cep.value == ""){ alert("Digite seu CEP!!!"); cadastro.cep.focus(); return (false); } return (true); } </script>
  2. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    Pessoal, depois de apanhar pakas, achei a soluçao, apena inseri o like na outra select que não tinha percebido e funcionou direitinho, só ficou o pau de RS que ainda vou descobrir. Era assim: 1º select ---- sqlstmt = "SELECT * FROM prlist WHERE Iota like '%" & vIota & "%' " 1º select ---- Sql = "SELECT * FROM prlist ORDER BY Iota" Deixei assim: 1º select ---- sqlstmt = "SELECT * FROM prlist WHERE Iota like '%" & vIota & "%' " 2º select ---- Sql = "SELECT * FROM prlist ORDER BY Iota like '%" & vIota & "%' " O segredo esta no Like Obrigado a todos que tentaram me abrir a cabeça, estou aprendendo.
  3. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    <% vNome = request.form("Nome") Set Conexao = CreateObject("ADODB.CONNECTION") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("../../../dados/arvore.mdb") conexao.Open DSNtemp sqlstmt = "SELECT * FROM prlist WHERE Nome like '%" & vNome & "%' " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, conexao, 3, 3 totalrecs = rs.recordcount achei="sim" if rs.eof then %>
  4. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    Olá pessoal, Achei outro script aqui no forum, fiz as alterações e continua agualzinho ao que eu tinha, ou seja ao se pesquisar um nome ele puxa todos os registros do BD, independente do nome, vem todos. Pergunto como fazer com que ele traga somente o nome pesquisado e trazer os dados que neste registro existem. Alem disso no fim aparece: Microsoft VBScript runtime error '800a01a8' Object required: 'rs' /tree/bigtree/busca2.asp, line 44 A linha 44 tem uma ASP: <%achei="não" end if x = 0 for x = 1 to totalrecs if rs.eof then exit for else %> Sei que já estou enchendo o saco mas precisava dessa luz. Fausto
  5. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    Mais um pequeno detalhe: Qualquer coisa que digitar na caixa, desde que seja uma palavra que exista no BD, o sistema busca todos os registros, e somente se eu digitar uma palavra que não existe no BD vem a info que não achou nenhum registro. <% vIota = request.form("Iota") Set Conexao = CreateObject("ADODB.CONNECTION") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("../../../dados/arvore.mdb") conexao.Open DSNtemp sqlstmt = "SELECT * FROM prlist WHERE Iota like '%" & vIota & "%' " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, conexao, 3, 3 totalrecs = rs.recordcount achei="sim" if rs.eof then%> <html> <head> <title>IOTA - Islands On The Air</title> <META NAME="Robots" CONTENT="All"> </head> <body> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" width="68%"> <div align="center"> <img src="image/tit-iota.gif" border="0"> <!--#include file="busca1.asp" --> <br><br> <p align="center"><font face="Verdana" size="4">Não Achei nenhum Arquivo com este Nome!!!</font></p> <table border="0" cellpadding="3" cellspacing="0" width="115"> <tr> <td align=middle> <form action="busca2.asp" method="post"><input type="text" name="Iota" size="40" maxlength="20">&nbsp;&nbsp;<input type="submit" value="Pesquisar Novamente"></form> </td> </tr> </table> </div> <br> </td> </tr> </table> <%achei="não" end if x = 0 for x = 1 to totalrecs if rs.eof then exit for else %> <!--#include file="inc_topo.asp" --> <!--#include file="busca1.asp" --> <table bgColor="#004bae" border="0" cellpadding="2" cellspacing="2" width="98%" height="10" style="border: 1 solid #486DAC"> <tr> <td width="80" valign="top"><font class=menu-cab>&nbsp;Iota</font></td> <td width="250" valign="top"><font class=menu-cab>&nbsp;Nome</font></td> <td width="100" valign="top"><font class=menu-cab>&nbsp;Prefixo</font></td> </tr> </table> <%Sql = "SELECT * FROM prlist ORDER BY Iota" Set rs = Conexao.Execute(Sql) While not rs.EOF %> <table border="0" cellpadding="2" cellspacing="2" width="98%"> <tr> <td bgcolor="#EFEFEF" width="80" valign="top"><font class="txt8b"><A href=java script:iota("prview.asp?id=<%=rs("Id")%>")>&nbsp;<%=rs("Iota")%></a></font></td> <td bgcolor="#EFEFEF" width="250" valign="top"><font class="txt8">&nbsp;<%=rs("Nome")%></font></td> <td bgcolor="#EFEFEF" width="100" valign="top"><font class="txt8">&nbsp;<%=rs("Prefixo")%></font></td> </tr> </table> <% rs.MoveNext Wend rs.close Set rs = nothing %> <table border="0" cellpadding="2" cellspacing="0" width="98%"> <tr> <td align=right valign="top"><font class="txt8b"><A href=default.asp>Voltar para a Relação das Iotas</a></font></td> </tr> </table> </div> <% end if next if achei="sim" then %> </div> <hr color="#a3cbda"><br><br> </td> </tr> </table> <% end if%> </body> </html>
  6. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    Desculpem pessoal, tá quase lá, agora tirando o fechaconexão aparece: Microsoft VBScript runtime error '800a01a8' Object required: 'rs' /tree/bigtree/busca2.asp, line 50 Linha 50 tá assim: <%achei="não" end if x = 0 for x = 1 to totalrecs if rs.eof then exit for else %>
  7. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    Legal, puxou todos os dados e listou direitinho e no final aparece um erro: Microsoft VBScript runtime error '800a000d' Type mismatch: 'FechaConexao' /tree/bigtree/busca2.asp, line 79 Acho que tem que fechar alguma coisa lá no fim, já tem as linhas abaixo, será que falta mais algo pra fechar???? <% rs.MoveNext Wend rs.close FechaConexao Set rs = nothing %> Esta assim: Pesquise uma Iota Ex: AF-008 ou 008 ou AF Iota Nome Prefixo BRA.gif Felipe Gasparini 1 BRA.gif Eliana Ada Gasparini - BRA.gif Rafael Gasparini - BRA.gif Fausto Gasparini 2 Microsoft VBScript runtime error '800a000d' Type mismatch: 'FechaConexao' /tree/bigtree/busca2.asp, line 79
  8. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    Agora, a pagina nem abre, dá pau A página não pode ser exibida Há um problema com a página que você está tentando acessar e ela não pode ser exibida. O objetivo é uma simples conulta no BD e informar o que ele achou lá no campo, só isso, se precisar alterar a estrutura da pesquisa não tem problema, digo isso pois existe várias formas de se fazer uma rotina com um unico objetivo, porem....... Ainda não manjo muito.......ou quase nada de ASP.
  9. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    Não tem include, somente a conexão direta na pagina, lá no começo dela esta assi: <% vIota = request.form("Iota") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("../../../dados/arvore.mdb") sqlstmt = "SELECT * FROM prlist WHERE Iota like '%" & vIota & "%' " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount achei="sim" if rs.eof then%>
  10. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    No exemplo do Marcos dá o erro: Microsoft VBScript runtime error '800a01a8' Object required: 'DRIVER={Microsoft Ac' /tree/bigtree/busca2.asp, line 64 No exemplo da Andreia fica o erro: Microsoft VBScript runtime error '800a000d' Type mismatch: 'AbreConexao' /tree/bigtree/busca2.asp, line 62
  11. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    Tirei, e quase abriu, apresenta um outro erro: Microsoft VBScript runtime error '800a01a8' Object required: '' /tree/bigtree/busca2.asp, line 63 A linha 63 é: <%Sql = "SELECT * FROM prlist ORDER BY Iota" Set rs = Conexao.Execute(Sql) While not rs.EOF %>
  12. py2tz

    Buscando Info No Bd Access

    pergunta respondeu ao py2tz de py2tz em ASP

    Sim, é uma adaptação de um outro setor de pesquisa no site, porem lá existia a tal cat e neste outro não existe, vou tirar pra ver. Fausto
  13. py2tz
    Tenho uma consulta simples no BD access onde existe uma caixa de pesquisa e que direciona ao resultado. Simples mas nã tá rodando, acho que tem haver com um tal de "cat" que existe. A caixa é simples da pagina chamada busca1.asp <div align="center"> <table border="0" cellpadding="2" cellspacing="2" width="98%" height="10"> <tr> <td align=center><font class=txt8b>&nbsp;Pesquise uma Iota Ex: AF-008 ou 008 ou AF</font></td> </tr> <tr> <td align=middle> <form action="busca2.asp" method="post"> <input type="text" name="Iota" size="20" maxlength="50"> <input type="submit" value="Pesquisar"> </form> </td> </tr> </table> </div> E o resultado sai nesta outra pagina chamada busca2.asp <% vIota = request.form("Iota") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("../../../dados/arvore.mdb") sqlstmt = "SELECT * FROM prlist WHERE Iota like '%" & vIota & "%' " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount achei="sim" if rs.eof then%> <html> <head> <title>IOTA - Islands On The Air</title> </head> <body> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" width="68%"> <div align="center"> <img src="image/tit-iota.gif" border="0"> <!--#include file="busca1.asp" --> <br><br> <p align="center"><font face="Verdana" size="4">Não Achei nenhum Arquivo com este Nome!!!</font></p> <table border="0" cellpadding="3" cellspacing="0" width="115"> <tr> <td align=middle> <form action="busca2.asp" method="post"><input type="text" name="Iota" size="40" maxlength="20">&nbsp;&nbsp;<input type="submit" value="Pesquisar Novamente"></form> </td> </tr> </table> </div> <br> </td> </tr> </table> <%achei="não" end if x = 0 for x = 1 to totalrecs if rs.eof then exit for else %> <!--#include file="inc_topo.asp" --> <!--#include file="busca1.asp" --> <% AbreConexao cat = request.querystring("cat") If cat = "" Then %> <table bgColor="#004bae" border="0" cellpadding="2" cellspacing="2" width="98%" height="10" style="border: 1 solid #486DAC"> <tr> <td width="80" valign="top"><font class=menu-cab>&nbsp;Iota</font></td> <td width="250" valign="top"><font class=menu-cab>&nbsp;Nome</font></td> <td width="100" valign="top"><font class=menu-cab>&nbsp;Prefixo</font></td> </tr> </table> <%Sql = "SELECT * FROM prlist ORDER BY Iota" Set rs = Conexao.Execute(Sql) While not rs.EOF %> <table border="0" cellpadding="2" cellspacing="2" width="98%"> <tr> <td bgcolor="#EFEFEF" width="80" valign="top"><font class="txt8b"><A href=java script:iota("prview.asp?id=<%=rs("Id")%>")>&nbsp;<%=rs("Iota")%></a></font></td> <td bgcolor="#EFEFEF" width="250" valign="top"><font class="txt8">&nbsp;<%=rs("Nome")%></font></td> <td bgcolor="#EFEFEF" width="100" valign="top"><font class="txt8">&nbsp;<%=rs("Prefixo")%></font></td> </tr> </table> <% rs.MoveNext Wend rs.close FechaConexao Set rs = nothing %> <table border="0" cellpadding="2" cellspacing="0" width="98%"> <tr> <td align=right valign="top"><font class="txt8b"><A href=cad.asp>Voltar para a Relação das Iotas</a></font></td> </tr> </table> </div> <% else %> <% Sql = "SELECT * FROM prlist WHERE prlist = "& cat &" ORDER BY Iota" Set rs = Conexao.Execute(Sql) if rs.EOF then%> <font class="txt8b">Nenhum arquivo listado nesta categoria ainda!</font> <% else While not rs.EOF %> <% rs.MoveNext Wend rs.close FechaConexao Set rs = nothing end if end if%> <% rs.MoveNext %> <% end if next if achei="sim" then %> </div> <hr color="#a3cbda"><br><br> </td> </tr> </table> <% end if%> </body> </html> O erro que aparece: Microsoft VBScript runtime error '800a000d' Type mismatch: 'AbreConexao' /tree/bigtree/busca2.asp, line 55 A linha 55 é: <% AbreConexao cat = request.querystring("cat") If cat = "" Then %> Teria alguma luz para esse cego que não consegue ver o problema????????? Obrigado Fausto
  14. py2tz

    Consulta Asp

    uma questão respondeu py2tz em Access

    Tenho uma consulta simples no BD access onde existe uma caixa de pesquisa e que direciona ao resultado. Simples mas nã tá rodando, acho que tem haver com um tal de "cat" que existe. A caixa é simples da pagina chamada busca1.asp <div align="center"> <table border="0" cellpadding="2" cellspacing="2" width="98%" height="10"> <tr> <td align=center><font class=txt8b>&nbsp;Pesquise uma Iota Ex: AF-008 ou 008 ou AF</font></td> </tr> <tr> <td align=middle> <form action="busca2.asp" method="post"> <input type="text" name="Iota" size="20" maxlength="50"> <input type="submit" value="Pesquisar"> </form> </td> </tr> </table> </div> E o resultado sai nesta outra pagina chamada busca2.asp <% vIota = request.form("Iota") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("../../../dados/arvore.mdb") sqlstmt = "SELECT * FROM prlist WHERE Iota like '%" & vIota & "%' " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount achei="sim" if rs.eof then%> <html> <head> <title>IOTA - Islands On The Air</title> </head> <body> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" width="68%"> <div align="center"> <img src="image/tit-iota.gif" border="0"> <!--#include file="busca1.asp" --> <br><br> <p align="center"><font face="Verdana" size="4">Não Achei nenhum Arquivo com este Nome!!!</font></p> <table border="0" cellpadding="3" cellspacing="0" width="115"> <tr> <td align=middle> <form action="busca2.asp" method="post"><input type="text" name="Iota" size="40" maxlength="20">&nbsp;&nbsp;<input type="submit" value="Pesquisar Novamente"></form> </td> </tr> </table> </div> <br> </td> </tr> </table> <%achei="não" end if x = 0 for x = 1 to totalrecs if rs.eof then exit for else %> <!--#include file="inc_topo.asp" --> <!--#include file="busca1.asp" --> <% AbreConexao cat = request.querystring("cat") If cat = "" Then %> <table bgColor="#004bae" border="0" cellpadding="2" cellspacing="2" width="98%" height="10" style="border: 1 solid #486DAC"> <tr> <td width="80" valign="top"><font class=menu-cab>&nbsp;Iota</font></td> <td width="250" valign="top"><font class=menu-cab>&nbsp;Nome</font></td> <td width="100" valign="top"><font class=menu-cab>&nbsp;Prefixo</font></td> </tr> </table> <%Sql = "SELECT * FROM prlist ORDER BY Iota" Set rs = Conexao.Execute(Sql) While not rs.EOF %> <table border="0" cellpadding="2" cellspacing="2" width="98%"> <tr> <td bgcolor="#EFEFEF" width="80" valign="top"><font class="txt8b"><A href=java script:iota("prview.asp?id=<%=rs("Id")%>")>&nbsp;<%=rs("Iota")%></a></font></td> <td bgcolor="#EFEFEF" width="250" valign="top"><font class="txt8">&nbsp;<%=rs("Nome")%></font></td> <td bgcolor="#EFEFEF" width="100" valign="top"><font class="txt8">&nbsp;<%=rs("Prefixo")%></font></td> </tr> </table> <% rs.MoveNext Wend rs.close FechaConexao Set rs = nothing %> <table border="0" cellpadding="2" cellspacing="0" width="98%"> <tr> <td align=right valign="top"><font class="txt8b"><A href=cad.asp>Voltar para a Relação das Iotas</a></font></td> </tr> </table> </div> <% else %> <% Sql = "SELECT * FROM prlist WHERE prlist = "& cat &" ORDER BY Iota" Set rs = Conexao.Execute(Sql) if rs.EOF then%> <font class="txt8b">Nenhum arquivo listado nesta categoria ainda!</font> <% else While not rs.EOF %> <% rs.MoveNext Wend rs.close FechaConexao Set rs = nothing end if end if%> <% rs.MoveNext %> <% end if next if achei="sim" then %> </div> <hr color="#a3cbda"><br><br> </td> </tr> </table> <% end if%> </body> </html> O erro que aparece: Microsoft VBScript runtime error '800a000d' Type mismatch: 'AbreConexao' /tree/bigtree/busca2.asp, line 55 A linha 55 é: <% AbreConexao cat = request.querystring("cat") If cat = "" Then %> Teria alguma luz para esse cego que não consegue ver o problema????????? Obrigado Fausto
  15. py2tz
    Olá, apanhei muito com isso até descobrir umna coisa simples, 1 - Se tiver na raiz use ../db/arquivo.mdb 2- Se tiver numa pasta dentro da raiz use ../../db/arquivo.mdb 3 - E se tiver uma segunda pasta dentro da rais e assim sucessivamente ../../../db/arquivo.mdb Simples mas já apanhei com isso. 73 Fausto
  16. py2tz
    O erro que aparece com o exemplo dado é Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'DBQEXEMPLO' /teste.asp, line 52 Até + Fausto
  17. py2tz
    Olá Turma, Fiz a dica do DBQ, que pelo que entendi são duas linhas a alterar. deixei da forma que esta abaixo, mas não funcionou, deu um erro de conexão e não abria os dados do BD. DBQcon = "D:\www\brasil\db\arquivo_db.mdb" strCon = strCon & "DBQ=" & DBQcon O interessante é que são 3 páginas que compoeem o sisteminha, porem nas 3 páginas ele não usa o .mdb no final do nome do arquivo do acess, somente o arquivo sem a extensão, e funciona normalmente. strAccessDB = "../db/arquivo_db" Set adoCon = Server.CreateObject("ADODB.Connection") Set rsWeeklyPoll = Server.CreateObject("ADODB.Recordset") strCon="DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath(strAccessDB) Pergunto, USO ou NÃO uso o .mdb no caminho? Obrigado Fausto
  18. py2tz
    Olá Turma, Entendi mais ou menos, A conexão esta assim: <% strAccessDB = "../db/arquivo_db" Set adoCon = Server.CreateObject("ADODB.Connection") Set rsWeeklyPoll = Server.CreateObject("ADODB.Recordset") strCon="DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath(strAccessDB) strSQL = "SELECT * FROM arquivo_dados " strSQL = strSQL & " ORDER By arquivo_dados.id_no DESC;" rsWeeklyPoll.Open strSQL, strCon, 3 rsWeeklyPoll.PageSize = intRecordsPerPage E usando o appication ficará como? CONST C_dbConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\www\brasil\db\arquivo.mdb" Mas eu não sei muito, se puder montar como usa o aplication ficari gratissimo ou onde achar um exemplo. Fausto
  19. py2tz
    Na página principal do site, onde possui um include que carrega o menu do lado direito. Neste menu do lado direito tem um outro include que chama uma determinada página que esta na raiz do servidor e funciona direitinho. Porem quando se esta navegando em demais pastas secundárias, este mesmo include não funciona pois nele consta o caminho do BD, ou seja esta ../db/arquivo.mdb, sendo que nas pastas secundárias deveria estar com ../../db/arquivo.mdb, ou seja indicando que ele volte dois diretorios atrás até achar o BD. Tentei fazer dois includes, um com direçao ../db/arquivo.mdb e outro com direção ../../db/arquivo.mdb Mas não fica 100% alguém teria alguma dica para este caso. Agradeço desde já Fausto
  20. py2tz
    Olá fernando e demais, Bom dia, O URL é default em todas as páginas onde existe o link para o indique.asp, esta página faz com que seja enviado a indicação justamente dá página em que o usuário estava vendo, onde ele leva um pequeno txt e o link exato da matéria em que o usuário estava, sem que ele precise digitar o endereço da página. Conforme a ultima msg, tente visualizar se possível o que eu digo: http://www.qtcbrasil.com.br/noticias/view6.asp?id=111 Na página acima, no final dela existe o chamado para o indique.asp, ao clica-lo abre-se um novo brow onde se pode enviar um email para alguém (sem o JAVA) Caso eu use um pop para esta página ele não mostra mais o link com o endereço completo ou seja a pessoa que estiver recebendo o email não saberá que página deve visitar. Fausto
  21. py2tz
    Fernando, veja o exemplo prático do site: http://www.qtcbrasil.com.br/noticias/view6.asp?id=112 No final desta página existe um menuzinho em que consta o indique.asp. Se eu uso o java, o link não sai completo ou nem sai, sem ele funciona perfeitamente. Fausto
  22. py2tz
    Navegando em códigos livres, já vi algo assim, programas que conseguem baixar o site inteiro, ou apenas endereços pré especificados. algo como ver o site em ftp na tela do brow. Dê uma navegada e busque por scripts free que deverá achar. Esse é o tipo de script que quando você não quer vê-lo ele sempre aparece na sua telinha, mas é vice versa tambem, quando se quer acha-lo deve ficar mais difícil. Não desista que você consegue. Fausto
  23. py2tz
    Esse ai abaixo fica na página que pode ser indicada, e do jeito que esta, funciona ou seja pode ver que não possui o Java: &nbsp;|&nbsp;<a href=indique.asp?URL target="new">Indique</a> Quando eu uso o que normalmente uso no site inteiro, ele dá pau e não mostra o endereço da página que esta sendo indicada. &nbsp;|&nbsp;<a href="java script:contato(&quot;indique.asp&quot;)">Indique</a> contato ------- esta dentro do meu css que armazena todos os pops, sendo que o comando contato é assim: // POPUP 04a - Abre a Janela de contato com 350x450 function contato(endereco){ window.open(endereco,'contato',& #39;toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,top=3 5,left=30,width=350,height=400') } Ou seja uma simples janelinha pequena em vez de se abrir uma página inteira. ela abre mas não mostra o link.
  24. py2tz
    Consegui, beleza, obrigado a todos que ajudaram. caso queiram dar uma olhada, esta em http://www.qtcbrasil.com.br/iqsl podem fazer o teste e caso alguém precise de ajuda do pouco que sei, fiquem a vontade, é simples mas quebra um galhão. Tenho outra dúvida em Java e não sei se posso plotar aqui ou devo abrir outro tópico. mas ai vai qualquer coisa é só deletar: Na indicação eu uso indique.asp?URL e a página funciona direitinho indicando o endereço exato da pagina em que o usuario esta, tá tudo funcionando, mas somente se abrir uma pagina nova e quando eu uso o comando <A href=java script:album("indique.asp?URL")> o sistema para de informar o link exato em que o usuário estava. Alquem sabe algo????? Fausto
  25. py2tz
    Olá Fernando, Bomdia, já consegui fazer com que a figura fique abaixo do texto, foi simplesmente mudar a posição da figura no script, ela estava no meio do script e passei para o inicio do mesmo. Beleza, tá funcionando em 800x600. Vou atrás do problema de resolução agora. Obrigado pela dica. Fausto
×
×
  • Criar Novo...