Originariamente inviato da joeStrom212
Ciao mi scuso per il ritardo con cui ti rispondo. ma purtroppo il link ke mi hai postato nn và
Ho provato e il link funziona perfettamente, ti manda al sito della Microsoft dove spiega come risolvere il problema.
Il problema, comunque sta nel fatto che tu compi delle operazioni sul recorset dopo aver chiuso la connessione.
In ogni caso prova così:
codice:
<%
Response.buffer=true
Dim n_rec, cont, pag
' Connessione database
Set connessione = Server.CreateObject("ADODB.Connection")
sql = "SELECT * FROM immobili Order by 'pz' ASC"
str = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
str = str & "DBQ=" & Server.MapPath("db/immobili.mdb")
connessione.open str
%> 
<% 
Set miorecord = Server.CreateObject("ADODB.Recordset")
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>
In rosso la parte modificata


ciauz: