Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas no envio de uma newsletter


Aldan Nunes

Pergunta

Estou mandando disparar o email. ele sempre da um erro. o código do arquivo de envio segue abaixo.

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

<!-- #include file = "funcoes.asp" -->

<%

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

' Caminho completo dos arquivos enviados

caminho_anexo = UploadRequest.Item("anexo").Item("FileName")

' Nome dos arquivos enviados

nome_anexo = Right(caminho_anexo,Len(caminho_anexo)-InstrRev(caminho_anexo,"\"))

' Conteudo binario dos arquivos enviados

anexo = UploadRequest.Item("anexo").Item("Value")

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("informativos")

nome_anexo = "/"&nome_anexo

' pasta + nome dos arquivos

canexo = "www.atenas.edu.br/faculdade/adm/news/informativos"+nome_anexo

' Fazendo o Upload do arquivo selecionado

if anexo <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_anexo)

For i = 1 to LenB(anexo)

MyFile.Write chr(AscB(MidB(anexo,i,1)))

Next

MyFile.Close

end if

assunto = UploadRequest.Item("assunto").Item("Value")

mensagem = UploadRequest.Item("mensagem").Item("Value")

data = data()

'Abre a conexao com o banco de dados

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

Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("banco_new.mdb")

'Faz a listagem dos usuarios para pegar o nome

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

sql = "Select * from informativos"

listar.open sql, conex, 1,1

'Faz um while

while not listar.eof

'Pega o nome e o email do usuario

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

sql = "Select * from informativos where id="&listar("id") &"and receber='1'"

nome.open sql, conex, 1,1

while not nome.eof

'envia o e-mail

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

objmail.from = nome_admin & "<"&email_admin&">"

objmail.to = nome("email")

objmail.subject = assunto

objmail.body = "Olá <b>"& nome("nome") & "</b><br><br>    " & mensagem & "</b><br><br>    " & canexo

objMail.Bodyformat = 0

objMail.MailFormat = 0

objmail.send

'Move para o próximo registro

nome.movenext

wend

listar.movenext

wend

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("InfEnv.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

' atualiza o pedigree

sql = "insert into informativos (assunto, mensagem, anexo, data) values ('"&assunto&"','"&mensagem&"','"&canexo&"','"&data&"')"

Conexao.Execute(sql)

' Redireciona após 5 segundos

response.write "<br><br>você será redirecionado em 3 segundos..<br>"

response.write "<meta http-equiv='refresh' content='3; url=default.asp'/>"

%>

Me ajudem por favor.

O erro é este abaixo:

Active Server Pages error 'ASP 0113'

Script timed out

/faculdade/adm/news/enviar_informativo.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Editado por Aldan Nunes
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...