Reenvio de senha com Cdosys

Olá tudo bem? Preciso de ajuda com um script. É para lembrar a senha para um usuário, via email, pegando a informação de um banco de dados em asp.

Retorna o seguinte erro:

CDO.Message.1 erro '80040220'

O valor de configuração "SendUsing" é inválido.

/lembrar_pass.asp, linha 75

Abaixo, em negrito a linha que está dando problema.

Sub SendPW(email, password)

Set cdomessage = Server.CreateObject("CDO.message")

cdomessage.From = "web@agilitybr.com.br"

cdomessage.To = email

cdomessage.Subject = "Lembrete de senha."

cdomessage.textBody = password & vbcrlf & vbcrlf & vbcrlf _

& " Mensagem Automatica "

cdoMessage.Send

Set cdoMessage = Nothing

End Sub

%>