Problema Em Envio De Email Em Ciclo

[saloeric 1]

boas, tou a ter um problema com o componente cdo ao enviar email em ciclo, se for só um funciona, se for mais que 1 dá o seguinte erro: "A classe de evento desta subscrição está numa partição inválida ", segue o código:

 

mails=0
for mailaenviar=1 to 3
if len(trim(request("email"&mailaenviar&"")))>5 then
Set ObjSendMail = CreateObject("CDO.Message") 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = servidor
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = decodeutf8(trim(request("email"&mailaenviar&"")))
ObjSendMail.Subject = "Sugestão"
ObjSendMail.From = servidoremail
corpo="<font size='1' face='verdana'>olá "&decodeutf8(trim(request("nome"&mailaenviar&"")))&",<br><br>"
corpo=corpo&nome&" ("&email&") visitou o site "&nomesite&" e destacou o seguinte produto para si:<br><br>"
corpo=corpo&"<b>"&nomeproduto&"</b><br><a href='produtodetalhe.asp?id="&idproduto&"'>produtodetalhe.asp?id="&idproduto&"</a><br><br>"
corpo=corpo&"Mensagem do seu amigo:<br><br>"&mensagem&"<br><br><br>Atenção: Por favor não responda a este email, foi enviado através do site automaticamente.</font>"
ObjSendMail.HTMLBody = corpo
ObjSendMail.Send
Set ObjSendMail = Nothing 
mails=mails+1
end if
next

já agora outra coisa, como extraio somente o dominio por exemplo www.xpto.xx, porque preciso de juntar isso ali na mensagem onde tem produtodetalhe.asp?id=1, sei que se usa a uma das asp servervariables, mas não sei qual ao certo.

[saloeric 1]

bem o problema não está no ciclo mas sim nos emails, se enviar para hotmail dá erro, alguem sabe porque sucede isso?

[jrcardozo 4]

possivelmente seu servidor limita o numero de envio de emails. O email que envia é o mesmo do dominio?

[saloeric 1]

já testei sem loop, ele dá erro em mails da hotmail e deve dar de outros dominios tb tipo yahoo, para dominios k tenho envia normalmente, casautomatica.net,limalves.com, já tive a falar com um colega sobre isso e ele no servidor dele com o mesmo script consegue enviar, ao que me faz concluir que sejam configurações do servidor.