como incluir mais colunas no script

[Wilson Kerci 0]

ola amigos tudo bem , um amigo me deu esse script muito bom de listagem por culunas e paginação . porem nao sei como adicionar mais colunas alguem pode me ajudar ...

<table width="1003" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="3" class="cor3">


<!-- ***************** INÍCIO da Categorias ********************** -->
      
<%
Dim pagina, pag, conn, listaProdutos, sql, TotalPages
 
pagina = Request.ServerVariables("Script_Name")
pag = Request.QueryString("pag") 

If pag = "" Then 
pag = 1 ' Determina qual página da paginação será aberta (deixar em 1)  
End if 

Set conn = CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../db/banco.mdb")


Set listaProdutos = CreateObject("adodb.recordset")

Set listaProdutos.ActiveConnection = conn

sql = "SELECT * FROM categorias Where id Order by nome"

listaProdutos.CursorType = 3 'Tipo do cursor do RecordSet 
listaProdutos.PageSize = 6 'Qtde de registros a serem exibidos por página 
listaProdutos.Open sql 
TotalPages = listaProdutos.PageCount
%>

<%
If listaProdutos.Eof Then 

Response.Write "<br><br><br><br><br><br><br>"
Response.Write "<center><font color=red><font size=4>Nenhum Produto Cadastrado.</font></font></center>"
Response.Write "<br><br><br><br><br><br><br><br><br>"

Else
%>

<div class="listarGaleria">
      <div class="listar">
        <ul>
 
<%
Dim contador, maxcol, listar_id 
contador = 0 
maxcol = 3
listaProdutos.AbsolutePage = pag 
While Not listaProdutos.EOF And i < listaProdutos.PageSize i = i + 1
listar_id = listaProdutos("id")
%>

<%  
	If contador <= maxcol Then 
%>

	<li>
<div class="moldura">
<div align="center">
<a class="listaProdutos" href="./listar.asp?lista=produtos&nome_cat=<%=listaProdutos("id")%>&categoria=<%=listaProdutos("nome")%>"><%=listaProdutos("nome")%>
  
<%
If listaProdutos("foto") <> "" Then
%>

  <div align="center"><img src="./fotos/categorias<%=listaProdutos("foto")%>" width="250" height="180" border="0"></div>

<% 
Else 
%>

  <div align="center"><img src="./fotos/sem_foto.gif" width="250" height="180" border="0"></div>
  
<% 
End If 
%>

</a>  
</div>
</div> 
   
<% 
contador = contador + 1 
Else 
%>
 
</li>
 
	<li>
<div class="moldura">
<div align="center">  
<a class="listaProdutos" href="./listar.asp?lista=produtos&nome_cat=<%=listaProdutos("id")%>&categoria=<%=listaProdutos("nome")%>"><%=listaProdutos("nome")%>
  
<%
If listaProdutos("foto") <> "" Then
%>

  <div align="center"><img src="./fotos/categorias<%=listaProdutos("foto")%>" width="250" height="180" border="0"></div>

<% 
Else 
%>

  <div align="center"><img src="./fotos/sem_foto.gif" width="250" height="180" border="0"></div>
  
<% 
End If 
%>

</a>  
  </div>
</div>   

<% 
	  contador = 1 
	End If 
  listaProdutos.MoveNext 
Wend
 
Do While contador <= maxcol 
%>

<%  
contador = contador + 1 
Loop 
%> 

</li>

        </ul>        
      </div>
    </div>

<br>

<table width="990" border="0" align="center" cellpadding="1" cellspacing="1">
	<tr> 
		<td>
<div align="center">        
<span class="txtPaginacao"> Página <b><%=pag%></b> de <b><%=TotalPages %></b> </span>

<br /> 

<%
Dim max_n_mostrados, intervalo, inicio, final, i 
max_n_mostrados = 500

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

If CInt(inicio) <1 Then 
 inicio = 1 ' 
 final = 50 ' Número máximo de páginas que será exibidas, exemplo: (1 - 2 - 3 - 4 ... 50)
End If

If CInt(final) > CInt(TotalPages) Then final = TotalPages

For i = inicio To final
	 If CInt(i)=CInt(pag) Then
		 Response.Write "<span class=txtPaginacao> [" & i & "] </span>"
	 End If
	 
	 If CInt(i) < CInt(pag) Then
	 
	  Response.Write "<a class=paginacao href='"&pagina&"?pag=" & i & "'>" & i & "</a> "
	  
	 End If
	 
	 If CInt(i) > CInt(pag) Then
	 
		 Response.Write "<a class=paginacao href='"&pagina&"?pag=" & i & "'>" & i & "</a> "
		 
  End If
  
Next
%>

</div>

</td>
  </tr>
</table>

<%
listaProdutos.Close 
Set listaProdutos = Nothing 
End If
%>

[xanburzum 169]

vc mudou a variável maxcol de 3 para 10, por exemplo

[wilnet 92]

No tópico anterior que vc criou, já é explicado isso.

 

Para você controlar as Colunas e tb as Linhas de registro, são nessas duas LINHAS que você deve alterar:

Aqui você define Quantas COLUNAS. No caso terá 3 Colunas.

maxcol = 3 'Número de Colunas

Aqui você Define o NÚMERO de registro por Página. No Caso a cada 6 Registro, cria uma nova Pg.

listaProdutos.PageSize = 6 'Qtde de registros a serem exibidos por página 

Essas duas Linhas, estão nos CODE ASP, e não no CSS ok. Procure elas e altere a seu desejo.

Faça essas Alterações, e veja como ficou.

Att,

William

[xanburzum 169]

Os PageSize propriedade define ou retorna um valor longo que indica o número máximo de registros permitidos em uma única página de um objeto Recordset. O padrão é 10.

Dica: Para obter o número de páginas em um objeto Recordset, use a propriedade PageCount.

[Wilson Kerci 0]

amigo boa tarde obrigado pela resposta porem , no campo

listaProdutos.PageSize = 6 'Qtde de registros a serem exibidos por página 

muda e fica show de bola mas o campos

maxcol = 3 'Número de Colunas

independente do valor não muda nada as colunas ,

outra coisa como faço para a listagem nao fica dentro de um campo com barra de rolagem

[wilnet 92]

Olá Wilson, blza.

 

Responda apenas nesse tópico, pois está mantendo 2 tópico com o mesmo assunto.

 

 

Vc precisa analisar o CSS também.

 

Veja nas propriedades de ".listarGaleria" e faça os ajustes das medidas em px, isso pode estar interferindo no número de colunas.

 

Até.

[xanburzum 169]

anule este tópico e mantenha somente 1, pois é a mesma dúvida