Ir para conteúdo
Fórum Script Brasil

Gilberto Jr

Membros
  • Total de itens

    10
  • Registro em

  • Última visita

Sobre Gilberto Jr

Gilberto Jr's Achievements

0

Reputação

  1. Boa noite pessoal, Eu fiz o código de paginação, ele esta trazendo os dados corretamente mas quando clico no botão proximo ou anterior ele não muda os conteúdos que estão no banco, Se vocês poderem da uma olhada no código e agradeço. Segue abaixo o código. <% 'Abre a Conexão com o Banco Dim caminho Dim conexao caminho = Server.MapPath("produtos.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Seleciona todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM TProdutos ORDER BY Produto_ID" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Define o Numero de Paginas com a propriedade "PageSize" do objeto Recordset rsBuscaProdutos.PageSize = 10 'Cria as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Define em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>Teste Paginação</title> <style> .TProdutos{ border: 1px solid #666666; margin: 2px 0px 2px 0px; background: #FFFFFF; border-collapse:collapse; width: 800px; } .TProdutos td { border: 0px solid #666666; border-collapse:collapse; } .TProdutos td#Titulo { border: 0px solid #666666; font: 7pt Verdana, Arial, Helvetica; height: 17px; background: #063d97; color:#FFFFFF; } .TProdutos td#Dados { border: 1px solid #CCCCCC; font: 7pt Verdana, Arial, Helvetica; height: 18px; background: #EAEFFF; color: #666666; } </style> </head> <body> <table border="0" class="TProdutos"> <tr> <td width="181" id="Titulo">Produto ID</td> <td width="208" id="Titulo">Nome</td> <td width="201" id="Titulo">Tipo</td> <td width="190" id="Titulo">Categoria</td> </tr> <% 'Inicia o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof %> <tr> <td id="Dados"><%=rsBuscaProdutos("Produto_ID")%></td> <td id="Dados"><%=rsBuscaProdutos("Produro_Nome")%></td> <td id="Dados"><%=rsBuscaProdutos("Protudo_Tipo")%></td> <td id="Dados"><%=rsBuscaProdutos("Produto_Categoria")%></td> </tr> <% rsBuscaProdutos.MoveNext intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> <tr> <td colspan="3" id="Dados"></td> <td id="Dados"> <% 'Cria as Validações para a navegação "Anterior" e "Próximo" if intpagina>1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% end if if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then %> <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próximo</a> <% end if rsBuscaProdutos.close Set rsBuscaProdutos = Nothing %> </td> </tr> </table> </body> </html> Grato
  2. Boa tarde galera, Eu estou com um problema e não sei como resolver, e conto com a ajuda de voces. Eu tenho um campo no meu banco de dados Acess com o nome DATA porem o mesmo esta como texto eu quero converter este campo para DATA/HORA no meu select que estou fazendo no asp. Isto é possivel? Desde já agradeço.
  3. kkkk foi mal desculpa é Bereta.
  4. Valeu Barata, Deu certo desta forma. Valeu pela dica. Atenciosamente.
  5. Fiz o teste com as tres opçoes e continuou pengando o mesmo ID. Att.,
  6. rsrsr, ai que esta, a pagina eu não estou usando o while os dados esta na pagina da uma olhada nesta pagina, http://www.descricaodorock.com.br/bandas_a.asp o nome AudioLuz e Mukeka di Rato estão digitado na pagina, se voce passar o mouse vce vai ver que o o ID é 2 mas a Banda AudioLuz tem o ID=1 e Mukeka di Rato tem o ID=2
  7. No lugar do <%=rs("NOME_DO_CAMPO")%></a> vai o nome da banda mesmo digitado na pagina asp este nome não vem do banco de dados, mas eu quero que quando esta banda for clicada ele da um select na tabela que tenha aquela banda e joga os dados na pagina viewband.asp. Atenciosamente.
  8. Bom dia Galera, Estou com um problema em codigo aqui. É o seguinte, eu criei uma pagina em asp beleza e esta pagina é uma pagina de bandas de A a Z. eu coloquei uma img da banda é o nome da banda, e o nome da banda é um link <a href="viewband.asp>AudioLuz</a> E no meu banco de dados tem a tabela TB_BANDAS que tem os dados da banda AudioLuz que é o exemplo que eu estou usando. E tambem criei um pagina com o nome viewband.asp que quando eu clicar no link AudioLuz ele tem que abrir a pagina viewband com os dados da banda AudioLuz. Obs.: O nome "AudioLuz" na pagina bandas_a_z.asp não esta vindo do banco de dados. O meu codigo esta assim. na pagina que esta as bandas: <a href="viewband.asp?id=<%=rs("ID")%>">AudioLuz</a> <a href="viewband.asp?id=<%=rs("ID")%>">Mukeka di Rato</a> e na pagina que viewband.asp essim: <!--#include file="config.asp" --> <% call connect dim rs, id id = request.QueryString("id") set rs = con.execute("select * from TB_BANDAS_CAPIXABAS WHERE ID='"&id) %> alguém tem ideia de como eu posso fazer este processo? Desde já agradeço
  9. Fala ae cara.. O meu codigo ficou assim. <script type="text/javascript" language="javascript"> function abrirJanela(url) { window.open(url, 'pop', 'width=300, height=150, top=200, left=350,resizable=0 '); } </script> E não funcionou.
  10. Olá galera, Eu sou novo por aqui, e preciso de uma ajuda. Como que eu faço para desabilitar as opçoes de maximizar e minimizar do browser. Abraço,
×
×
  • Criar Novo...