Modificare paginazione ASp/MySQL

[DeR]

Questa e la mia paginazione ASP/MySQl, la vorrei modificare inserendo al posto delle frece per scorrere avanti e indietro, vorrei inserire i numeri (es: 10 pag: 1 2 3 4 5 6 7 8 9 10)tipo google ho provato a modiifcare (parte in rosso) ma nonn funziona perfettamente nel senso che se metto 30 prodotti e ne metto 10 per pag lui mi visualizza una quarta pag vuota.

ki mi aiuta?

<% 
						
						  Dim pagina, rsCount, inizio, totali, numPagine, PageSize
						  pagina = CInt(request.QueryString("pag"))
						 
						  If pagina <= 0 Then 
						    pagina = 1
						  End If
						 
						  Dim sqlCount
						  sqlCount = "SELECT COUNT(*) AS totale FROM tbprodotti WHERE CategoriaProdotto ='" & varCategoria & "' ORDER BY IDProdotto DESC"
						 						 
						  Set rsCount = objConn.Execute(sqlCount)
						 
						  PageSize = 22
						  inizio = (pagina - 1) * PageSize
						  totali = CInt(rsCount("totale"))
						  numPagine = totali / PageSize
						 
						  If numPagine - CInt(numPagine) > 0 Then
						     numPagine = CInt(numPagine + 1)
						  Else
						     numPagine = CInt(numPagine)
					      End If
						 
						  rsCount.Close
						  Set rsCount = Nothing
						 
                          Dim sqlCerca, i, m
                          sqlCerca = "SELECT * FROM tbprodotti WHERE CategoriaProdotto ='" & varCategoria & "' LIMIT " & inizio & ", " & PageSize 

                        'response.write(sqlCerca ) : response.end 

                          Dim rs
						  Set rs = objConn.Execute(sqlCerca)
						
						  If totali > 0 Then
						  
                             For i = 1 To PageSize
						         If rs.EOF <> true And rs.BOF <> true Then
							     
								     m=m+1 

                                     If m MOD 2 = 0 Then
......................
.....................

 End If
						  
						  Response.Write("</tbody></table><table align='center'><tr>")
						
						   If pagina > 1 Then
						      Response.Write ("<td class='testoBlu'><<</td>")
						   End If
						   
						   If totali > PageSize And numPagine > pagina Then
						     Response.Write ("<td class='testoBlu'>>></td>")
						   End If
						   
						   'For i = 1 To numPagine
						     'If i = pagina Then
						        'Response.Write("<td class='testoBlu'>("& i &")</td>") 
						     'Else
						        'Response.Write ("<td class='testoBlu'>"& i &"</td>")
                             'End If
						   'Next 
						   
                           rs.Close
                           Set rs = Nothing
                         %>

[99eros9]

Usa z come var contatore, se non sei sicuro del valore di i che usi anche in altri posti.

Dim z
Select Case numPagine
	Case 0,1
	response.Write( " 1 " )
	Case Else
	For z = 1 To numPagine
		response.Write( " <a href='?pag=" & z & ">" & z & "</a> " )
	Next
z = 0
End Select

[DeR]

Ho provato, ma non funziona, pero ad esempio se sto nella prima pag, volevo far uscire tutti numeri delle altre pag cliccabili e il primo no, invece nella prima pag mi esce solo il num 2, poi andando nella seconda pag mi da un errore:

Errore di run-time di Microsoft VBScript error '800a000d'
Tipo non corrispondente: 'CInt'

/ASP/sezInformatica.asp, line 417

Script modificato:

Dim z
						  Select Case numPagine
						         
								 Case 0,1
								      response.Write("1")
								 Case Else
								      For z = 1 To numPagine
								          response.Write("" & z & "")
						               Next
									   
									   z = 0
									   End Select

[99eros9]

Devi togliere CInt.

[DeR]

gia mi dava l'errore e io l'ho aggiunto, la riga dell'errore e questa:


pagina = CInt(request.querystring("pag"))


togliendo il cint, mi da un errore alla riga successiva con l'if

[99eros9]

Mi riferivo al CInt(z)

[DeR]

Anche senza il cint(z) mi da lo stesso errore.

[99eros9]

strano, uso qualcosa di molto simile e a me non da nessun problema.

[DeR]

Esiste un equivalente di PageCount per fare la paginazione in mySQL?

[DeR]

PageSize?