13 messaggi dal 25 maggio 2007
Ciao a tutti, stò provando a creare un form per il recupero password attraverso una pagina asp ed un dabase access con una tabella nominata Members e contenente i campi Member_id, M_Password, M_Name, M_Email. Non sò perchè ma non funziona: ho provato a confrontare con altri post del Forum ma non sono riuscito a trovare l' errore. Qui sotto scrivo il codice nella speranza che qualcuno mi possa dare una mano. Grazie in anticipo

<!--#INCLUDE file="../Connections/connessione3.asp" -->

<!--#INCLUDE FILE="top.inc" -->
<% set my_conn= Server.CreateObject("ADODB.Connection")
my_conn.Open cString
if Request.QueryString("mode") = "doit" then
Dim objMessage, objConfig

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 & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
End if



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

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> </P>

<%
End if
%>

</body>
</html>

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.