Problemi alla Paginazione

[mmaria]

Ciao amici sono maria e lavoro in asp
Il mio script che mi consente di fare la paginazione dei record mi scrive i numeri di pagina tutti nella stessa riga e così se visualizza venti pagine ecco che mette i numeri da 1 a 20 nella stessa riga e non vanno a capo. Come faccio per far andare a capo questi numeri ogni dieci numeri?
Spero di esesre stata chiara.
Grazie in anticipo

'paginazione
RecordsPerPagina = 1
page = Request("page")
if page="" then page=1
orderby = Request.Querystring("orderby")
if orderby = "" then orderby = "ad_id"
if orderby = "click" then orderby = "click desc"


For pag=1 to rs.PageCount
Response.Write ("<a href=""foto_centro.asp?page="& pag &"&orderby="& orderby &"#alto""")
Response.write "'>"
Response.Write pag
Response.Write "</A>"
Next
Response.Write "</P>"

[agenti]

RecordsPerPagina = 10

ma a me sembra che manchi qualcosa..

[mmaria]

Scusate non ho chiesto dieci record per pagina da visualizzare ma da visulizzare le pagine a gurppi di dieci. Mi spiego. Quando faccio la paginazione in alto o in basso alla pagina visulizzata mi appaiono dei numeri 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ....
tanti numeri quante sono le pagine da visulizzare. Vorrei che questi numeretti anzichè apparirmi tutti nella stessa linea mi apparissero su linee di dieci... es
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16....

Spero di esesrmi spiegata
vi voglio bene
Maria

[agenti]

solitamente uso una funzione che fa tutto questo.

inizio = 1
fine = 10

for i = 1 to 10
response.write ""&i&"" & vbcrlf
next

il problema è come definire inizio e fine.
Infatti è possibile che tu sia alla ottava pagina...

e in realtà resterebbe solo da visualizzare la 8 e la 9 e la 10..
fatti un pò di calcoli..

[mmaria]

non funziona

[agenti]

in che senso ??

:master:

[Santino83_02]

totPagine = 200 'numero di pagine che lo script di paginazione crea
actPage = XX 'pagina attuale che si sta visualizzando

for i = 1 to totPagine

if i mod 10 = 0 then response.write "
"

if i = actPage then
  response.write "" & i & ""
else
  response.write "" & i & ""
end if

next