Nesh

Olá tenho uma paginação que está 99% concluida, só falta corrigir um erro, ela não está levando o valor digitado pelo usuario para a proxima pagina. Ela busca certinho mas quando troco de pagina ela tras o banco todo, o que posso fazer para concertar isto? ai vai a parte da paginação: <% busca=Replace(Request.form("busca"),"'","''") PagAtual = Request.QueryString("PagAtual") 'página atual dim caminho_sub dim conexao_sub caminho_sub=server.mappath("banco.mdb") conexao_sub="dbq="&caminho_sub&";driver={microsoft access driver (*.mdb)}" set conn=server.createobject("adodb.connection") conn.open conexao_sub Set RS= Server.CreateObject("ADODB.Recordset") SQL = "select * from empresas where liberado='sim' and palavras_chaves like '%" & busca & "%' or empresa like '%" & busca & "%' order by empresa" RS.Open SQL, conn, 3 set objloc=rs if objloc.bof and objloc.eof then response.redirect "erro.asp" end if set rs=objloc %> <% SELECT CASE np CASE "1" NumPorPage = "1" CASE "15" NumPorPage = "15" CASE ELSE NumPorPage = "1" END SELECT 'Const NumPorPage = 20 Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If 'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset") '>>> FIZ EM CIMA RS.CursorLocation = 3 Acerta a posição do cursor . 3 ou adUseClient RS.CacheSize = NumPorPage registros RS.MoveFirst 'Move o RecorSet para o início RS.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = RS.PageCount RS.AbsolutePage = PagAtual 'Configura a página atual 'paginacao Introdução Count = 0 'Zera o contador 'Inicia a Função DO, utilizando a quantidade de páginas especificadas 'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo i = 0 DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize %>

Estou com problema tenho uma newsletter funcionando no meu site, mas como passou de 200 cadastrados o meu servidor de hospedagem não aceita mas do que 200 por dia. Eu gostaria de saber se tem alguma newsletter dessas que limita o numero de envios, tipo enviar 200 hoje, amanhã eu enviar mas 200 apartir do ultimo que foi enviado ontem ou coisa assim. Ou dividir em grupo de cada grupo com 200. Fuiiiii.

valeu cara, vou dar uma olhada nisso pra ver se funciona. muito obrigado

olá galera! Gostaria de saber como é feira a segurança de banco access na internet, porque já vi em alguns sites que o banco é protegido por senha. será que tem como eu colocar no meu também? Até Mais!

Diga galera! Tenho uma paginação que uso no meu site, só que como já tem muitos registros ela está deixando a pagina feia porque tem muitas paginas a mostrar. Gostaria de saber se alguém sabe fazer ou poderia me indicar como fazer a paginação aparecer tipo a do nosso forum em asp, só que em asp mesmo não em php? Ex: 12345... 45678... Até mais!

Paz a todos. Bom, eu tenho um sistema de busca pronto, mas gostaria de implementar as buscas colocando uma busca estilo a do google com o sinal de + entre duas palavras. porque já tentei de varios jeitos mas nada, gostaria de saber se alguém sabe fazer e poderia me ajudar? Quando faço faço essa pequisa ele não traz resultados. Ex: carro + motos

Como faço para quando uma pessoa enviar um contato pelo meu site ele ir para o email do site e para o banco de dados com os mesmos dados. já tentei de varias formas e nada, se alguém poder ajudar eu agradesço. Até mais! nesh

Obrigado pela dica.

olá bom dia, Alguém sabe me dizer se tem como eu limitar o cliente de cadastrar registros no banco. Tipo assim eu tenho um site e cada cliente tem direito a cadastrar apenas 25 produtos, ai eu gostaria que o prorpio asp limitasse isso. Quando chegasse nos 25 registros do cliente ele não cadastrasse mais, só se ele apagar um cadastrado. Deu pra entender! Até mais.

Valeu caras, mas me diga uma coisa esse codigo do negrito é só para a palavra buscada né isso. Por que o que eu quero é isso, a palavra que foi buscada apareça em negrito. Mas vou testar pra ver o que vai dar. Valeu e até mais.

Bom dia! Alguém sabe me dizer como fazer para quando for efetuada uma busca, na pagina de resultado da pesquisa a palavra pesquisada apareça no campo de busca como no google e em negrito em todos os resultados. Acho que deu pra entender. até mais!

você pode ir na paleta onde ficam as camadas, clicar na camada desejada e ir em opacidade que esta com 100% e colocar a seu gosto. Até mais!

Alguém dabe fazer o efeito de gel que tem nestes sites http://www.navenet.com e http://www.lop.com. quem poder ajudar eu agradesço.

valeu baladaclick, estava precisando muito disso porque o projeto que estou fazendo é grande e a pessoa não é de tanta confiança. Muito obrigado

Olá, Gostaria de pedir uma ajuda a vocês , tenho um cliente que está pedindo um contrato para um projeto que estou fazendo para ele. Ai vai a pergunda: Alguém tem algum modelo pronto ou pode me dar uma ajuda para criar um? Obrigado

Olá, Gostaria de pedir uma ajuda a vocês , tenho um cliente que está pedindo um contrato para um projeto que estou fazendo para ele. Ai vai a pergunda: Alguém tem algum modelo pronto ou pode me dar uma ajuda para criar um? Obrigado

Gostaria de realizar uma busca entre datas mas não está dando certo, quando realizo a busca sempre falta algum registro que era pra vim. ou vem outro que não tem nada a ver com a busca. alguém tem como me ajudar....

desculpe a mensagem de cima foi eu que mandou mas não estava logado... Mas me diga uma coisa, eu quero uma pesquisa que a pessoa digite uma data inicial e outra final. então esse codigo serve para esse tipo de busca? Set rs = objConn.Execute("SELECT * FROM sua_tabela WHERE data = '" & variavel & "' ORDER BY data DESC") If not rs.EOF Then Do until rs.eof %> data da pesquisa é: <%=rs("data")%> <br>

Como posso fazer uma busca entre datas no banco de dados? Agradeço quem poder me ajudar...