Problemas na hora de envio...

[macintoshiano.net 0]

Hello

 

sou um pouco leigo em asp e estou com um probleminha com o CDONTS...

 

estou criando um sistema de newsletter e na hora do envio, esta dando o erro 500, tando na minha máquina, quanto na do servidor... como eu posso resolver isso?

 

detalhe: utilizo o win2k server com iis5.0

endereço no servidor: http://www.sommus.com.br/chorusdei/news/admin/send.asp

 

abraços

[ska_ska 0]

esta dando esse erro...

Erro de tempo de execução do Microsoft VBScript erro '800a0046' Permissão negada /chorusdei/news/admin/send.asp, line 42

o q tem nessa linha 42??? :unsure:

[Mário Monteiro 179]

erro 500 é meio genericovai nas opções do navegador e desmarca a opção de mensagens amigaveis

[macintoshiano.net 0]

Segue o código do script ai em baixo... e a linha 42 esta em vermelho....

 

 

 

<%

option explicit'must be declared

%>

<!--#include file="config.inc"-->

<%

response.buffer = true

Server.ScriptTimeout = 1000000

 

dim useraction,subject,comm,emails,conn,rs,sql

dim totalMails

 

 

 

Set Conn = Server.CreateObject("ADODB.Connection")

Set Rs = Server.CreateObject("ADODB.Recordset")

Conn.Open dsn

SQL = "SELECT emails from emails"

rs.Open SQL, Conn, 1, 3

totalMails = rs.recordcount

 

useraction=request("action")

select case useraction

case "send"

Set Conn = Server.CreateObject("ADODB.Connection")

Set Rs = Server.CreateObject("ADODB.Recordset")

Conn.Open dsn

SQL = "SELECT emails from emails order by id"

rs.open sql,conn

do while not rs.eof

emails=rs("emails")

subject = request.form("subject")

comm = request.form("comm")

Dim objCDO

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

objCDO.To = emails

'-----------------------------------

'change to your email!!

'-----------------------------------

objCDO.From = "chorusdei@sommus.com.br"

objCDO.Subject = subject

objCDO.Body = comm

objCDO.Send

rs.movenext

loop

set objCDO = nothing

rs.close

set rs = nothing

conn.close

set conn = nothing

response.write "<script>alert('has been sent!');"

response.write "location.href='index.asp'</script>"

response.end

end select

rs.close

set rs = nothing

conn.close

set conn = nothing

%>

[Salgado 4]

O CDONts está instalado, mas não tem permissão de envio de e-mails.

[macintoshiano.net 0]

E como fazer p/ liberar o envio pelo CDONTS???

[Salgado 4]

Entre em contato com o suporte de seu servidor, muitas vezes eles tem instalado mas usam outro componente de envio de e-mails. O CDONTS não tem autenticação SMTP (se não me engano), e isso não é muito "conveniente" à um servidor.

[Mário Monteiro 179]

cria uma pagina com o script feito pelo hinom pra ver se tem outro componente de email desta lista instalado

 

Componentes

[macintoshiano.net 0]

eu estava imaginando isso. vou entrar em contato com eles...thanks!