<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"
cdoConfig.fields.update
' Envoie d'un message au client
Set cdoMessageClient = Server.CreateObject("CDO.Message")
Set cdoMessageClient.Configuration = cdoConfig
Requete = "SELECT * " & _
" FROM T_Sel_Membre M " & _
" WHERE (M.Courriel = '" & Request("Courriel") & "') "
Set RS_Personne = objConn.Execute(Requete)
If (Not RS_Personne.EOF) Then
Id = RS_Personne("IdMembre")
UID = RS_Personne("UID")
PWD = RS_Personne("PWD")
Courriel = RS_Personne("Courriel")
' Construction du message
MessageHTML = MessageHTML & "![]()
"
MessageHTML = MessageHTML & "Mot de passe d'accès au site de SEL Don'heures
"
MessageHTML = MessageHTML & ""
MessageHTML = MessageHTML & " "
MessageHTML = MessageHTML & " | | "
MessageHTML = MessageHTML & " Identifiant : | "
MessageHTML = MessageHTML & " " & UID & " | "
MessageHTML = MessageHTML & "
"
MessageHTML = MessageHTML & " "
MessageHTML = MessageHTML & " | | "
MessageHTML = MessageHTML & " Mot de passe : | "
MessageHTML = MessageHTML & " " & PWD & " | "
MessageHTML = MessageHTML & "
"
MessageHTML = MessageHTML & "
"
MessageHTML = MessageHTML & "Accédez au site"
cdoMessageClient.From = "info@seldonheures.com"
cdoMessageClient.To = Courriel
cdoMessageClient.Subject = "SEL Don'heures - Informations d'accès au site"
cdoMessageClient.HTMLBody = MessageHTML
cdoMessageClient.Send
End If
RS_Personne.Close
Set RS_Personne = Nothing
Response.Redirect("lostPWD.asp?Msg=MSG_SEND")
Response.End
%>