Email Com Asp

[Guest - Thiago -]

alguém poderia me ajudar a encontrar o erro neste script, quando eu executo o servidor da erro e eu não consigo resolver.

Option Explicit

dim nome

dim email

dim comentario

dim envia

dim corpo

dim destinario

destinario = "meu_email"

nome=request.form("nome")

email=request.form("email")

comentario=request.form("comentario")

corpo= "nome: " & nome & "<br>"

corpo= corpo & "email: " & email & "<br>"

corpo= corpo & "comentário: " & comentario & "<br>"

set envia = server.createobject("cdonts.newmail")

envia.from= email

envia.to= destinario

envia.Subject = assunto

envia.importance = 1

envia.MailFormat = 0

envia.BodyFormat = 0

envia.body= corpo

envia.sen

set envia = nothing

[jissa]

qual o erro???

seu server tem o componente cdonts??

já tentou colocar o "d" no final??

envia.send

[Reginaldo ASP]

Como verificar se o CDONTS está instalado

por: Fernando D'Angelo

<% Option Explicit

Function IsComponentInstalled(ProgId)

Dim tmpObject

On Error Resume Next

Set tmpObject = Server.CreateObject(ProgId)

If Err.Number = 0 Then

IsComponentInstalled = True

Else

IsComponentInstalled = False

End If

Set tmpObject = Nothing

End Function

'Utilizando a função

If IsComponentInstalled("CDONTS.NewMail") Then

Response.Write "Enviando o e-mail ..."

'...

Else

Response.Write "Não é possível enviar o e-mail (Objeto para envio indisponível)"

'...

End If

%>