<% Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSMTPServer ="http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoSendUsingPort = 2 Sub SendMail(eTo,eSubject,eMsg) 'create CDO configuration file Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "lynxpower.com" .Item(cdoSMTPAuthenticate) = cdoAnonymous .Update End With Set Message = Server.CreateObject("CDO.Message") Set iMsg = Server.CreateObject("CDO.Message") With iMsg Set .Configuration = iConf .From = "thomas@lynxpower.com" .To = eTo .Subject = eSubject .TextBody = eMsg on error resume next .Send if err.number <> 0 then response.write err.Description else Reponse.write "" end if End With Set iMsg = nothing Set Flds = nothing Set iConf = nothing ' DeAllocate the Object to Free Server Memory set rs = nothing End Sub %>