Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

otaviohm

o que tá errado ?

Por , em ASP Clássico

Recommended Posts

otaviohm    0

otaviohm
Postado 

<%Email = Trim(Request.Form("txtEmail"))Assunto = Trim(Request.Form("txtAssunto"))Lista = Trim(Request.Form("lstListagem"))Conteudo = Trim(Request.Form("txtConteudo"))ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\sheltermedia\dados\news.mdb;"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open ConnStringSet rs = Server.CreateObject("adodb.recordset")SQL = "SELECT id, nome, email, status FROM "&Session("Listas")&" WHERE status = 0"rs.Open SQL, ConnString, 1, 3%><html><head><meta http-equiv="Content-Language" content="pt-br"><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>Envio de Newsletter | Enviando ...</title></head><body><% SET Mailer = Server.CreateObject("SoftArtisans.SMTPMail") Mailer.FromName = Session("Email")Mailer.Subject = Session("Assunto")Mailer.HTMLText = ""Mailer.HTMLText = Mailer.HTMLText & "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"Mailer.HTMLText = Mailer.HTMLText & "<HTML><HEAD>"Mailer.HTMLText = Mailer.HTMLText & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"Mailer.HTMLText = Mailer.HTMLText & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR>"Mailer.HTMLText = Mailer.HTMLText & " "&Conteudo&" "Mailer.AddRecipient nome, emailMailer.RemoteHost = "smtp2.locaweb.com.br" If Mailer.SendMail then Response.Write x & "- " & nome & "<br>" Else Response.Write "Falhou o envio." End If SET Mailer = nothing %><p align="center"><b><font color="#C0C0C0" face="Verdana">Enviado para:</font></b></p><p align="center"><%=Lista%></p><p align="center"><a href="javascript:history.back(-1)"><font size="2" face="Verdana">voltar</font></a></p><meta http-equiv='refresh' content='10'> </body></html>

ele nao envia !!

da erro HTTP 500

 

=|

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cidre    0

Cidre
Postado

Mensagem de Erro 500Essa é uma descrição geral de erro, para se ter uma descrição um pouco mais detalhada, no caso do Internet Explorer, vá em Ferramentas/Opções da Internet, guia "Avançadas" e desmarque a opção "Mostrar mensagens de erro HTTP amigáveis".A partir de então terá uma melhor descrição do erro!(By Salgado!)

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito