ho risolto, con un codice trovato in rete, la paginazione.
rimane però il problema che vorrei il cambio di foto all'interno della pagina, senza cambiare il resto.
Ora ho incluso la paginazione come procedura all'interno della pagina principale, come possono essere le variazioni?

Grazie
michele

codice:
<%

Sub paginazione()
Dim strCon, oCon, pages, Rec, DisplayNum, i, page, SQL, ipage, z

Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adUseClient = 3
Const adCmdText = 1 

page = request.querystring("page")
If page = "" Then
page = 1
else
page = cint(page)
End If

DisplayNum = 0

Set oCon = Server.CreateObject ("ADODB.Connection")
Set Rec = Server.CreateObject ("ADODB.Recordset")

oCon.Open ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("/laderchi2/db1.mdb"))
Rec.PageSize = 1
Rec.CursorLocation = adUseClient 
SQL = "SELECT * FROM tabellafoto where idcane =3 " 
Rec.Open SQL, oCon

if Rec.EOF OR Rec.BOF Then
response.write "

"

response.write "<p align=center>Sorry, There is no result ... </p>"
else

ipage = Rec.PageCount 

if page = 0 or page > ipage Then
Rec.AbsolutePage = ipage
else
Rec.AbsolutePage = page
end if

Do While Not Rec.EOF AND DisplayNum < 1

%><center><img src = "/laderchi2/<%=rec("linkfoto")%>"  /> </center><%

DisplayNum = DisplayNum + 1
Rec.MoveNext
Loop

end if

If ipage > 1 Then
response.write "<p align=center>"

For z = 1 to ipage
If z = page then
pages = pages & page & " "
Else 
pages = pages & " <a href=?page=" & z & ">" & z & "</a>" & " "
End If 
Next 
response.write pages & ""
End If

response.write "[/b]</p>"
Rec.Close
oCon.Close
set Rec = nothing
set oCon = nothing

end sub
%>