Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal, como faça paginação com abecedário? Uso o banco SQL Server 2000.
O código abaixo faz paginação usando o "próximo e voltar", mas queria que você com o alfabeto, tipo: A, B, C... e se a pessoa clica em A aparece a lista com inicias A
Como faz?
<%
Set rsbusca = server.CreateObject("ADODB.RecordSet")
rsbusca.CursorLocation = 3
sql = "SELECT * FROM noticias order by datar desc, codigo desc"
rsbusca.PageSize = 24
IF rsbusca.EOF then
Response.Write "nenhum registro encontrado. <a href=""index.asp"">CLique aqui para voltar</a>"
Response.End 'paramos o programa
ELSE
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> rsbusca.PageCount then
intpagina=rsbusca.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
rsbusca.AbsolutePage=intpagina
intrec=0
%>
Olá Marvi....
olha este exemplo
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set RS = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" & Server.MapPath("banco/bd.mdb") & ""
Conn.Open
pagina = Request.QueryString("pagatual")
letra = Request.QueryString("letra")
If letra = "" Then
letra = "A"
SQL = "Select * FROM maladireta WHERE nome LIKE 'A%' Order by nome ASC"
Else
SQL = "Select * FROM maladireta WHERE nome LIKE '"&letra&"%' Order by nome ASC"
End If
RS.Open SQL, conn, 3, 3
If RS.EOF Then
Response.Write "Nenhum registro encontrado!"
Response.Write("<a href=javascript:history.back(-1)><br><br>Voltar</a>")
Response.End()
End If
const pags = 15
RS.pagesize = pags
RS.cachesize = pags
RS.absolutepage = 1
%>
<html>
<head>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%letras = "0123456789ABCDEFGHIJKLMNOPQRSTUVXYZ"%>
<%For i = 1 to 35%>
<%="<a href=paginacao.asp?letra="&Mid(letras, i,1)&">"&Mid(letras, i,1)&"</a> "%>
<%Next%>
</td>
</tr>
<tr>
<td> </td>
</tr><%While NOT RS.EOF%>
<tr>
<td><%=RS("nome")%></td>
</tr></table>
</body>
</html>
Basicamente colocará a informação da letra inicial na query