Ir para conteúdo

POWERED BY:

Arquivado

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

portalrondonia

Newsletter com erro.

Por , em ASP Clássico

Recommended Posts

portalrondonia    0

portalrondonia
Postado

Bom galera gostaria de uma ajuda de vocês, migrei o sistema de um cliente para SQL SERVER, e um site de noticias, o resto do sistema esta funcionando normalmente so estou com problema no envio da newsletter, ela funciona da seguinte forma eu selecione as que eu quero enviar num form, e enviado para a pagina de processo que envia para a lista de emails. So que quando migro para sql server nao funciona.

 

<!--#include file="inc_protect.asp" --><!--#include file="inc_funcoes.asp" --><!--#include file="config.inc"--><%'-------------------------------------------------------------------------------------'-------------------------------------------------------------------------------------'-------------------------------------------------------------------------------------  Dim OConn  Dim RESP_OPER Call Conexao_BD()  Set RESP_OPER = Server.CreateObject("ADODB.recordset")  Set RESP_OPER.ActiveConnection = OConn  Texto = Texto & "<html>"  Texto = Texto & "<head>"  Texto = Texto & "<title>Newsletter gmail.com</title>"  Texto = Texto & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"  Texto = Texto & "<style>"  Texto = Texto & "  p { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px}"  Texto = Texto & "  a { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: bold; color: #E7651A; text-decoration: none}"  Texto = Texto & "  a:hover { text-decoration: underline}"  Texto = Texto & "  .linknav { font-family: Verdana, Arial, Helvetica, sans-serif; color: #748669; font-size: 10px}"  Texto = Texto & "</style>"  Texto = Texto & "</head>"  Texto = Texto & "<body bgcolor=""#FFFFFF"" text=""#000000"" background=""http://www.gmail.com/www/doc/images/boletim/cn.gif"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"  Texto = Texto & "<table width=""500"" border=""0"" cellspacing=""0"" cellpadding=""0"">"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6""><img src=""http://www.gmail.com/www/doc/images/boletim/tp01.gif"" width=""500"" height=""16""></td></tr>"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6""><img src=""http://www.gmail.com/www/doc/images/boletim/tp02.gif"" width=""500"" height=""85""></td></tr>"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6""><img src=""http://www.gmail.com/www/doc/images/boletim/tp03.gif"" width=""500"" height=""41""></td></tr>"  Texto = Texto & "  <tr>"  Texto = Texto & "    <td valign=""top"" colspan=""6"">"  Texto = Texto & "      <table width=""500"" border=""0"" cellspacing=""0"" cellpadding=""0"">"  Texto = Texto & "        <tr>"  Texto = Texto & "          <td background=""http://www.gmail.com/www/doc/images/boletim/lt01.gif"" width=""22""> </td>"  Texto = Texto & "          <td width=""26"" bgcolor=""#FFFFFF""> </td>"  Texto = Texto & "          <td width=""48"" bgcolor=""#FFFFFF""> </td>"  Texto = Texto & "          <td width=""357"" valign=""top"" bgcolor=""#FFFFFF""> </td>"  Texto = Texto & "          <td width=""39"" bgcolor=""#FFFFFF""> </td>"  Texto = Texto & "          <td width=""19"" background=""http://www.gmail.com/www/doc/images/boletim/lt02.gif""> </td>"  Texto = Texto & "        </tr>"  Codigos = Split(Request.Form("id"), ","  SQL_QUERY = "SELECT * FROM Noticias where ("  For I = 0 To UBound(Codigos)    SQL_QUERY = SQL_QUERY & " id = " & Codigos(I) & " OR "  Next  SQL_QUERY = LefT(SQL_QUERY, Len(SQL_QUERY) - 4) & ") ORDER BY id DESC"  RESP_OPER.Source = SQL_QUERY  RESP_OPER.Open  While NOT RESP_OPER.EOF	'DataDia = Day(RESP_OPER("DT_DATA")) & "/" & Month(RESP_OPER("DT_DATA")) & "/" & Year(RESP_OPER("DT_DATA"))    Texto = Texto & "        <tr>"    Texto = Texto & "          <td background=""http://www.gmail.com/www/doc/images/boletim/lt01.gif"" width=""22""><img src=""http://www.gmail.com/www/doc/images/boletim/p_tsp.gif"" width=""22"" height=""1""></td>"    Texto = Texto & "          <td width=""26"" bgcolor=""#FFFFFF""><img src=""http://www.gmail.com/www/doc/images/boletim/p_tsp.gif"" width=""26"" height=""1""></td>"    Texto = Texto & "          <td width=""48"" bgcolor=""#FFFFFF"" valign=""top""><img src="""" width=""30"" height=""30""></td>"    Texto = Texto & "          <td valign=""top"" bgcolor=""#FFFFFF"">"    Texto = Texto & "            <p><a href=""http://www.gmail.com/www/doc/noticias.asp?cod=" & RESP_OPER("ID") & """ target=""_blank""><font face=""verdana, arial, helvetica, sans-serif"" color=""#E7651A"" size=""2""><b></b></font></a><br>"    Texto = Texto & "              <font face=""verdana, arial, helvetica, sans-serif"" color=""#405F90"" size=""1""></font></p>"    Texto = Texto & "          </td>"    Texto = Texto & "          <td width=""39"" bgcolor=""#FFFFFF""><img src=""http://www.gmail.com/www/doc/images/boletim/p_tsp.gif"" width=""39"" height=""1""></td>"    Texto = Texto & "          <td width=""19"" background=""http://www.gmail.com/www/doc/images/boletim/lt02.gif""><img src=""http://www.gmail.com/www/doc/images/boletim/p_tsp.gif"" width=""19"" height=""1""></td>"    Texto = Texto & "        </tr>"    Texto = Texto & "        <tr>"    Texto = Texto & "          <td background=""http://www.gmail.com/www/doc/images/boletim/lt01.gif"" width=""22""> </td>"    Texto = Texto & "          <td colspan=""4"" bgcolor=""#FFFFFF""><img src=""http://www.gmail.com/www/doc/images/boletim/ponto.gif"" width=""459"" height=""2""></td>"    Texto = Texto & "          <td width=""19"" background=""http://www.gmail.com/www/doc/images/boletim/lt02.gif""> </td>"    Texto = Texto & "        </tr>"    RESP_OPER.MoveNext  Wend  RESP_OPER.Close  Texto = Texto & "      </table>"  Texto = Texto & "    </td>"  Texto = Texto & "  </tr>"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6""><img src=""http://www.gmail.com/www/doc/images/boletim/bs.gif"" width=""500"" height=""21""></td></tr>"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6"" bgcolor=""#DAE0B9"" align=""center""><p><font face=""verdana, arial, helvetica, sans-serif"" color=""#748669"" size=""1"">Desenvolvimento:<b> <a href=""http://www.com.br"" class=""linknav""><font face=""verdana, arial, helvetica, sans-serif"" color=""#748669"" size=""1"" class=""linknav""> - Seu </font></a></b></font></p></td></tr>"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6"" bgcolor=""#DAE0B9""> </td></tr>"  Texto = Texto & "</table>"  Texto = Texto & "</body>"  Texto = Texto & "</html>"  OConn.Closeresponse.buffer = trueServer.ScriptTimeout = 1000000dim useraction,subject,comm,emails,conn,rs,sqldim totalMailsSet Conn = Server.CreateObject("ADODB.Connection")Set Rs = Server.CreateObject("ADODB.Recordset")Conn.Open dsnSQL = "SELECT emails from emails"rs.Open SQL, Conn, 1, 3totalMails = rs.recordcountuseraction=request("action")select case useractioncase "send"	Set Conn = Server.CreateObject("ADODB.Connection")	Set Rs = Server.CreateObject("ADODB.Recordset")    Conn.Open dsn    SQL = "SELECT emails from emails order by id"	rs.open sql,conn	do while not rs.eof  emails=rs("emails")  subject = request.form("subject")  'comm = request.form("comm")  'Dim objCDOSYSCon	'Sub Envia_Boletim(emails)	    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br"    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30     	'Sub Envia_Boletim(emails)          Set objCDOSYSMail = CreateObject("CDO.Message")  'Set objCDO = Server.CreateObject("CDONTS.NewMail")  'ObjCDO.To = emails    '-----------------------------------  'E-mail do admin  '-----------------------------------        'Objcdo.BodyFormat = 0  'Objcdo.MailFormat = 0  'objCDO.From = "rico@enter-net.com.br"  'objCDO.Subject = subject  'objCDO.Body = comm  'objCDO.Send   objCDOSYSMail.HtmlBody  = 0   objCDOSYSMail.From       = "unammed@gmail.com"         objCDOSYSMail.To         = emails         objCDOSYSMail.BCC        = "USUÁRIOS CADASTRADOS"         objCDOSYSMail.Subject    = "NOTÍCIAS VIA "         objCDOSYSMail.HtmlBody   = texto         objCDOSYSMail.Send		Set objCDOSYSMail = Nothing    Set objCDOSYSCon = Nothing 	rs.movenext		loop	'set objCDO = nothing	rs.close	set rs = nothing	conn.close	set conn = nothing	response.write "<script>alert('E-mails bem enviados...!');"	response.write "location.href='index.asp'</script>"	response.endend selectrs.close	set rs = nothing	conn.close	set conn = nothing%>
:blink:

