Galera é o seguinte, eu já fiz uma pesquisa no fórum, já li os tópicos, re li alguns, e não consegui encaixar no que eu preciso.
Tipo to aprendendo asp na raça, na unha.., sosinho..., e preciso fazer uma paginação em meu código no qual não consegui, mesmo usando os prontos que achei.
Se alguém puder me ajudar, preciso de uma paginação simples que fique apenas 10 registros em cada página, a apareça o link para "proxima" e "anterior". (e os numeros d página se possível)
Ai vai o meu código:
<HTML>
<HEAD>
<title>Mensagens do Livro</title>
</HEAD>
<BODY>
<h1>
<font color=#CCCCCC size="5" face="Arial, Helvetica, sans-serif">Mensagens Postadas</font>
</h1>
<%
'Criar uma conexão com o banco de dados
'objeto tipo connection
'cria objeto do tipo ADODB.Connection
Set conn=Server.CreateObject ("ADODB.Connection")
'abrindo uma conexão com a fonte ODBC "visitas_ieqquitauna"
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\ieq\visitas_ieqquitauna.mdb"
'criando instrução sql
'para listar dados
inst_sql="SELECT visitas.Name, visitas.Email, visitas.HomePage, visitas.Comment, visitas.City, visitas.Country, visitas.State FROM visitas"
'criar objeto RecordSet
Set visitas=Server.CreateObject ("ADODB.Recordset")
'executar a instrução sql
visitas.Open inst_sql, conn, 3, 3
'montar tabela com o resultado da consulta
%>
<%
'visitas.MoveNext
do while not visitas.EOF
%>
<p>
<hr>
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#CCCCCC">
<td width="17%">Nome:</td>
<td width="83%"><%=visitas.Fields("Name")%></td>
</tr>
<tr>
<td>E-mail:</td>
<td><%=visitas.Fields("Email")%></td>
</tr>
<tr bgcolor="#CCCCCC">
<td>País:</td>
<td><%=visitas.Fields("Country")%></td>
</tr>
<tr>
<td>Cidade:</td>
<td><%=visitas.Fields("City")%></td>
</tr>
<tr bgcolor="#CCCCCC">
<td>Estado:</td>
<td><%=visitas.Fields("State")%></td>
</tr>
<tr>
<td>Home Page: </td>
<td><%=visitas.Fields("HomePage")%></td>
</tr>
<tr bgcolor="#CCCCCC">
<td>Comentário:</td>
<td><%=visitas.Fields("Comment")%></td>
</tr><br>
<%
visitas.MoveNext
loop
%>
</table>
<p> </p>
<hr>
</body>
</html>
Pergunta
jntk
Galera é o seguinte, eu já fiz uma pesquisa no fórum, já li os tópicos, re li alguns, e não consegui encaixar no que eu preciso.
Tipo to aprendendo asp na raça, na unha.., sosinho..., e preciso fazer uma paginação em meu código no qual não consegui, mesmo usando os prontos que achei.
Se alguém puder me ajudar, preciso de uma paginação simples que fique apenas 10 registros em cada página, a apareça o link para "proxima" e "anterior". (e os numeros d página se possível)
Ai vai o meu código:
<HTML> <HEAD> <title>Mensagens do Livro</title> </HEAD> <BODY> <h1> <font color=#CCCCCC size="5" face="Arial, Helvetica, sans-serif">Mensagens Postadas</font> </h1> <% 'Criar uma conexão com o banco de dados 'objeto tipo connection 'cria objeto do tipo ADODB.Connection Set conn=Server.CreateObject ("ADODB.Connection") 'abrindo uma conexão com a fonte ODBC "visitas_ieqquitauna" conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\ieq\visitas_ieqquitauna.mdb" 'criando instrução sql 'para listar dados inst_sql="SELECT visitas.Name, visitas.Email, visitas.HomePage, visitas.Comment, visitas.City, visitas.Country, visitas.State FROM visitas" 'criar objeto RecordSet Set visitas=Server.CreateObject ("ADODB.Recordset") 'executar a instrução sql visitas.Open inst_sql, conn, 3, 3 'montar tabela com o resultado da consulta %> <% 'visitas.MoveNext do while not visitas.EOF %> <p> <hr> <table width="75%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr bgcolor="#CCCCCC"> <td width="17%">Nome:</td> <td width="83%"><%=visitas.Fields("Name")%></td> </tr> <tr> <td>E-mail:</td> <td><%=visitas.Fields("Email")%></td> </tr> <tr bgcolor="#CCCCCC"> <td>País:</td> <td><%=visitas.Fields("Country")%></td> </tr> <tr> <td>Cidade:</td> <td><%=visitas.Fields("City")%></td> </tr> <tr bgcolor="#CCCCCC"> <td>Estado:</td> <td><%=visitas.Fields("State")%></td> </tr> <tr> <td>Home Page: </td> <td><%=visitas.Fields("HomePage")%></td> </tr> <tr bgcolor="#CCCCCC"> <td>Comentário:</td> <td><%=visitas.Fields("Comment")%></td> </tr><br> <% visitas.MoveNext loop %> </table> <p> </p> <hr> </body> </html>Link para o comentário
Compartilhar em outros sites
4 respostass 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.