Codice PHP:
<%
data = Replace(Request.Form("data"), "'", "''")
data2 = Replace(Request.Form("data2"), "'", "''")

    ' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE
    Dim sc, cn, rs, quanti,quanti2, pag, contatore, contatore2

    ' DEFINISCO LA STRINGA DI CONNESSIONE
    sc = ""
    sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
    sc = sc & Server.MapPath("/mdb-database/prove_db.mdb")

    ' IMPOSTO LA CONNESSIONE EDIL RECORDSET
    Set cn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")



    ' APRO LA CONNESSIONE COL DATABASE
    cn.Open sc
    
    ' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA
    quanti = 5
    
    ' RECUPERO IL NUMERO DI PAGINA CORRENTE
    ' E CONTROLLO CHE NON SIA INFERIORE A 1
    
    pag = Request.QueryString("pag")
    If IsNumeric(pag) = False Or pag < 1 Then pag = 1

    ' IMPOSTO UN CONTATORE
    contatore = 0


%>
 

<html>

<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
</head>

<body>

<%
    ' APRO IL RECORDSET
    rs.Open "SELECT * FROM tabella WHERE data >= #" & data & "# AND data2 <= #" & data2 & "#"

     'EFFETTUO MATERIALMENTE LA PAGINAZIONE
    rs.PageSize = quanti
    rs.AbsolutePage = pag
    ' ESEGUO IL CICLO
    While rs.EOF = False And contatore < quanti
%>



dal <%=rs("data")%> al <%=rs("data2")%>titolo <%=rs("titolo")%> descrizione <%=rs("descrizione")%></p>

<%rs.MoveNext
' INCREMENTO IL VALORE DEL CONTATORE
 contatore = contatore + 1
Wend
%>

</body>


<%
    ' UN PO DI PULIZIA...
    rs.Close
    Set rs = Nothing
%>
</html> 

Mi da questo errore
ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/provedatabse/dati.asp, line 50