Script De Mini Loja Virtual Nao Funciona

[Guest pearljam]

o script de uma mini loja virtual, aonde se seleciona os PRODUTOS e depois ela apenas envia a relação dos produtos + os dados do comprador para um E-MAIL que configuramos está dando um erro.

na hora de enviar ele da um erro...

estou usando o Componente de E-MAIL CDONTS, que é o que o meu servidor suporta... ele também aceita o JMAIL... é só abrir o Config.asp e configurar.

o erro está dando depois que se envia os dados do comprador e os produtos que ele quer... no Carrinho de Compras...... o erro da no arquivo Send.asp na linha 165... bem nas configuração do Componente CDONTS.

	else
Set Mailer = CreateObject("CDONTS.NewMail")
    Mailer.MailFormat = 0
    Mailer.BodyFormat = 1
    Mailer.From = mail_sender
    Mailer.To = mail_empfaenger
    Mailer.Subject = mail_subject
    Mailer.Body = mailText
---ERRO DA AQUI---->    Mailer.Send
Set Mailer= Nothing	end if

o que pode estar acontecendo?

obrigado desde já!!!

[Guest Guest]

esqueci de dizer..... o caminho para o download dos arquivos...

http://www.com2000.at/pw/neu/minishop/pw99_minishop.zip

[ViniciusJau]

tem certeza que seu server tem Cdonts??? pota a msg de erro ai

[Developer]

<%
function email_cdonts(de_email, para_email, subject,  mensagem)

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.mailformat=0 'para enviar html como mensagem
objmail.bodyformat=0 'para enviar html como mensagem
objmail.from = de_email
objmail.to = para_email
objmail.subject = subject
objmail.body = mensagem
objmail.send
Set objmail = nothing

end function
%>

Faz assim... Que quando você for enviar não precisa ficar repitindo toda hora... Ai quando você quiser enviar você faz:

call email_cdonts("emaildousuario", "seuemail", "ASSUNTO", "Mensagen")