Estoy contento hoy. Hay vay mi regalito.
Busque un manual que sera lo mejor. nin siempre tendras la suerte de ganar un codigo limpio y listo para usar.
Código HTML:
<%
Response.Buffer = True
id=Request.querystring("id")
strURL = Request.ServerVariables("URL")
col = Trim(Request.QueryString("col"))
If Request.QueryString("pagina") = "" Or Request.QueryString("pagina") = "0" Then
pagina= 1
Else
pagina = Request("pagina")
End If
registros = 1
Set Conn = Server.CreateObject("AdoDb.Connection")
conexao = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;PWD= ;Initial Catalog= ;Data Source=servidorr"
Conn.open conexao
set RS = Server.Createobject("AdoDB.RecordSet")
set RS.ActiveConnection = conn
RS.cursortype = 3
RS.CursorLocation = 3
RS.CursorType = 2
RS.LockType = 1
RS.CacheSize = registros
RS.pagesize = registros
status = ""
SQL = "SELECT email FROM MPboletim ORDER by email asc "
RS.Open SQL,Conn,3,3
PageCount = RS.PageCount
if RS.EOF then
Response.Write "<div align=center><p> </p><p>Não exister emails registrados nesse boletim</p></div>"
else
SQL2 = "SELECT * FROM MPregboletim where id = '"& id &"' "
Set Rsbol = Conn.Execute(SQL2)
RS.absolutepage = pagina
status_envio = status_envio & Fix((pagina*100)/PageCount) & "% enviado<br>"
For Cont = 1 to registros
'Para mensagem em HTML utilize sempre este bloco no inicio da mensagem a ser enviada
msn=rsbol("texto")
dim strMensagem
strMensagem = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
strMensagem = strMensagem & "<HTML><HEAD>"
strMensagem = strMensagem & "<body>"
strMensagem = strMensagem & "<table width=500 border=0 align=center cellspacing=5><tr> <td width=171><a href=http://www.meupais.com target=_blank><img src=http://www.meupais.com/imagens/email/logo_default.jpg title=meupais.com alt=meupais.com width=155 height=135 border=0></a></td>"
strMensagem = strMensagem & "<td width=319 valign=top><div align=right> <p><font size=2 face=Geneva, Arial, Helvetica, sans-serif><br>>> <a href=http://www.meupais.com target=_blank>Ir ao site</a></font></p> <p align=center><font size=2 face=Verdana, Arial, Helvetica, sans-serif><strong>Esse é um e-mail gerado automaticamente. Não é necessário respondê-lo. </strong></font></p></div></td>"
strMensagem = strMensagem & "</tr><tr> <td colspan=2><img src=http://www.meupais.com/imagens/email/modelo_topo_cat_boletim.gif width=500 height=35></td>"
strMensagem = strMensagem & "</tr><tr valign=top> <td colspan=2>"
strMensagem = strMensagem & "<p><font size=2 face=Verdana, Arial, Helvetica, sans-serif>"&msn&"<p align=center></p><br><br><br><br><br> Caso não deseje mais receber o boletim, <a href=http://www.meupais.com/default.asp?mail="&rs("email")&"&opcao=8 target=_blank>clique aqui</a></font> </p></td></tr></table></body></html>"
titulo = rsbol("titulo")
if titulo = "" then
titulo = "Novidades"
end if
nome=rs("email")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Meu País.com - Boletim"
Mailer.FromAddress= "[email protected]"
Mailer.RemoteHost = "smtp2.locaweb.com.br"
Mailer.AddRecipient nome, rs("email")
Mailer.ContentType = "text/html" ' formatação html
Mailer.Subject = titulo
Mailer.BodyText = strMensagem
If Mailer.SendMail Then
Response.Write " "
Else
Response.Write "Erro " & Mailer.Response
End If
Set Mailer = nothing
rs.MoveNext
Next
If Int(pagina) < Int(PageCount) Then
Response.Write status_envio
%>
<br>
Aguarde o envio do boletim...
<SCRIPT LANGUAGE="JavaScript">
<!--
function atualiza(){
document.location.href = "<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina=<%=pagina +1%>&id=<%=id%>"
}
setTimeout("atualiza()",5000);
//-->
</SCRIPT>
<%
Else
%>
Envio do boletim concluido.
<%
AT="update mpregboletim set cont=(cont+1)where id = "&id&" "
Conn.Execute(AT)
End If
end if %>
<%
RS.Close
Set RS = Nothing
%>
un saludo