ciao a tutti,

ricevo questo errore ma non capisco perchè
codice:
ADODB.Connection error '800a0e79' 

Operation is not allowed when the object is open. 

/public/catalogo2.asp, line 43
la riga incriminata e quella in grassetto

codice:
<%
ID_TIPO=request.querystring("ID_TIPO")
'response.write ("
"&ID_TIPO&"
")
RecordsPerPagina = 12
page = Request.querystring("page")
if page="" then page=1
if ID_TIPO = "nill" or ID_TIPO = "tbd" then
response.write "
<div align=center><font face=Verdana size=2>attenzione !
è necessario selezionare una categoria</font></div>"
else

Set APRICON= Server.CreateObject("ADODB.Connection")
APRICON.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/public/database/db.mdb")
sqla="Select * from TIPO where ID_TIPO="&ID_TIPO
Set RSa=APRICON.Execute(sqla)
TIPO=rsa("TIPO")
ID_CAT=rsa("ID_CAT")
ID_SOTTOCAT=rsa("ID_SOTTOCAT")
RSa.Close

sqlb="Select * from CAT where ID_CAT="&ID_CAT
Set RSb=APRICON.Execute(sqlb)
CAT=rsb("CAT")
RSb.Close

sqlc="Select * from SOTTOCAT where ID_SOTTOCAT="&ID_SOTTOCAT
Set RSc=APRICON.Execute(sqlc)
SOTTOCAT=rsc("SOTTOCAT")
ESADECIMALE=rsc("ESADECIMALE")
RSc.Close

Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
APRICON.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/public/database/db.mdb")
sql = "Select * from ARTICOLI where ID_TIPO="&ID_TIPO
Rs.Open sql,conn,1,2

' paginazione
RecordsPerPagina = 12
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
%>
grazie mille