paginacao

neotheone · Outubro 18, 2005

Estou desenvolvendo um sistema de banco de imagens, porém nao consigo adicionar de modo alguma o código de paginacao, ele sempre dá algum erro de conflito, nao sei o que pode estar havendo, segue abaixo o código para o sistema de banco de imagens, sem o código de paginacao:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Dim strURL Dim cnnSearch Dim rstSearch Dim strDBPath Dim strSQL Dim strSearch inicio = Timer'#Função que tira todos os acentos das palavrasfunction TiraAcento(StrAcento) for i = 1 to len(StrAcento) Letra = mid(StrAcento, i, 1) Select Case Letra Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä" Letra = "A" Case "é","É","ê","Ê","Ë","ë","È","è" Letra = "E" Case "í","Í","ï","Ï","Ì","ì" Letra = "I" Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò" Letra = "O" Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û" Letra = "U" Case "ç","Ç" Letra = "C" Case "ñ" Letra = "N" End Select texto = texto & Letra next TiraAcento = textoend function strURL = Request.ServerVariables("URL")strSearch = Request.QueryString("search")%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><table width="688" border="0" cellpadding="0" cellspacing="0">  <tr> <td height="128" colspan="4" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">  <tr> <td width="688" height="128"><form action="<%= strURL %>" method="get"> <div align="center"> <input name="search" value="<%= strSearch %>" /> <input name="submit" type="submit" value="Pesquisar" /> </div> </form> <p align="center"> <%If strSearch <> "" Then strDBPath = Server.MapPath("imagens.mdb")Const adUseClient = 3 Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"cnnSearch.CursorLocation = adUseClientstrSQL = "SELECT id, imagem, categoria, descricao, link " _ & "FROM imagens " _ & "WHERE chave LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " Set rstSearch = cnnSearch.Execute(strSQL)intContador = rstSearch.RecordCountlimite_coluna=3 %> </p></td> </tr> </table></td> </tr> <tr> <td width="292" height="78"></td> <td valign="top"><table width="120" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF">  <% Do While Not rstSearch.EOF %> <tr> <% for coluna = 1 to limite_colunaif rstSearch.EOF then response.write "<td> </td>"else%> <td width="116" height="58" valign="top"><p><img src="<%=rstSearch("imagem")%>" alt="Imagem"></p> <p><a href="<%=rstSearch("link")%>">link</a></p></td> <%end ifif not rstSearch.EOF then rstSearch.MoveNextnext%> </tr> <%if rstSearch.BOF then rstSearch.MoveNextLoop%> </table></td> <td width="13"></td> <td width="263"></td> </tr> <tr> <td height="18"></td> <td colspan="2" valign="top"><% rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = NothingEnd If%></td> <td></td> </tr> <tr> <td height="1343"></td> <td width="120"> </td> <td></td> <td></td> </tr></table></body></html>--------------------------------------------PS: alguem saberia me ajudar a adicionar um código de paginacao nesse código?

Salgado · Outubro 18, 2005

Para paginação você deve usar RECORDSET ADO, dê uma olhada no tópico pendurado DUVIDAS FREQUENTES, lá tem um link para um código de paginação.

Entrar

Arquivado

paginacao

Recommended Posts

neotheone 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante