<%
function TestEMail(sFrom, sTo, sSubject, sBody,  sBcc)
	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")  = "mail.secureserver.net"
		.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
		.BodyPart.Charset = "utf-8"
		.From = sFrom
		.To = sTo
		.Subject = sSubject
		.TextBody = sBody
		if sBcc <> "" then .Bcc = sBcc
	End With

    objMail.Send
	Set objFields = Nothing
	Set objConf = Nothing
	Set objMail = Nothing
End function
%>