<% 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 Courriel, UID, PWD " & _ " FROM T_Sel_Membre" & _ " WHERE (Courriel = '" & Request("Courriel") & "')" Set RS_Personne = objConn.Execute(Requete) If (Not RS_Personne.EOF) Then MessageHTML = MessageHTML & "

Mot de passe d'accès au site ""La Bon'heure""

" MessageHTML = MessageHTML & "" MessageHTML = MessageHTML & " " MessageHTML = MessageHTML & " " MessageHTML = MessageHTML & " " MessageHTML = MessageHTML & " " MessageHTML = MessageHTML & " " MessageHTML = MessageHTML & " " MessageHTML = MessageHTML & " " MessageHTML = MessageHTML & " " MessageHTML = MessageHTML & " " MessageHTML = MessageHTML & " " MessageHTML = MessageHTML & "

	Identifiant :	" & RS_Personne("UID") & "
	Mot de passe :	" & RS_Personne("PWD") & "

" MessageHTML = MessageHTML & "Accédez au site" cdoMessageClient.From = "info@bonheure.com" cdoMessageClient.To = RS_Personne("Courriel") cdoMessageClient.Subject = "La Bon'heure - Informations d'accès au site" cdoMessageClient.HTMLBody = MessageHTML cdoMessageClient.Send End If RS_Personne.Close Set RS_Personne = Nothing Response.Redirect("obtenirPWD.asp?Msg=MSG_SEND") Response.End %>