paginazione diversa

[beppenet]

Ciao raga, utilizzo da tempo il codice che vi posto qui sotto per ottenere la paginazione dei miei dati...in coda la tutto vi sono i numeri delle varie pagine ma ora devo ottenere qualcosa del genere


come vedete le pagine successive sono raggruppate in gruppi da 10...in più sn non in coda ma all'inizio dei dati...

questo il codice che utilizzo ora

<%@ language = "VBSCRIPT" %>


<%
.
.
.

    ' Retrieve page to show or default to 1
    If Request.QueryString("page") = "" Then
		iPageCurrent = 1
    Else
		iPageCurrent = CInt(Request.QueryString("page"))
    End If

    If Request.QueryString("order") = "" Then
		strOrderBy = "id"
    Else
	  	strOrderBy = Request.QueryString("order")
	End If
  
  Response.write  ""& BlackF &"<p align=center>Manifestazioni della UST Cisl di Foggia

"
  
        SQL = "SELECT * FROM manifestazioni ORDER BY " & strOrderBy & " ASC ;"
	
	Set objCon = Server.CreateObject ("ADODB.Connection")
	objcon.Open dbcon
	Set objRec = Server.CreateObject ("ADODB.Recordset")
	
	Objrec.PageSize = iPageSize
    Objrec.CacheSize = iPageSize
     
objRec.Open SQL, objcon, adOpenStatic, adLockReadOnly, adCmdText
     
         iPageCount = objrec.PageCount
         iPageCount = objrec.PageCount
       
       If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
       If iPageCurrent < 1 Then iPageCurrent = 1

       ' Check page count to prevent bombing when zero results are returned!
         If iPageCount = 0 Then
	  Response.Write "Non sono state trovate immagini!"
	 
	Else
	' Move to the selected page
	objrec.AbsolutePage = iPageCurrent
	
		Response.Write "" & normalF & "Sono presenti " & objRec.RecordCount & " foto in quest'album"
	end if
%>
<table width="80%" border="0" bordercolor="#000000" cellspacing="0" cellpadding="0" height="40" align=center>
	<tr>
  <%
     iRecordsShown = 0
          Do While iRecordsShown < iPageSize And Not objrec.EOF
If NOT ObjRec.BOF Then 
	Response.write ""&showimage&""  
        imagenr = imagenr + 1
        iRecordsShown = iRecordsShown + 1
      
       		objRec.MoveNext
   		end if
       
    loop  
            
      	    ObjRec.close
	set Objrec = Nothing
'------------------------------------------------------------------------	
function showimage()
	dim HTML
	html = ""
  if imagenr = 3 then 'change this if you want more than 4 images in a row
    	html = "<tr></tr>"
    	imagenr = 0
  end if
    html = html & "<td>"& SmallF & "
"
    html = html & "[img] & [/img]
" & ObjRec("info") & "</td>"
	
	showimage = html
end function
'------------------------------------------------------------------------	
	%>
 </tr>
</table>

<% 
  Response.write "
"& SmallF& ""
  If iPageCurrent > 1 Then
%>
<a href="./foto_manifestazioni.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">[&lt;&lt; 
Precedenti]</a> 
<%
End If

'Showing PageNumbers
For I = 1 To iPageCount
	If I = iPageCurrent Then
		%>
<%= I %> 
<%
	Else
		%>
<%= I %> 
<%
	End If
Next 'I

If iPageCurrent < iPageCount Then
	%>
[Successive &gt;&gt;] 
<% 	
	End If
	Response.write "


"& SmallF& " "& infcop &""
%>

cosa e dove devo modificare il codice??'

[beppenet]

ok raga sicuramente l'arcano è qui:

<% 
  Response.write "
"& SmallF& ""

'MOSTRA NUMERI DI PAGINA
For I = 1 To iPageCount
	If I = iPageCurrent Then
		%>
<%= I %>
<% Else	%>
<%= I %> 
<%
	End If
Next 'I
%>
<% Response.write "


"& SmallF& " "& infcop &"" %>

come fare perchè stampi 1-10 11-20 invece di 1-2-3-4 e così via...ho fatto delle prove inserendo un altro indice ma nn sono molto pratico e ottengo scarsi risultati


mi date una mano??