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:
Pergunta
neotheone
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"> </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.