Paginação por coluna - MYSQL

[Carlos Moreira 0]

Olá pessoal tenho uma paginação normal em MYSQL funcionando redondinha.

 

Gostaria de usar o codigo abaixo para fazer uma paginação POR COLUNA com o mesmo codigo abaixo, como poderia estar adaptando?

 

<%
'Definição de Variáveis 
Dim Conn 
Dim RS 
Dim sql 
Dim Pag 
'----------------------------------------------------------- 
'Controles de Paginação 
pag = Request.QueryString("pag") 

If pag = "" Then 
pag = 1 
End if 

Call abre_conexao1(ConnString,Conn)

Conn.CursorLocation = 3 '<- Cursor de conexão 
'----------------------------------------------------------- 
'Criação de RecordSet 
Set RS = Server.CreateObject("ADODB.RecordSet") 
'----------------------------------------------------------- 
'Conexão Ativa 
Set RS.ActiveConnection = Conn 
'----------------------------------------------------------- 
'Select na tabela do banco 
sql = "SELECT * FROM Cliente order by nome" 
'----------------------------------------------------------- 
RS.CursorType = 3 'Tipo do cursor do RecordSet 
RS.PageSize = 10 'Qtde de registros a serem exibidos 
RS.Open sql '<- Executa o Select 
TotalPages = RS.Pagecount
'----------------------------------------------------------- 
'Se nao existir dados cadastrados 

%>


			<%
If RS.Eof Then 
%> 

Nenhum cadastro no momento

<%Else%> 


   <%
RS.AbsolutePage = pag 
'Tazemos todos os dados da tabela 
While Not RS.Eof and i < RS.PageSize 
i = i + 1 %>

<%=RS("nome")%>


				<%
RS.MoveNext 
Wend 
%>

<%
pagina = Request.ServerVariables("Script_Name")


' cria os links de pagians...
IF CInt(pag) > 1 THEN
%> <%
Response.Write "<a href='"&pagina&"?p=1'>Primeira</a> | "
%> <%
Else
Response.Write "<font color=""#ADADAD"">Primeira</font> | "
END IF
%> <%
if CInt(pag) > 1 then
Response.Write "<a href='"&pagina&"?pag=" & pag - 1 &"'><b>Anterior</b></a> | "
Else
Response.Write "<font color='#ADADAD'><b>Anterior</b></font> | "
END IF
%> <%
IF (CInt(pag) < TotalPages) THEN
	 IF CInt(PF) <> TotalPages THEN
   Response.Write "<a href='"&pagina&"?pag=" & pag+1 & "'><b>Próxima</b></a> | "
  END IF
Else
  Response.Write "<font color=""#ADADAD""><b>Próxima</b></font> | "
END IF
%> <%
IF (CInt(pag) < TotalPages) THEN 
	 IF CInt(PF) <> TotalPages THEN
   Response.Write "<a href='"&pagina&"?pag=" & TotalPages & "'>Última</a> "
  END IF
Else
  Response.Write "<font color=""#ADADAD"">Última</font>"
  END IF
%> 

<%
 max_n_mostrados = 9

intervalo = Int(max_n_mostrados /2)
inicio = pag - intervalo
final = pag + intervalo

If CInt(inicio) <1 Then 
 inicio = 1
 final = 10
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages

For i = inicio To final
	 If CInt(i)=CInt(pag) Then
		 Response.Write "<font color=""#000000"">[<B>" & i & "</B>]<font color=""#000000""></font>  "
	 END IF
	 If CInt(i) < CInt(pag) Then
	  Response.Write "<a href='"&pagina&"?pag=" & i & "'>" & i & "</a>  "
	 END IF
	 If CInt(i) > CInt(pag) Then
		 Response.Write "<a href='"&pagina&"?pag=" & i & "'>" & i & "</a>  "
  END IF
Next
%>

<%
RS.Close 
Set RS = Nothing 
Call fecha_conexao1() 
End IF
%>

[hargon 64]

Não entendi. Como seria isso?

[Mário Monteiro 179]

Como voce quer que fique e como está atualmente?

[Carlos Moreira 0]

Como esta o codigo pagineia assim:

 

pagina 1 de 20

 

registro 1

registro 2

registro 4

registro 5

registro 6

registro 7

registro 8

registro 9

registro 10

 

primeira pagina |1 2 3 4 5 | ultima pagina

 

Gostaria de paginar assim

 

pagina 1 de 20

 

registro 1 registro 2

registro 4 registro 5

registro 6 registro 7

registro 8 registro 9

registro 10

 

primeira pagina |1 2 3 4 5 | ultima pagina

 

Gostaia de paginar como esta em negrito poder colocar o numero de colunas desejado, entenderam?