sto creando alcune pagine in asp solo che mi da quest'errore quando mando i file

ADODB.Recordset (0x800A0E78)
L'operazione non è consentita se l'oggetto è chiuso.
/pagineriservate/registrati2.asp, line 28


vi allego anche lo script, spero possiate aiutarmi


<html>

<head>
<title>SEZIONI RISERVATE</title>
</head>

<body>



</p>
<p align="center"><font face="Verdana" size="3">Sezioni Riservate - Registrati</font></p>

<%

username = Replace(Request.Form("username"),"","")
password = Replace(Request.Form("password"),"","")
email = Request.Form("email")

IF username <> "" and password <> "" and Instr(email,"@") > 0 and Instr(email,".") > 0 then

url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.connection")
conn.Open url_DB

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti where username = '" & username &"' RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic"

IF Not RecSet.Eof Then <== questa è la riga 28

usato = True

Else

usato = False
End IF

RecSet.Close
Set RecSet = Nothing

IF usato = True then

%>
<hr>
<p align="center"><font face="Verdana" size="2">Username inserito già in uso!</font></p>
<hr>
<%
Else

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti Order By ID Desc"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic

RecSet.Addnew

RecSet("username") = username
RecSet("password") = password
RecSet("email") = email


RecSet("attivo") = 0

RecSet.Update
RecSet.Close
Set RecSet = Nothing

Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT ID FROM Utenti Where username = '" & username & "' and password = '" & password &"' RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic"

ID = RecSet("ID")

RecSet.Close
Set RecSet = Nothing

Conn.Close
Set Conn = Nothing

mittente = "chivasgroup@hotmail.it"

testo = "Caro utente," & chr(13)
testo = testo & "per attivate la registrazione al nostro sito, fai click sul link qui sotto" & chr(13)
testo = testo & "http://localhost/pagineriservate/attiva.asp?ID="& id &""& chr(13) & chr(13)
testo = testo & "Lo staff di Mio sito!" & chr(13)
testo = testo & "http://www.sitomio.it"

Set email = CreateObject("CDONTS.NewMail")
email.From = mittente
email.To =email
email.subject = "[MIO SITO] ATTIVA LA REGISTRAZIONE!"
email.Body = testo
email.Send

Set email = nothing
%>
<hr>
<p align="center"><font face="Verdana" size="2">Ti è stata inviata una email per confermare la registrazione!</font></p>
<hr>
<%
End IF

Else
End If
%>
<hr>
<p align="center"><font face="Verdana" size="2">Compila tutti i dati corretamente!</font></p>
<hr>
</body>
</html>


spero possiate aiutarmi grazie