Envio Para E-mails De Um Banco De Dados

[Guest Thiago Dutra]

Olá

Eu gostaria de uma ajuda referente a enviar e-mails

para todos os e-mails de um banco de dados:

está dando o segunte erro

HTTP 500 - ERRO INTERNO DO SERVIDOR

O que acontece?

Onde está errado?

Obrigado

Thiago Dutra

<%

ConnString="DBQ=e:/home/oclusivo1/web/thi.mdb;Driver={Microsoft Access Driver (*.mdb)}"

sqlstmt = "select nome, email from cadastro"

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

Conn.Open ConnString

set rsquery = conn.execute(sqlstmt)

nr_emails_corretos = 0

nr_emails_errados = 0

nr_geral = 0

while not rsquery.eof

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.RemoteHost = "smtp.oclusivo.com.br"

Mailer.FromName = "Contato - Oclusivo"

Mailer.FromAddress = "taodutra@oclusivo.com.br"

Mailer.AddRecipient rsquery("nome"),rsquery("email")

Mailer.Subject=request.form("assunto")

Mailer.Bodytext = "Caro " & rsquery("nome") & "," & chr(13) & request.form("texto")

x = Mailer.SendMail

if x = true then

MSG = "E-MAIL ENVIADO COM SUCESSO!"

nr_emails_corretos = nr_emails_corretos + 1

Else

MSG = " O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"

nr_emails_errados = nr_emails_errados + 1

end if

nr_geral = nr_geral + 1

Response.write nr_geral & " - " & MSG

rsquery.movenext

wend

Response.write "Numero Total de Emails: " & nr_geral & "

"

Response.write "Numero de Emails enviados: " & nr_emails_corretos & "

"

Response.write "Numero de Emails não enviados: " & nr_emails_errados & "

"

rsquery.close

set rsquery = nothing

set conn = nothing

%>

[Decio]

você tem o componente de envio de email instalado no servidor? (acho que é o AspEmail)

Desculpe, mas é a pergunta básica.

[ursolouco]

Seguindo a imagem, marque estas opções do seu navegador, feche e abra novamente para ver onde está o erro.

Erro 500, é um erro, meio generico, do servidor...