Man registrerar sig, man får ett meddelande med kontoinfo och aktiveringslänk. Förut när sidans epost var satt till yours@somewhere.com och sidans emailserver var satt till localhost funkade detta (märkligt nog). Nu när jag, med adminkonton, uppdaterat sidans epostadress och epostserver till den riktiga, funkar inte detta längre. När man registrerar sig, får man ett felmeddelandet:

error '80040201'
/register.asp, line 295

Denna rad är:

objCDOSYSMail.Send

 

htmlBody = blablabla

                Dim objCDOSYSCon
	Set objCDOSYSMail = Server.CreateObject("CDO.Message")
	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = rsGetEmail("emailserver") 
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25 
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
	objCDOSYSCon.Fields.Update 

	Set objCDOSYSMail.Configuration = objCDOSYSCon
	objCDOSYSMail.From = rsGetEmail("siteemail")
	objCDOSYSMail.To = strEmail
	objCDOSYSMail.Subject = "Ny medlem" 
	objCDOSYSMail.HTMLBody = htmlBody
	objCDOSYSMail.Send

Testa att köra så här:
<code>
Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = rsGetEmail("emailserver")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = rsGetEmail("siteemail")
objCDOSYSMail.To = strEmail
objCDOSYSMail.Subject = "Ny medlem"
objCDOSYSMail.HTMLBody = htmlBody
objCDOSYSMail.Fields.Update
objCDOSYSMail.Send
</code>

Jag använder följande kod när jag kör CDOSYS (lite modifierat med dina värden denna gång):

<code>
set objMessage = server.createobject("cdo.message")
set objConfig = server.createobject("cdo.configuration")

Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = rsGetEmail("emailserver")
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Flds.update


Set objMessage.Configuration = objConfig
objMessage.To = strEmail
objMessage.From = rsGetEmail("siteemail")
objMessage.Subject = "Ny medlem"
objMessage.HTMLBody = htmlBody
objMessage.fields.update
objMessage.Send

set objMessage = nothing
set objConfig = nothing
</code>

Kan funka.

I from-adressen måste ett mailkonto som finns på din server användas. Det är troligen inställt så för att du inte skall kunna hitta på "fejkade avsändare".