Salve a tutti.
ho dei problemi nell'integrare lo script #261 della paginazione con il #208.
questo è il 208(che funziona bene)
<%
RecordsPerPagina = 1
page = Request("page")
if page="" then page=1
set rs = server.createobject("ADODB.Recordset")
sqlString = "SELECT * FROM tbalberghi"
rs.open sqlString, con, 1, 3
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
If rs.Eof=True or rs.Bof=True then
Response.Write "<P>Nessun risultato trovato</P>"
Else
For i=1 to RecordsPerPagina
if Not rs.EOF then
%>
visualizzo record
<%
rs.MoveNext
end if
next
end if
%>
questa è la barra di navigazione:
<%
Response.Write "<P><B>Pagine:</B> "
For pag=1 to rs.PageCount
Response.Write "<A href='albergi2.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
next
response.Write "</P>"
%>

ora il mi oproblema è integrare quest script,che mi pare dovrebbe migliorare la barra di navigazione(non dovrebbe visualizzare tutti i numerini,giusto??)

<%

page = rs.AbsolutePosition
totPag = rs.PageSize
Max = 10
startPage = page
EndPage = page + max
' qualche controllo
if EndPage> totPage then EndPage = totPage
for i = StartPage to EndPage
Response.write "<a href="cerca.asp?page=" & i & """>" &_
i & "</a> "
next
if page < = totpage then
Response.write "<a href="cerca.asp?page=" & page+1 & """>" &_
">></a> "

end if

%>

Bochicchio aiutamiiiiiii!
grazie

allora?
proprio nessuno?
vi pregoooooooooooooooooo