Ir para conteúdo
Fórum Script Brasil
  • 0

Como Por O Código De Paginacao?


neotheone

Pergunta

Estou desenvolvendo um sistema de banco de imagens, porém não consigo adicionar de modo alguma o código de paginacao, ele sempre dá algum erro de conflito, não 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 palavras

function 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 "não"

Letra = "N"

End Select

texto = texto & Letra

next

TiraAcento = texto

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

<!--DWLayoutTable-->

<tr>

<td height="128" colspan="4" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<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 = adUseClient

strSQL = "SELECT id, imagem, categoria, descricao, link " _

& "FROM imagens " _

& "WHERE chave LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' "

Set rstSearch = cnnSearch.Execute(strSQL)

intContador = rstSearch.RecordCount

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

<!--DWLayoutTable-->

<%

Do While Not rstSearch.EOF

%>

<tr>

<%

for coluna = 1 to limite_coluna

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

if not rstSearch.EOF then rstSearch.MoveNext

next

%>

</tr>

<%

if rstSearch.BOF then rstSearch.MoveNext

Loop

%>

</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 = Nothing

End If

%></td>

<td></td>

</tr>

<tr>

<td height="1343"></td>

<td width="120">&nbsp;</td>

<td></td>

<td></td>

</tr>

</table>

</body>

</html>

--------------------------------------------

PS: alguém saberia me ajudar a adicionar um código de paginacao nesse código?

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...