<% if toto = 99 then '--------------- PREPARATION ET ENVOI DU MAIL ---------------- Set Mail = Server.CreateObject("CDONTS.Newmail") Mail.From = "info@rencontreweb.com" Mail.To = "info@rencontreweb.com" Mail.Subject = "Visite de la page ...Michelle.asp" CorpsMessage = "Visite de la page ...Michelle.asp le :" & Now Mail.Body = CorpsMessage Mail.Send Set Mail = nothing else CorpsMessage = "Visite de la page ...Michelle.asp le :" & Now '--------------- PARAMETRAGE DU MAIL ---------------- Set myMail=CreateObject("CDO.Message") Set myMailCon = Server.CreateObject ("CDO.Configuration") strPickup = "c:\inetpub\mailroot\Pickup" ' Outgoing SMTP server myMailCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strPickup myMailCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' Change this to the IP address or hostname of your SMTP Server myMailCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Change this to the Port of your SMTP server (25 is the default) myMailCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 myMailCon.Fields("http://schemas.microsoft.com/cdo/configuration/connectiontimeout") = 60 myMailCon.Fields.Update '--------------- Update the CDOSYS Configuration Set myMail.Configuration = myMailCon '--------------- RENSEIGNEMENT DES ENTETES ---------------- myMail.Subject = "Visite de la page ...Michelle.asp" myMail.From = "info@rencontreweb.com" 'myMail.To = "info@rencontreweb.com" myMail.To = "info@rencontreweb.com" myMail.TextBody = CorpsMessage 'myMail.HTMLBody=Request("Message") myMail.Send set myMail=nothing set myMailCon=nothing end if %> michelle
Bienvenue sur le site

Mamyche.fr la boutique  Créer , décorer,  rénover

Google
Les bébés  Rideaux  Sièges Nappes Décoration Accessoires Utilitaires et conseils
Contact Décoration
  Retour à l'Accueil