ciao a tutti il prob. è questo: se nella textbox inserisco un userID sbagliato lo script mi fa il controllo è mi risponde che l'utente non esiste, se invece metto un userID giusto mi riporta questo errore:

Tipo di errore:
ADODB.Recordset (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name or ordinal.
/lostpsw/lostpsw.asp, line 31

il codice è questo:
<code>
<%
' controlla l'e-mail
user = Trim(Request.Form("user"))

If Len(user) < 5 Then

Response.write "<P>Hai dimenticato la password?"

Response.write "<form method=post>" &_
"Inserisci lo user-id: "&_
"<input type=""text"" name=""user"">"&_
"<input type=""submit"" value=""Invia"">"&_
"</form> "

Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("mdb_database\db_psw.mdb") & ";"

mail = Replace(mail, "'", "'")
SQL = "SELECT Mail, Password FROM members WHERE " &_
" user = '" & user & "'"
Set Rs = Conn.Execute(SQL)

' non trovato!
If Rs.EOF Then
Response.write "<P>Non esiste questo utente!"

Else
' invia la password
mail2 = Rs("user")
password = Rs("password")

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "email@boooh.it"
objMail.To = mail2
objMail.Subject = "Ecco la tua password"
cdoMail.Body = password
cdoMail.Send()
Set cdoMail = Nothing

Response.Write "<P>Password spedita!"

End if

Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

End If

%>
</code>

secondo voi dove sbaglio???


la parola può essere libera; il pensiero, purtroppo, è in libertà vigilata: dalla ragione, dalla verità, dalla conoscenza, dalla logica

Primo problema risolto.............
adesso mi da quest'altro problema:

Microsoft VBScript runtime error '800a01a8'

Object required: 'cdoMail'

/lostpsw.asp, line 37

<code>
<%
' controlla l'e-mail
user = Trim(Request.Form("user"))

If Len(user) < 5 Then

Response.write "<P>Hai dimenticato la password?"

Response.write "<form method=post>" &_
"Inserisci lo user-id: "&_
"<input type=""text"" name=""user"">"&_
"<input type=""submit"" value=""Invia"">"&_
"</form> "

Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/mdb-database/db_psw.mdb") & ";"

mail = Replace(mail, "'", "'")
SQL = "SELECT user, mail, password FROM members WHERE " &_
" user = '" & user & "'"
Set Rs = Conn.Execute(SQL)

' non trovato!
If Rs.EOF Then
Response.write "<P>Non esiste questo utente!"

Else
' invia la password
mail = Rs("user")
password = Rs("password")

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "info@ondatasonica.com"
objMail.To = mail
objMail.Subject = "Ecco la tua password"
cdoMail.Body = password ' linea 37
cdoMail.Send()
Set cdoMail = Nothing
Response.Write "<P>Password spedita!"
End if
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

End If

%>
</code>

secondo voi cosa può essere???

la parola può essere libera; il pensiero, purtroppo, è in libertà vigilata: dalla ragione, dalla verità, dalla conoscenza, dalla logica