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
Rispondi quotando
