Sending mail using ASP

<geshi lang=asp> <%@ LANGUAGE="VBSCRIPT"%> <% dim objMailCDO Set objMailCDO = CreateObject("CDO.Message") objMailCDO.Configuration.Fields.Item _

       ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objMailCDO.Configuration.Fields.Item _

       ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mxr1.leaderhost.ru"

objMailCDO.Configuration.Fields.Item _

       ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMailCDO.Configuration.Fields.Update objMailCDO.To="info@domain.ru" objMailCDO.from="info@domain.ru" objMailCDO.Subject = "Тестовое письмо " & request.ServerVariables ("SERVER_NAME") objMailCDO.MimeFormatted = true

objMailCDO.HTMLBody = "телописьма" objMailCDO.Send if err<>0 then

       response.Write ("error:"&Err.Description)

else

       response.Write ("Yes")

end if Set objMailCDO = Nothing

%> </geshi>