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
                         %>