Boa tarde!

Fiz um formulário para receber dados do utilizador e enviar esses mesmos dados por um e-ail. Fiz um ficheiro mail.asp para recolher os dados e enviar para o email.

o envio tem o seuinte código:

Dim mail
Set mail=CreateObject("CDO.Message")

mail.From= strFrom
mail.To= strTo
mail.Subject= strSubject
mail.TextBody= strbody

mail.Send
set mail=nothing


Acontece que na minha máquina o envio ocorre bem. Mas quando coloco no servidor da página web dá um erro:
The "SendUsing" configuration value is invalid.

Tenho de acrescentar alguma linha de código?

Já pesquisei algumas páginas sobre o assunto, já configurei de várias formas o servidor ( o serviço de SMTP ) e não consegui resolver.

Água mole em pedra dura tanto bate que até que fura...

Descobri que faltava a configuração, pelo menos penso que é isso.

Resolvi acrescentando:

Set objConf=Server.CreateObject("CDO.Configuration")

'define settings:
If Len(SMTP_SERVER)=0 Then
objConf.Fields.Item("<A href="http://schemas.microsoft.com/cdo/configuration/sendusing")=1">http://schemas.microsoft.com/cdo/configuration/sendusing")=1
Else
objConf.Fields.Item("<A href="http://schemas.microsoft.com/cdo/configuration/sendusing")=2">http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'cdoSendUsingPort
End If
objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")=Server.MapPath("/ (http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory)")
If Len(SMTP_SERVER)>0 Then
objConf.Fields.Item("<A href="http://schemas.microsoft.com/cdo/configuration/smtpserver")=SMTP_SERVER">http://schemas.microsoft.com/cdo/configuration/smtpserver")=SMTP_SERVER
End If
objConf.Fields.Item("<A href="http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25">http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
objConf.Fields.Update

'apply settings:
Set objMessage.Configuration=objConf