Ciao a tutti, stò provando a far funzionare una pagina di recupero password smarrita.
Questo è il secondo approccio che sto facendo essendo che col primo non ho risolto niente, ho deciso di cambiare tutto. Anche in questo caso i problemi non mancano. La pagina dovrebbe recuperare i dati da una tabella nominata Members contenente i campi Member_id, M_Nome, M_Email, M_Password: non funziona niente.
Gli errori sono dei più svariati: non mi sembra che vengano confrontati i dati inseriti nel form con quelli presenti nel database access (la connessione funziona), inoltre provando in locale mi si presenta l' errore indicante la mancanza di destinatario. Ho inserito alcuni messaggi che dovrebbero comparire nel form in caso che l' operazione sia andata a buon fine oppure no e neanche quelli si vedono.
Non sò come fare. Sarei grato a chiunque possa fornirmi delucidazioni al riguardo.
Grazie in anticipo.
QUI SOTTO POSTO GLI ORRORI DELLA PAGINA:
<CODE>


<% set my_conn= Server.CreateObject("ADODB.Connection")
my_conn.Open cString
if Request.QueryString("mode") = "doit" then
Dim objMessage, objConfig
Set objMessage = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "davederequale"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With
Set objMessage.Configuration = objConfig
MailOrder = "info@mioxsitox.it" 'Indirizzo mittente
strSender = MailOrder
strFromName = pageTitle & " Il mio titolo"
strFromEmail = adminEmail
strRecipientsEmail = Request.Form("email")
strRecipientsName = Request.Form("Name")
strSubject = pageTitle & " Invio password"
strMessage = "Recupero password" & vbCrLf & _
strRecipientsName & ", Le informazioni richieste:" & vbCrLf & vbCrLf & _
"Username: " & strSql("M_Name") & vbCrLf & _
"Password: " & strSql("M_Password") & vbCrLf & vbCrLf & _
"Grazie per averci scelto," & vbCrLf & pageTitle & ""

Set objMessage = CreateObject("CDO.Message")
objMessage.From = strSender
'objMessage.Sender = strSender
objMessage.TextBody = strMessage
objMessage.To = strRecipientsEmail
objMessage.Subject = strSubject
objMessage.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
On Error Resume Next


strSql = "Select M_Name, M_Password, M_Email from Members where M_Name = '"
strSql = strSql & Request.Form("Name") & "' and M_Email ='"
strSql = strSql & Request.Form("email") & "'"

set rs = my_conn.Execute (StrSql)

if rs.EOF or rs.BOF then
strMessage = strMessage & "I dati inseriti non risultano." & vbCrLf & vbCrLf
strMessage = strMessage & "Registrati di nuovo al http://www.mioxsitox.it" & vbCrLf
Else
strMessage = strMessage & " La tua password è :- " & rs("M_Password") & vbCrLf
End if

strMessage = strMessage & "Grazie per esserti registrato al Forum"



objMessage.Send()
Set objMessage = Nothing
on error resume next
rs.close
set rs=nothing
my_conn.Close
set my_conn = nothing
%>
<p align=center><font face="<% =DefaultFontFace %>" size=4>Invio password</p>
<p align=center><font face="<% =DefaultFontFace %>" size=2>Riceverai una Email a momenti!</p>

<%
Else
%>

<p align=center><font face="<% =DefaultFontFace %>" size=4>Invio password</p>
<form action="pword.asp?mode=doit" method="post">
<div align="center">
<TABLE background="" bgColor=#b0c4de border=1 borderColor=#000000 cellPadding=0
cellSpacing=0 width=70%>
<TBODY>
<TR>
<TD width=50%><FONT face="<% =DefaultFontFace %>" size=2>User Name </TD>
<TD width=50%><FONT face="<% =DefaultFontFace %>" size=3>
<INPUT name=Name type=text value=""> </FONT></TD>
<TR>
<TD><FONT face="<% =DefaultFontFace %>" size=2>Email</TD>
<TD><FONT face="<% =DefaultFontFace %>" size=3>
<INPUT name=email size=30 type=text value="">
</FONT></TD>
</TR>

<TD align=middle colSpan=2><INPUT name=submit1 type=submit value=Invia></TD></TR></TBODY></TABLE></FONT></TD></TR></TBODY></TABLE>


_</P>

<%
End if
%>

</CODE>