<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->

<%

const emailFrom = "peter@attiks.com"
const emailto = "info@attiks.com"

dim strmessage
strmessage = ""

strmessage = strmessage & "Dit is een testbericht."

dim cdoConfig
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
	.Item(cdoSendUsingMethod) = cdoSendUsingPort
	.Item(cdoSMTPServer) = "localhost"
	.Update
End With

dim Mailer
Set Mailer = Server.CreateObject("CDO.Message")
Set Mailer.Configuration = cdoConfig

Mailer.From = emailFrom
Mailer.To = emailTo
Mailer.Subject     = "Testbericht"
Mailer.HTMLBody    = strmessage

on error resume next
Mailer.Send

response.redirect "danku.htm"

%>