Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

neotheone

Problemas com a paginação

Por , em ASP Clássico

Recommended Posts

neotheone    0

neotheone
Postado

Fala pessoal, to tentando ja tem algum tempo, por um codigo de paginacao na minha página de banco de imagens mas ta sinistro.

 

entrem na pagina http://www.sistemagaudeensino.com.br/bancodeimagens/

e digitem no campo de busca a palavra terminal

 

vcs veram q aparecerá um erro na linha 96, essa linha tem um monte de *** do lado, o q pode estar havendo?

 

 

script asp:

<%@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 "ñ"

Letra = "N"

End Select

texto = texto & Letra

next

TiraAcento = texto

end function

 

 

strURL = Request.ServerVariables("URL")

 

strSearch = Request.QueryString("search")

 

%>

<html>

<head>

<style type="text/css">

a.lojas{

font-family: verdana; color:0099cc; text-decoration:none; font-size:8pt; font-weight:bold;

}

a:hover{

color:00CCFF; text-decoration:underline;

}

</style>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body>

<p>  </p>

<table align="center" width="688" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr>

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

<!--DWLayoutTable-->

<tr>

<td width="688" height="65" valign="top"><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

 

'cria o objeto para conexão com banco de dados

Set cnnSearch = Server.CreateObject("ADODB.Connection")

'cria a conexão com o banco de dados

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

pag = request.QueryString("p")

if pag = "" then

pag = 1

end if

set rs = server.CreateObject("ADODB.RecordSet")

 

'aqui mostro a quantidade de registros por pagina

rs.pagesize = 2

 

'aqui seleciono tudo (*) da tabela teste, com o conexao "con"

rs.open sql, con, 3, 3 ************************************** aqui aqui

 

'aqui falo a pagina atual

rs.absolutepage = pag

 

'declaro que a variavel "contador" é igual a 0

contador = 0

 

cnnSearch.CursorLocation = adUseClient

'instrução SQL para selecionar as imagens de acordo com a palavra chave digita

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

& "FROM imagens " _

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

'execução da instrução SQL

Set rstSearch = cnnSearch.Execute(strSQL)

intContador = rstSearch.RecordCount

limite_coluna=3

 

%>

</p></td>

</tr>

</table></td>

</tr>

<tr>

<td width="292" height="3"></td>

<td width="120"></td>

<td width="276"></td>

</tr>

<tr>

<td height="71"></td>

<td valign="top"><table width="120" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF">

<!--DWLayoutTable-->

<%

'Enquanto não chegar no final do arquivo

Do While Not rstSearch.EOF AND contador < rs.pagesize

contador = contador +1

%>

<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 class="lojas" 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

For i = 1 To rs.PageCount

 

'se a variavel "i" for igual a variavel "pag" ele não trnsforma em um link

If i = cint(pag) Then

Response.Write i

 

'caso contrário

Else

 

'escreve o nome da página com a querystring "p"

Response.Write "<a href='" & request.servervariables("script_name") &"?p=" & i & "'>" & i & "</a> "

 

'finaliza o if

End If

 

'próximo numero de pagina (quaso exista)

Next

 

'fecho a conexão

rs.close

Set rs = nothing

%>

</table></td>

<td></td>

</tr>

<tr>

<td height="18"></td>

<td valign="top"><%

 

rstSearch.Close

Set rstSearch = Nothing

cnnSearch.Close

Set cnnSearch = Nothing

End If

 

%></td>

<td></td>

</tr>

<tr>

<td height="78"></td>

<td> </td>

<td></td>

</tr>

</table>

<p>  </p>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito