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>
394 messaggi dal 11 agosto 2004
prova così:
<!--#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
Set objrs=server.CreateObject("ADODB.Recordset")
objrs.open "Select * from Members where M_Name = '" & Request.Form("Name") & "' and M_Email ='" & Request.Form("email") & "'",conn,3,3

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

Dim objMessage, objConfig

Set objConfig = Server.CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "davederequale" 'QUI INSERISCI IL SERVER SMTP
.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.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 'QUI INSERISCI LO USERNAME PER ACCEDERE ALLA TUA EMAIL
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'E QUI LA TUA PASSOWRD
.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Fields.Update
End With
Set objMessage.Configuration = objConfig

Set objMessage = CreateObject("CDO.Message")
objMessage.From = "" 'Indirizzo mittente
objMessage.TextBody = strMessage
objMessage.To = Request.Form("name") & "<" & Request.Form("email") & ">"
objMessage.Subject = "Invio password"
objMessage.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Impossibile spedire l'email. Errore: " & Err.Description & "</li>"
Else%>
<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>
<%End If

Set objMessage = Nothing
rs.close
set rs=nothing
my_conn.Close
set my_conn = nothing

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>
13 messaggi dal 25 maggio 2007
Molte grazie, provo subito
Ciao a presto
394 messaggi dal 11 agosto 2004
non sono sicurissimo funzioni eh??? :)
13 messaggi dal 25 maggio 2007
Provare non costa nulla, se funziona o meno, lo faccio sapere tramite il Forum
Grazie ancora
13 messaggi dal 25 maggio 2007
Ciao ho provato , però ottengo un errore alla riga 8:

objrs.open "Select * from Members where M_Name = '" & Request.Form("Name") & "' and M_Email ='" & Request.Form("email") & "'",conn,3,3

Tipo di errore:
ADODB.Recordset (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
394 messaggi dal 11 agosto 2004
allora per prima cosa mi serve sapere di che TIPO sono i vari campi dati (memo, testo...).
Eventualmente come test prova a rimettere come prima la connessione.
Cioè sostituisci:
<% set my_conn= Server.CreateObject("ADODB.Connection")
my_conn.Open cString
if Request.QueryString("mode") = "doit" then
Set objrs=server.CreateObject("ADODB.Recordset")
objrs.open "Select * from Members where M_Name = '" & Request.Form("Name") & "' and M_Email ='" & Request.Form("email") & "'",conn,3,3
con
<% set my_conn= Server.CreateObject("ADODB.Connection")
my_conn.Open cString
if Request.QueryString("mode") = "doit" then
Dim objMessage, objConfig
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)
13 messaggi dal 25 maggio 2007
Ciao grazie per la risposta, adesso provo. I campi sono tutti "testo" a parte il campo Member_id che è contatore e chiave primaria nel db access

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.