Fala pessoal do forum.
estou com o seguinte codigo para o envio de newsletter mas estou com um probleminha: nao consigo enviar uma imagem no corpo desse email. Ja tentei colocar <img src="http://www.meusite.c...ns/imagem.gif"> mas qnd chega no email soh aparece o texto do codigo. Oq eu tenho q modificar para solucionar esse meu problema ? vai o codigo abaixo:
<!--#include file="restrito.asp"-->
<!--#include file="cons.asp"-->
<html>
<head>
<title>Administração da NewsLetter</title>
<style>
input {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
textarea {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<font face="Verdana" size="2">
<% acao=Request.querystring("acao")
select case acao
case "enviar" %>
<form action="admin.asp?acao=enviando" method="post">
<input type="hidden" name="data" value="<%=Date()%>">
<p align="center">
Assunto :<br>
<input type="text" name="assunto" size="49"><br>
Mensagem :<br>
<textarea name="mensagem" cols="60" rows="15"></textarea><br>
<input type="submit" value="Enviar">
</form><BR>
Obs: Todos os e-mails são enviados em formato HTML<BR>
Para quebra de linha utilize a tag "<br>"
<hr size="1">
<% case "enviando" %>
<% user = 0
assunto = Request.Form("assunto")
mensagem = Request.form("mensagem")
mensagem = mensagem & "<br><br>Para parar de receber este email <a href="& site & ">clique aqui</a>"
AbreConexao
Sql = "SELECT email FROM dados"
If Len(mensagem) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3
While Not rs.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = email
mail.To = rs("email")
mail.Subject = assunto
mail.BodyFormat = 0
mail.Body = mensagem
mail.Send
Set mail = Nothing
Response.Write "Email enviado para : " & rs("email") & "<br>"
user = user + 1
rs.MoveNext
Wend
Response.Write "No total foram enviados " & user & " emails."
rs.Close
Set rs = Nothing
Sql = "INSERT INTO enviados (assunto,mensagem,data) "
Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"
Conexao.Execute(Sql)
Else
Response.Redirect "admin.asp?acao=erro"
End If
FechaConexao %>
<% case "modificar" %>
<% AbreConexao
Sql = "SELECT * From dados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>
<td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">
<input type="submit" value="Alterar"></form></td>
<td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">
<input type="submit" value="Apagar"></form></td>
</tr>
</table>
<hr size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "DELETE id,email FROM dados WHERE id = " & id &""
Conexao.Execute(Sql)
FechaConexao %>
E-Mail deletado com sucesso!<BR>
<hr size="1">
<% case "alterar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "
Conexao.Execute(Sql)
FechaConexao %>
E-Mail alterado com sucesso!<BR>
<hr size="1">
<% case "todas" %>
<% AbreConexao
Sql = "SELECT * From enviados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF %>
Assunto: <font color="red"><%=rs("assunto")%></font><BR>
Enviada em: <font color="red"><%=rs("data")%></font><BR>
Mensagem:<BR>
<%=rs("mensagem")%><BR><BR><BR>
<HR size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">
<% case else %>
<% AbreConexao
Sql = "SELECT * FROM dados"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3 %>
No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR>
<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR>
<a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR>
<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a>
<HR size="1">
<% FechaConexao
end select %>
</font>
<p align="center"><font color="#FF0000" size="2">
Script Desenvolvido por <a href="mailto:felipeb2000@bol.com.br">Felipe Siola</a></font>
</body>
</html>
Duvida Nesse Codigo
Started By watequate, 22/07/2005, 09:01
8 replies to this topic
#1
Posted 22/07/2005, 09:01
#2
Posted 22/07/2005, 09:40
Tenta:
<!--#include file="restrito.asp"-->
<!--#include file="cons.asp"-->
<html>
<head>
<title>Administração da NewsLetter</title>
<style>
input {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
textarea {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<font face="Verdana" size="2">
<% acao=Request.querystring("acao")
select case acao
case "enviar" %>
<form action="admin.asp?acao=enviando" method="post">
<input type="hidden" name="data" value="<%=Date()%>">
<p align="center">
Assunto :<br>
<input type="text" name="assunto" size="49"><br>
Mensagem :<br>
<textarea name="mensagem" cols="60" rows="15"></textarea><br>
<input type="submit" value="Enviar">
</form><BR>
Obs: Todos os e-mails são enviados em formato HTML<BR>
Para quebra de linha utilize a tag "<br>"
<hr size="1">
<% case "enviando" %>
<% user = 0
assunto = Request.Form("assunto")
mensagem = Request.form("mensagem")
mensagem = mensagem & "<br><br>Para parar de receber este email <a href="& site & ">clique aqui</a>"
AbreConexao
Sql = "SELECT email FROM dados"
If Len(mensagem) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3
While Not rs.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = email
mail.To = rs("email")
mail.Subject = assunto
mail.BodyFormat = 0
objMail.MailFormat = 0
mail.Body = mensagem
mail.Send
Set mail = Nothing
Response.Write "Email enviado para : " & rs("email") & "<br>"
user = user + 1
rs.MoveNext
Wend
Response.Write "No total foram enviados " & user & " emails."
rs.Close
Set rs = Nothing
Sql = "INSERT INTO enviados (assunto,mensagem,data) "
Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"
Conexao.Execute(Sql)
Else
Response.Redirect "admin.asp?acao=erro"
End If
FechaConexao %>
<% case "modificar" %>
<% AbreConexao
Sql = "SELECT * From dados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>
<td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">
<input type="submit" value="Alterar"></form></td>
<td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">
<input type="submit" value="Apagar"></form></td>
</tr>
</table>
<hr size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "DELETE id,email FROM dados WHERE id = " & id &""
Conexao.Execute(Sql)
FechaConexao %>
E-Mail deletado com sucesso!<BR>
<hr size="1">
<% case "alterar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "
Conexao.Execute(Sql)
FechaConexao %>
E-Mail alterado com sucesso!<BR>
<hr size="1">
<% case "todas" %>
<% AbreConexao
Sql = "SELECT * From enviados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF %>
Assunto: <font color="red"><%=rs("assunto")%></font><BR>
Enviada em: <font color="red"><%=rs("data")%></font><BR>
Mensagem:<BR>
<%=rs("mensagem")%><BR><BR><BR>
<HR size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">
<% case else %>
<% AbreConexao
Sql = "SELECT * FROM dados"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3 %>
No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR>
<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR>
<a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR>
<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a>
<HR size="1">
<% FechaConexao
end select %>
</font>
<p align="center"><font color="#FF0000" size="2">
Script Desenvolvido por <a href="mailto:felipeb2000@bol.com.br">Felipe Siola</a></font>
</body>
</html>
<!--#include file="restrito.asp"-->
<!--#include file="cons.asp"-->
<html>
<head>
<title>Administração da NewsLetter</title>
<style>
input {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
textarea {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<font face="Verdana" size="2">
<% acao=Request.querystring("acao")
select case acao
case "enviar" %>
<form action="admin.asp?acao=enviando" method="post">
<input type="hidden" name="data" value="<%=Date()%>">
<p align="center">
Assunto :<br>
<input type="text" name="assunto" size="49"><br>
Mensagem :<br>
<textarea name="mensagem" cols="60" rows="15"></textarea><br>
<input type="submit" value="Enviar">
</form><BR>
Obs: Todos os e-mails são enviados em formato HTML<BR>
Para quebra de linha utilize a tag "<br>"
<hr size="1">
<% case "enviando" %>
<% user = 0
assunto = Request.Form("assunto")
mensagem = Request.form("mensagem")
mensagem = mensagem & "<br><br>Para parar de receber este email <a href="& site & ">clique aqui</a>"
AbreConexao
Sql = "SELECT email FROM dados"
If Len(mensagem) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3
While Not rs.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = email
mail.To = rs("email")
mail.Subject = assunto
mail.BodyFormat = 0
objMail.MailFormat = 0
mail.Body = mensagem
mail.Send
Set mail = Nothing
Response.Write "Email enviado para : " & rs("email") & "<br>"
user = user + 1
rs.MoveNext
Wend
Response.Write "No total foram enviados " & user & " emails."
rs.Close
Set rs = Nothing
Sql = "INSERT INTO enviados (assunto,mensagem,data) "
Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"
Conexao.Execute(Sql)
Else
Response.Redirect "admin.asp?acao=erro"
End If
FechaConexao %>
<% case "modificar" %>
<% AbreConexao
Sql = "SELECT * From dados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>
<td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">
<input type="submit" value="Alterar"></form></td>
<td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">
<input type="submit" value="Apagar"></form></td>
</tr>
</table>
<hr size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "DELETE id,email FROM dados WHERE id = " & id &""
Conexao.Execute(Sql)
FechaConexao %>
E-Mail deletado com sucesso!<BR>
<hr size="1">
<% case "alterar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "
Conexao.Execute(Sql)
FechaConexao %>
E-Mail alterado com sucesso!<BR>
<hr size="1">
<% case "todas" %>
<% AbreConexao
Sql = "SELECT * From enviados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF %>
Assunto: <font color="red"><%=rs("assunto")%></font><BR>
Enviada em: <font color="red"><%=rs("data")%></font><BR>
Mensagem:<BR>
<%=rs("mensagem")%><BR><BR><BR>
<HR size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">
<% case else %>
<% AbreConexao
Sql = "SELECT * FROM dados"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3 %>
No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR>
<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR>
<a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR>
<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a>
<HR size="1">
<% FechaConexao
end select %>
</font>
<p align="center"><font color="#FF0000" size="2">
Script Desenvolvido por <a href="mailto:felipeb2000@bol.com.br">Felipe Siola</a></font>
</body>
</html>
Eduardo Batista
#3
Posted 22/07/2005, 10:00
Pra enviar imagens o formato tem que ser HTML, e no Cdonts o codigo é esse.
mail.BodyFormat = 1
#4
Posted 22/07/2005, 10:05
Errado. 0 para Tags HTML e 1 para texto simples.
Eduardo Batista
#5
Posted 22/07/2005, 10:07
Errado. 0 para Tags HTML e 1 para texto simples.
Está certo.
myMail.BodyFormat=0
Até.
#6
Posted 22/07/2005, 13:26
Nao deu certo nao, deu o seguinte erro edmais:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/newsletters/admin.asp, line 48
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/newsletters/admin.asp, line 48
#7
Posted 22/07/2005, 13:30
Ah claro..
mas qual a linha 48?
mas qual a linha 48?
Eduardo Batista
#8
Posted 22/07/2005, 14:13
eh justamente onde vc pediu pra eu colocar e q esta em negrito. objMail...
#9
Posted 22/07/2005, 14:17
Nuss
<!--#include file="restrito.asp"-->
<!--#include file="cons.asp"-->
<html>
<head>
<title>Administração da NewsLetter</title>
<style>
input {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
textarea {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<font face="Verdana" size="2">
<% acao=Request.querystring("acao")
select case acao
case "enviar" %>
<form action="admin.asp?acao=enviando" method="post">
<input type="hidden" name="data" value="<%=Date()%>">
<p align="center">
Assunto :<br>
<input type="text" name="assunto" size="49"><br>
Mensagem :<br>
<textarea name="mensagem" cols="60" rows="15"></textarea><br>
<input type="submit" value="Enviar">
</form><BR>
Obs: Todos os e-mails são enviados em formato HTML<BR>
Para quebra de linha utilize a tag "<br>"
<hr size="1">
<% case "enviando" %>
<% user = 0
assunto = Request.Form("assunto")
mensagem = Request.form("mensagem")
mensagem = mensagem & "<br><br>Para parar de receber este email <a href="& site & ">clique aqui</a>"
AbreConexao
Sql = "SELECT email FROM dados"
If Len(mensagem) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3
While Not rs.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = email
mail.To = rs("email")
mail.Subject = assunto
mail.BodyFormat = 0
mail.MailFormat = 0
mail.Body = mensagem
mail.Send
Set mail = Nothing
Response.Write "Email enviado para : " & rs("email") & "<br>"
user = user + 1
rs.MoveNext
Wend
Response.Write "No total foram enviados " & user & " emails."
rs.Close
Set rs = Nothing
Sql = "INSERT INTO enviados (assunto,mensagem,data) "
Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"
Conexao.Execute(Sql)
Else
Response.Redirect "admin.asp?acao=erro"
End If
FechaConexao %>
<% case "modificar" %>
<% AbreConexao
Sql = "SELECT * From dados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>
<td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">
<input type="submit" value="Alterar"></form></td>
<td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">
<input type="submit" value="Apagar"></form></td>
</tr>
</table>
<hr size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "DELETE id,email FROM dados WHERE id = " & id &""
Conexao.Execute(Sql)
FechaConexao %>
E-Mail deletado com sucesso!<BR>
<hr size="1">
<% case "alterar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "
Conexao.Execute(Sql)
FechaConexao %>
E-Mail alterado com sucesso!<BR>
<hr size="1">
<% case "todas" %>
<% AbreConexao
Sql = "SELECT * From enviados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF %>
Assunto: <font color="red"><%=rs("assunto")%></font><BR>
Enviada em: <font color="red"><%=rs("data")%></font><BR>
Mensagem:<BR>
<%=rs("mensagem")%><BR><BR><BR>
<HR size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">
<% case else %>
<% AbreConexao
Sql = "SELECT * FROM dados"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3 %>
No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR>
<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR>
<a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR>
<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a>
<HR size="1">
<% FechaConexao
end select %>
</font>
<p align="center"><font color="#FF0000" size="2">
Script Desenvolvido por <a href="mailto:felipeb2000@bol.com.br">Felipe Siola</a></font>
</body>
</html>
<!--#include file="restrito.asp"-->
<!--#include file="cons.asp"-->
<html>
<head>
<title>Administração da NewsLetter</title>
<style>
input {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
textarea {background-color: #D4D4D4; font-family: Verdana; font-size: 8pt; color: #000000;}
</style>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<font face="Verdana" size="2">
<% acao=Request.querystring("acao")
select case acao
case "enviar" %>
<form action="admin.asp?acao=enviando" method="post">
<input type="hidden" name="data" value="<%=Date()%>">
<p align="center">
Assunto :<br>
<input type="text" name="assunto" size="49"><br>
Mensagem :<br>
<textarea name="mensagem" cols="60" rows="15"></textarea><br>
<input type="submit" value="Enviar">
</form><BR>
Obs: Todos os e-mails são enviados em formato HTML<BR>
Para quebra de linha utilize a tag "<br>"
<hr size="1">
<% case "enviando" %>
<% user = 0
assunto = Request.Form("assunto")
mensagem = Request.form("mensagem")
mensagem = mensagem & "<br><br>Para parar de receber este email <a href="& site & ">clique aqui</a>"
AbreConexao
Sql = "SELECT email FROM dados"
If Len(mensagem) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3
While Not rs.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = email
mail.To = rs("email")
mail.Subject = assunto
mail.BodyFormat = 0
mail.MailFormat = 0
mail.Body = mensagem
mail.Send
Set mail = Nothing
Response.Write "Email enviado para : " & rs("email") & "<br>"
user = user + 1
rs.MoveNext
Wend
Response.Write "No total foram enviados " & user & " emails."
rs.Close
Set rs = Nothing
Sql = "INSERT INTO enviados (assunto,mensagem,data) "
Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"
Conexao.Execute(Sql)
Else
Response.Redirect "admin.asp?acao=erro"
End If
FechaConexao %>
<% case "modificar" %>
<% AbreConexao
Sql = "SELECT * From dados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>
<td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">
<input type="submit" value="Alterar"></form></td>
<td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">
<input type="submit" value="Apagar"></form></td>
</tr>
</table>
<hr size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "DELETE id,email FROM dados WHERE id = " & id &""
Conexao.Execute(Sql)
FechaConexao %>
E-Mail deletado com sucesso!<BR>
<hr size="1">
<% case "alterar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "
Conexao.Execute(Sql)
FechaConexao %>
E-Mail alterado com sucesso!<BR>
<hr size="1">
<% case "todas" %>
<% AbreConexao
Sql = "SELECT * From enviados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF %>
Assunto: <font color="red"><%=rs("assunto")%></font><BR>
Enviada em: <font color="red"><%=rs("data")%></font><BR>
Mensagem:<BR>
<%=rs("mensagem")%><BR><BR><BR>
<HR size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">
<% case else %>
<% AbreConexao
Sql = "SELECT * FROM dados"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3 %>
No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR>
<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR>
<a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR>
<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a>
<HR size="1">
<% FechaConexao
end select %>
</font>
<p align="center"><font color="#FF0000" size="2">
Script Desenvolvido por <a href="mailto:felipeb2000@bol.com.br">Felipe Siola</a></font>
</body>
</html>
Eduardo Batista
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)