recupero password area protetta

[migenfa]

salve a tutti.. ho un problema con questo script che dovrebbe inviarmi una mail per poter recuperare la password nel caso un utente la abbia dimenticata...
il codice è questo:
<%
dim username
dim password
dim email
dim dbfile
dim db
dim tabella
dim sql

username=request.form("username")

%>

<%
dbfile=Server.mappath("reg_utenti.mdb")
set db=server.createobject("adodb.connection")
db.connectionstring="provider=microsoft.jet.oledb. 4.0;" & "data source=" & dbfile
db.open
%>

<%
sql=" SELECT email, password, username FROM utenti WHERE username ="
sql=sql & "'" & username & "';"
set tabella=server.createobject("adodb.recordset")
tabella.open sql,db
if tabella.eof then
Response.write "

"
Response.write "<center>"
Response.write "<font face=Tahoma size=2 color=#000099>Email Inesistente!</font>

"
Response.write "<font face=Tahoma size=2 color=#000099>Forse non hai scritto la Username in modo corretto. Torna indietro</font>

"
Response.write "<font face=Tahoma size=2 color=#000099>Oppure non hai effettuato la registrazione.</font>

"
Response.write "</center>"
Response.write "</p>"
%>


<%
else
password=tabella.fields("password")
mail=tabella.fields("email")
%>

<%
set email=server.createobject("cdonts.newmail")
%>

<%
email.From = "Nome_Sito"
email.To = mail
email.Subject = "Invio password"
email.Body = "La tua password per accedere all'area privata è: " & password &VBCrlf&VBCrlf&VBCrlf
'email.Body = email.Body & "********************************************* ***" &VBCrlf&VBCrlf
'email.Body = email.Body &"http://www.extro.tagonline.it"
email.Send()
Set email = Nothing
Response.write "<p align = center>"
Response.write "<font face=Tahoma size=2 color=#000099>Username e Password ti sono stati inviati all'indirizzo email specificato al momento della registrazione.</font>

"
Response.write "<font face=Tahoma size=2 color=#000099>Torna alla Home Page</font>"
Response.write "</p>"
%>



</p>


</p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" align="right" valign="bottom"></td>
</tr>
</table>

</BODY>
</HTML>
<%
end if
tabella.close()
db.close()
Set tabella=Nothing
Set db=Nothing
%>

l'errore che mi da è questo:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/registrazione/invia_passw2.asp, line 54

800401f3

potete dirmi quale è l'errore????

[weppos]

1. Per cortesia usa il tag code per postare del codice
2. Qual'è la riga in questione?

[Corwin]

Uhm, secondo i miei superpoteri la riga incriminata è

<%
set email=server.createobject("cdonts.newmail")
%>

[migenfa]

anche io credo che la riga in questione sia quella ma non riesco a capire quale potrebbe essere la soluzione???

[weppos]

Originariamente inviato da migenfa
anche io credo che la riga in questione sia quella ma non riesco a capire quale potrebbe essere la soluzione???

Non hai quell'oggetto installato sul server.
Molto probabilmente sei su Win2003 e devi usare CDOSYS invece di CDONTS

[migenfa]

weppos ho provato a sostituire cdonts con cdosys
set email=server.createobject("cdosys.newmail")
ma l'errore è sempre lo stesso...


Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/registrazione/invia_passw2.asp, line 54

800401f3

che altro posso fare???

[Shagrat]

set email=server.createobject("CDO.Message")

[migenfa]

ho appena provato ma adesso mi da questo errore...


Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Body'

/registrazione/invia_passw2.asp, line 61

che può essere??? grazie ragazzi per la disponibilità

[Shagrat]

non è più

email.body

devi scrivere

email.textbody

[migenfa]

shagrat sei grande funziona tutto alla perfezione... grazie assai!!!
visto che mi trovo posso farti un'altra domanda che non ha niente a che fare con il problema appena risolto???