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????![]()
![]()

Rispondi quotando