Si! E vedo che non lo hai anvora fatto devi farlo!Scusate ok va bene. Devo reinserire??? :-(
' esiste
'__________________________________________________________________________________
' configurazione mail
' Windows XP / 2003
cSmtpServer = "smtp.elektric.it"
cSmtpPort = "25"
cSMTPUser = ""
cSMTPPassword = ""
' invio e-mail di notifica
Set myMail = Server.CreateObject("CDO.Message")
'CDO Port (1=localhost 2=network)
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Out going SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= cSmtpServer
'SMTP port
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= cSmtpPort
'SMTP Server password
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/c-do/configuration/sendpassword") = cSMTPPassword
'SMTP Server username
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/c-do/configuration/sendusername") = cSMTPUser
'Timeout
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'Update
myMail.Configuration.Fields.Update
' Windows XP / 2003
' oggetto
myMail.Subject = "Recupero password"
' mittente
myMail.From = "[email protected]"
' destinatario
myMail.To = u_email
' messaggio
myMail.HTMLBody = "Ciao "&u_id&", la tua Password e "&u_password&")"
' send
myMail.Send
Set myMail = Nothing
' confermo e redirect
Response.Write("Password inviata all'indirizzo "&U_email)
Response.Write("<br> ")
'__________________________________________________________________________________
' esiste
'__________________________________________________________________________________
' configurazione mail
Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.createObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.elektric.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
.Fields.Update
End With
Set objMail.Configuration = objConfig ' Assegna le configurazioni
objMail.From = "[email protected]" ' Mittente dell'email (indirizzo)
objMail.To = u_email ' Destinatario dell'email (indirizzo)
objMail.Subject = "Recupero password" ' Oggetto dell'email
objMail.HTMLBody = "Ciao "&u_id&", la tua Password e "&u_password&")" ' Corpo del messaggio Formato HTML
objMail.Send() ' Invia l'email
Set objMail = Nothing
'__________________________________________________________________________________
<!--#include file="Connections/connDUclassified.asp" -->
<html>
<body>
<h3 align="center">Hai dimenticato la Password?</h3>
<p align="center">Inserisci l'indirizzo email con cui ti sei registrato e la riceverai entro pochi minuti!</p>
<p align="center">
<form method="POST" action="pass.asp?invia=u_password">
<input type="text" name="u_email" />
<input type="submit" value="OK" />
</form>
</p>
<p align="center">
<%
invia = Request.QueryString("invia")
email = Request.Form("u_email")
If invia = "u_password" Then
If email <> "" Then
'Apro la connessione al database e verifico che l'utente esista
strConnect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../mdb-database/DUclassified.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = strConnect
Rs.Source = "SELECT * FROM users WHERE u_email = '"&U_email&"'"
Rs.CursorType = 0
Rs.CursorLocation = 2
Rs.LockType = 1
Rs.Open()
If NOT Rs.EOF Then
username = (Rs.Fields.Item("u_id").Value)
password = (Rs.Fields.Item("u_password").Value)
' esiste
'__________________________________________________________________________________
' configurazione mail
Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.createObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.elektric.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
.Fields.Update
End With
Set objMail.Configuration = objConfig ' Assegna le configurazioni
objMail.From = "[email protected]" ' Mittente dell'email (indirizzo)
objMail.To = u_email ' Destinatario dell'email (indirizzo)
objMail.Subject = "Recupero password" ' Oggetto dell'email
objMail.HTMLBody = "Ciao "&u_id&", la tua Password e "&u_password&")" ' Corpo del messaggio Formato HTML
objMail.Send() ' Invia l'email
Set objMail = Nothing
'__________________________________________________________________________________
' confermo e redirect
Response.Write("Password inviata all'indirizzo "&U_email)
Response.Write("<br> ")
'__________________________________________________________________________________
Else
' non esiste
Response.Write("<font color='#FF0000'>Email non presente, non sei registrato...!</form>")
End If
' chiudo e distruggo tutto
Rs.Close
Set Rs = Nothing ' chiudo il recordset
Else ' e-mail vuota
' Se non viene inerito alcun indirizzo email restituisco un messaggio di errore
Response.Write("<font color=#FF0000>Indirizzo Email non è corretto!</form>")
End If ' chiudo controllo e-mail
End If ' chiudo tutto
%>
</p>
</body>
</html>
email = Request.Form("u_email")
u_email = Request.Form("u_email")
Set objMail.Configuration = objConfig ' Assegna le configurazioni
objMail.From = "[email protected]" ' Mittente dell'email (indirizzo)
objMail.To = u_email ' Destinatario dell'email (indirizzo)
objMail.Subject = "Recupero password" ' Oggetto dell'email
objMail.HTMLBody = "Ciao "&u_first&", " ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "Per la tua richiesta le informazioni di login sono : " & vbCrLf & vbCrLf ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "Username: "& u_id & vbCrLf ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "Password: "& u_password & vbCrLf & vbCrLf & vbCrLf ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "Clicca questo collegamento per accedere alla pagina del Login : " & ServerURL & "login.asp" & vbCrLf & vbCrLf ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "----------------------------------------------------" & vbcrlf ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "Powered by "& Live_server & vbcrlf' Corpo del messaggio Formato HTML
objMail.Send() ' Invia l'email
Set objMail = Nothing
objMail.HTMLBody = "Ciao "&u_first&", " ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "Per la tua richiesta le informazioni di login sono : " & vbCrLf & vbCrLf ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "Username: "& u_id & vbCrLf ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "Password: "& u_password & vbCrLf & vbCrLf & vbCrLf ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "Clicca questo collegamento per accedere alla pagina del Login : " & ServerURL & "login.asp" & vbCrLf & vbCrLf ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "----------------------------------------------------" & vbcrlf ' Corpo del messaggio Formato HTML
objMail.HTMLBody = "Powered by "& Live_server & vbcrlf' Corpo del messaggio Formato HTML
messaggio = "<br /><hr />Ciao "&u_first&", in relazione alla tua richiesta, le credenziali per poter accedere al sistema sono le seguenti:<br />"
messaggio = messaggio&". username: "& u_id & "<br />"
messaggio = messaggio&". password: "& u_password & "<br />"
messaggio = messaggio&"Clicca questo collegamento per accedere alla pagina del Login : <a href=" & ServerURL & " target='_blank'>accedi</a><br />"
messaggio = messaggio&"<hr />"
messaggio = messaggio&"Powered by "& Live_server & "<br />"
objMail.HTMLBody = messaggio
Autore | Discussioni simili | Forum | Risposte | Data |
---|---|---|---|---|
D | Recupero dati da HDD esterno | Hardware | 0 | |
H | Recupero password dimenticata | PHP | 0 | |
E | Form recupero password | PHP | 12 | |
C | Recupero password Access | MS Access | 4 | |
R | recupero PASSWORD | Supporto Mr.Webmaster | 3 |