Salve a tutti vi posto qui di seguito uno script che ho realizzato, il file apre il db e successivamente mi legge tutto il contenuto del db, successivamente mi è stato richiesto di fare la paginazione, cosa che onestamente non sono in grado di fare anke xkè nn me la cavo moltissimo con asp, allora un mio amico mi ha passato un script che ho integrato e il risultato finale è questo:

<% Response.buffer=true
Dim n_rec, cont, pag
Set connessione=Server.CreateObject("ADODB.Connection" )
Set miorecord=Server.CreateObject("ADODB.Recordset")
str = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/immobili.mdb")
connessione.ConnectionString = str
connessione.Open sql, connessione,1,5
sql = "select * from immobili ORDER BY 'pz' ASC"

set miorecord = connessione.Execute(sql)
n_rec = 5
cont = 0
pag = Request.Querystring("pag")
If IsNumeric(pag) = False Or pag<1 Then pag=1
%>
<title>Le nostre offerte</title>
</head>
<body >
<div align="left" class="par">
<table border="0" cellpadding="0" cellspacing="0" width="400">
<%
miorecord.PageSize = n_rec
miorecord.AbsolutePage = pag
while not miorecord.eof and cont<n_rec
Response.Write("<tr><td>[img]images/"& miorecord("immagine")& "[/img]</td><td><table><tr><td>"& miorecord("tipologia") &"</td></tr><tr><td>"& miorecord("ubicazione") &"</td></tr><tr><td>"& miorecord("strutturato") &"</td></tr><tr><td>"& miorecord("varie") &"</td></tr><tr><td>"& miorecord("prezzo") &"</td></tr></table></td></tr>

")
miorecord.movenext
cont=cont+1
wend
%>

</div>
</table>
<p align=center class="param">
<% if pag>1 then%>
Indietro
<%End if%>
<%
Dim y
y = 1
For y = 1 to miorecord.PageCount
if CInt(pag)<> y then
%>
[<%=y%>]
<%
Else
%>
[<%=y%>]
<%
End If
Next
%>
<% If miorecord.EOF = False then%>
Avanti
<% End if%>
</p>

</body>
</html>

il messaggio di errore che mi da il server è
DODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.
Aiutatemi nn so più che fare nn ne riesco a venire a capo