ASP test page.

<%@ Language=VBScript%> <% mes = "" IsSuccess = false sTo = "melanie.trepos@wanadoo.fr" sFrom = Trim(Request.Form("txtFrom")) sSubject = Trim(Request.Form("txtSubject")) sMailServer = "127.0.0.1" sBody = Trim(Request.Form("txtBody")) if Request("__action")="TestEMail" then TestEMail() end if Sub TestEMail() Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFields = objConf.Fields With objFields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With With objMail Set .Configuration = objConf .From = sFrom .To = sTo .Subject = sSubject .TextBody = sBody End With Err.Clear on error resume next objMail.Send if len(Err.Description) = 0 then mes = " Message sent to " + sTo mes = mes + " TESTS COMPLETED SUCCESSFULLY!" IsSuccess = true else mes = " " + Err.Description + " TESTS FAILED!" end if Set objFields = Nothing Set objConf = Nothing Set objMail = Nothing End sub Sub Alert(html) if IsSuccess then Response.Write "

Success:" & html & "

" else Response.Write "

Fail:" & html & "

" end if End Sub %> ASP test page.

Mises à jour

INDEX

PRESENTATION

About Roz de Kerhas

LE SCHIPPERKE

Standard, entretien, généralités, achat-conseils

NOS MALES

NOS FEMELLES

Ils sont d'ici

Born here

CHIOTS

PUPPIES

PROJETS de naissances

Archives

DISTINCTIONS

CONTACT

Roz de Kerhas

LIENS

LINKS

Schipperke PHOTOS

GALERIE

Notre livre d'Or

Guest book

CHIEN DE RACE SCHIPPERKE....LES SCHIPPERKES DU ROZ DE KERHAS

www.flickr.com

Go to schipperkes' photostream

DIAPORAMA

Expositions Résultats

Dog show

SOMMAIRE CONTENTS

LES SCHIPPERKES DOMAINE DES CYTISES

Trois générations de champions

La VIDEO des Schipp

AGILITY

www.flickr.com

Go to schipperkes' photostream

" Elevage canin familial des schipperkes du roz de kerhas"

Dernières naissances

Contact Hébergeur

Contact Roz de Kerhas

Home >

ASP possibilities test page

This page allows you to test the mail sending through the local Plesk SMTP mail server. For this you need to supply the sender's e-mail address, message's subject and body.

<% if len(mes) > 0 then Alert(mes) end if %>

Test send mail

From

Subject

Message Body <% Response.Write(sBody) %>

Test

This page is autogenerated by Plesk™

Les schipperkes du Roz de Kerhas vous remercient pour tout l'intérêt que vous avez porté à cette page, bonne continuation...

Si le site vous a plu laissez un petit message dans notre livre d'Or, cela nous fera le plus grand plaisir.