Compartilhar este post

Link para o post
Compartilhar em outros sites

portalrondonia    0

portalrondonia
Postado

Bom com ninguem se pronunciou, consegui fazer funcionar, bati cabeça e descobri aonde estava o erro. Caso alguém queria ver o resultado do sistema e como funciona aguardo.

 

[]s

 

 

Bom galera gostaria de uma ajuda de vocês, migrei o sistema de um cliente para SQL SERVER, e um site de noticias, o resto do sistema esta funcionando normalmente so estou com problema no envio da newsletter, ela funciona da seguinte forma eu selecione as que eu quero enviar num form, e enviado para a pagina de processo que envia para a lista de emails. So que quando migro para sql server nao funciona.

 

<!--#include file="inc_protect.asp" --><!--#include file="inc_funcoes.asp" --><!--#include file="config.inc"--><%'-------------------------------------------------------------------------------------'-------------------------------------------------------------------------------------'-------------------------------------------------------------------------------------  Dim OConn  Dim RESP_OPER Call Conexao_BD()  Set RESP_OPER = Server.CreateObject("ADODB.recordset")  Set RESP_OPER.ActiveConnection = OConn  Texto = Texto & "<html>"  Texto = Texto & "<head>"  Texto = Texto & "<title>Newsletter gmail.com</title>"  Texto = Texto & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"  Texto = Texto & "<style>"  Texto = Texto & "  p { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px}"  Texto = Texto & "  a { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: bold; color: #E7651A; text-decoration: none}"  Texto = Texto & "  a:hover { text-decoration: underline}"  Texto = Texto & "  .linknav { font-family: Verdana, Arial, Helvetica, sans-serif; color: #748669; font-size: 10px}"  Texto = Texto & "</style>"  Texto = Texto & "</head>"  Texto = Texto & "<body bgcolor=""#FFFFFF"" text=""#000000"" background=""http://www.gmail.com/www/doc/images/boletim/cn.gif"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"  Texto = Texto & "<table width=""500"" border=""0"" cellspacing=""0"" cellpadding=""0"">"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6""><img src=""http://www.gmail.com/www/doc/images/boletim/tp01.gif"" width=""500"" height=""16""></td></tr>"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6""><img src=""http://www.gmail.com/www/doc/images/boletim/tp02.gif"" width=""500"" height=""85""></td></tr>"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6""><img src=""http://www.gmail.com/www/doc/images/boletim/tp03.gif"" width=""500"" height=""41""></td></tr>"  Texto = Texto & "  <tr>"  Texto = Texto & "    <td valign=""top"" colspan=""6"">"  Texto = Texto & "      <table width=""500"" border=""0"" cellspacing=""0"" cellpadding=""0"">"  Texto = Texto & "        <tr>"  Texto = Texto & "          <td background=""http://www.gmail.com/www/doc/images/boletim/lt01.gif"" width=""22""> </td>"  Texto = Texto & "          <td width=""26"" bgcolor=""#FFFFFF""> </td>"  Texto = Texto & "          <td width=""48"" bgcolor=""#FFFFFF""> </td>"  Texto = Texto & "          <td width=""357"" valign=""top"" bgcolor=""#FFFFFF""> </td>"  Texto = Texto & "          <td width=""39"" bgcolor=""#FFFFFF""> </td>"  Texto = Texto & "          <td width=""19"" background=""http://www.gmail.com/www/doc/images/boletim/lt02.gif""> </td>"  Texto = Texto & "        </tr>"  Codigos = Split(Request.Form("id"), ","  SQL_QUERY = "SELECT * FROM Noticias where ("  For I = 0 To UBound(Codigos)    SQL_QUERY = SQL_QUERY & " id = " & Codigos(I) & " OR "  Next  SQL_QUERY = LefT(SQL_QUERY, Len(SQL_QUERY) - 4) & ") ORDER BY id DESC"  RESP_OPER.Source = SQL_QUERY  RESP_OPER.Open  While NOT RESP_OPER.EOF	'DataDia = Day(RESP_OPER("DT_DATA")) & "/" & Month(RESP_OPER("DT_DATA")) & "/" & Year(RESP_OPER("DT_DATA"))    Texto = Texto & "        <tr>"    Texto = Texto & "          <td background=""http://www.gmail.com/www/doc/images/boletim/lt01.gif"" width=""22""><img src=""http://www.gmail.com/www/doc/images/boletim/p_tsp.gif"" width=""22"" height=""1""></td>"    Texto = Texto & "          <td width=""26"" bgcolor=""#FFFFFF""><img src=""http://www.gmail.com/www/doc/images/boletim/p_tsp.gif"" width=""26"" height=""1""></td>"    Texto = Texto & "          <td width=""48"" bgcolor=""#FFFFFF"" valign=""top""><img src="""" width=""30"" height=""30""></td>"    Texto = Texto & "          <td valign=""top"" bgcolor=""#FFFFFF"">"    Texto = Texto & "            <p><a href=""http://www.gmail.com/www/doc/noticias.asp?cod=" & RESP_OPER("ID") & """ target=""_blank""><font face=""verdana, arial, helvetica, sans-serif"" color=""#E7651A"" size=""2""><b></b></font></a><br>"    Texto = Texto & "              <font face=""verdana, arial, helvetica, sans-serif"" color=""#405F90"" size=""1""></font></p>"    Texto = Texto & "          </td>"    Texto = Texto & "          <td width=""39"" bgcolor=""#FFFFFF""><img src=""http://www.gmail.com/www/doc/images/boletim/p_tsp.gif"" width=""39"" height=""1""></td>"    Texto = Texto & "          <td width=""19"" background=""http://www.gmail.com/www/doc/images/boletim/lt02.gif""><img src=""http://www.gmail.com/www/doc/images/boletim/p_tsp.gif"" width=""19"" height=""1""></td>"    Texto = Texto & "        </tr>"    Texto = Texto & "        <tr>"    Texto = Texto & "          <td background=""http://www.gmail.com/www/doc/images/boletim/lt01.gif"" width=""22""> </td>"    Texto = Texto & "          <td colspan=""4"" bgcolor=""#FFFFFF""><img src=""http://www.gmail.com/www/doc/images/boletim/ponto.gif"" width=""459"" height=""2""></td>"    Texto = Texto & "          <td width=""19"" background=""http://www.gmail.com/www/doc/images/boletim/lt02.gif""> </td>"    Texto = Texto & "        </tr>"    RESP_OPER.MoveNext  Wend  RESP_OPER.Close  Texto = Texto & "      </table>"  Texto = Texto & "    </td>"  Texto = Texto & "  </tr>"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6""><img src=""http://www.gmail.com/www/doc/images/boletim/bs.gif"" width=""500"" height=""21""></td></tr>"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6"" bgcolor=""#DAE0B9"" align=""center""><p><font face=""verdana, arial, helvetica, sans-serif"" color=""#748669"" size=""1"">Desenvolvimento:<b> <a href=""http://www.com.br"" class=""linknav""><font face=""verdana, arial, helvetica, sans-serif"" color=""#748669"" size=""1"" class=""linknav""> - Seu </font></a></b></font></p></td></tr>"  Texto = Texto & "  <tr><td valign=""top"" colspan=""6"" bgcolor=""#DAE0B9""> </td></tr>"  Texto = Texto & "</table>"  Texto = Texto & "</body>"  Texto = Texto & "</html>"  OConn.Closeresponse.buffer = trueServer.ScriptTimeout = 1000000dim useraction,subject,comm,emails,conn,rs,sqldim totalMailsSet Conn = Server.CreateObject("ADODB.Connection")Set Rs = Server.CreateObject("ADODB.Recordset")Conn.Open dsnSQL = "SELECT emails from emails"rs.Open SQL, Conn, 1, 3totalMails = rs.recordcountuseraction=request("action")select case useractioncase "send"	Set Conn = Server.CreateObject("ADODB.Connection")	Set Rs = Server.CreateObject("ADODB.Recordset")    Conn.Open dsn    SQL = "SELECT emails from emails order by id"	rs.open sql,conn	do while not rs.eof  emails=rs("emails")  subject = request.form("subject")  'comm = request.form("comm")  'Dim objCDOSYSCon	'Sub Envia_Boletim(emails)	    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br"    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30     	'Sub Envia_Boletim(emails)          Set objCDOSYSMail = CreateObject("CDO.Message")  'Set objCDO = Server.CreateObject("CDONTS.NewMail")  'ObjCDO.To = emails    '-----------------------------------  'E-mail do admin  '-----------------------------------        'Objcdo.BodyFormat = 0  'Objcdo.MailFormat = 0  'objCDO.From = "rico@enter-net.com.br"  'objCDO.Subject = subject  'objCDO.Body = comm  'objCDO.Send   objCDOSYSMail.HtmlBody  = 0   objCDOSYSMail.From       = "unammed@gmail.com"         objCDOSYSMail.To         = emails         objCDOSYSMail.BCC        = "USUÁRIOS CADASTRADOS"         objCDOSYSMail.Subject    = "NOTÍCIAS VIA "         objCDOSYSMail.HtmlBody   = texto         objCDOSYSMail.Send		Set objCDOSYSMail = Nothing    Set objCDOSYSCon = Nothing 	rs.movenext		loop	'set objCDO = nothing	rs.close	set rs = nothing	conn.close	set conn = nothing	response.write "<script>alert('E-mails bem enviados...!');"	response.write "location.href='index.asp'</script>"	response.endend selectrs.close	set rs = nothing	conn.close	set conn = nothing%>
:blink:

<{POST_SNAPBACK}>

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