1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : 39 : 40 : 41 : 42 : 43 : 44 : 45 : 46 : 47 : 48 : 49 : 50 : 51 : 52 : 53 : 54 : 55 : 56 : 57 : 58 : 59 : 60 : 61 : 62 : 63 : 64 : 65 : 66 : 67 : 68 : 69 : 70 : 71 : 72 :
0 puis blnSpam = faux Autrement 'Bloc de tentative de Spam le blnSpam = rectifient Finir si 'C'est mon serveur local de smtp JMail.ServerAddress = « smtp. » et strServer et « : 25 » 'C'est moi…. JMail.Sender = « noreply@ » et strServer SenderName = Request.Form (« nom ») SenderCompany = Request.Form (« compagnie ») SenderPhone = Request.Form (« téléphone ») SenderEmail = Request.Form (« email ») Sujet = « enquête à la formation de TOCO de « + SenderName Destinataire = « [email protected] » SenderComments = Request.Form (« commentaires ») Corps = « enquête de » et SenderName et vbCrLf et « compagnie » et SenderCompany et vbCrLf et « téléphone » et SenderPhone et vbCrLf et « email address » et SenderEmail et vbCrLf et vbCrLf et SenderComments et vbCrLf Si SenderEmail = puis "" SenderEmail = « [email protected] » Finir si JMail.Sender = SenderEmail JMail.Subject = sujet Destinataire de JMail.AddRecipient JMail.Body = corps JMail.Priority = 3 JMail.AddHeader « Commencer-IP », Request.ServerVariables (« REMOTE_ADDR ») 'envoyer le courrier Sinon blnSpam alors JMail.Execute strResult = « courrier envoyé. » Autrement strResult = « courrier non envoyé. » Finir si Placer le jmail = rien alertAndRedirect alertAndRedirect secondaire () %> <% Sous-marin d'extrémité %>