Enviar E-mail

[Guest dyagonal]

Eu estou tentando mandar um e-mail q pega as informações de um formulário e encaminha os dados com POST para esse ASP

<%

Dim Email, str_nome, str_remetente, str_destinatario, str_assunto, str_mensagem, razao, cnpj, inscr, ativ, nom_fanta, endereco, num, compl, bairro, cep, cid, uf

str_nome = trim(request.form("razao"))

str_remetente = trim(request.form("email"))

str_destinatario = trim(request.form("xxxxxxx@yyyy.com.br"))

str_assunto = "Cadastro"

str_mensagem = "Empresa: " & razao & "<br>Cnpj: " & cnpj & "<br>Inscrição Estadual: " & inscr & "<br>Ramo: " & ativ & "<br>Nome: " & nom_fanta & "<br>Endereço: " & endereco & ", nº " & num & " " & compl & "<br>Bairro: " & bairro & "<br>CEP: " & cep & "<br>Cidade: " & cid & "<br>Estado: " & uf

Set Email = Server.CreateObject("CDONTS.NewMail")

Email.from = str_nome & "(" & email & ")"

Email.to = str_destinatario

Email.Subject = str_assunto

Email.bodyformat = 0

Email.mailformat = 0

Email.Body = str_mensagem

Email.Send

Set Email = Nothing

response.write "<h2> Mensagem enviada com sucesso...</h2>"

response.redirect("cadastro.html")

%>

O problema é q ele dá erro no Objeto CDONTS, o q está acontecendo ??

[cyberalexxx]

Voce verificou se o server tem suporte ao CDONTS??

[dark0]

maiores informações sobre CDONTS:

http://scriptbrasil.com.br/forum/index.php?showtopic=34563

Veja se o componente esta instalado.

Coloque a descrição completa do ERRO

[Guest dyagonal]

Eu acho q o servidor tem CDONTS sim, eu estava me perguntando mais se o erro está no código ou na falta do cdonts

[dark0]

Como vamos saber o porque do erro, sem saber qual erro dá?

Coloque o descritivo do ERRO!

Erros nessa linha, geralmente são porque não tem componente instalado!

Abraços