Ho uno strano problema(a mio parere)

Questo codice per l'invio di email mi funziona

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="indirizzomail"
myMail.To="indirizzomail"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtpserver
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=porta
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 1
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername")= "nome utente"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword")= "Password"
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>

ma solo dopo aver eseguito una pagina con quest'altro codice, che mi restituisce il seguente errore error '8004020e'


<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="indirizzomail"
myMail.To="indirizzomail"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtpserver
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=porta
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 2
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>

Praticamente al momento devo avviare prima una pagina asp con l'autenticazione impostata sul 2(non funzionante), dopodichè se avvio la pagina con autenticazione 1 mi inizia ad inviare mail, ma solo per un periodo di tempo limitato,dopo sono costretto a ripetere i passaggi descritti sopra.

Non riesco a capire dove possa essere il problema e del perchè mi funzioni solo con questo procedimento.



Grazie per le eventuali risposte