Ir para conteúdo

POWERED BY:

Arquivado

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

cabral51

Problemas com cdonts

Por , em ASP Clássico

Recommended Posts

cabral51    0

cabral51
Postado

Pessoal tenhu a seguinte página:

<% Option Explicit %><!--#include file="bibconexao.asp"--><% RESPONSE.BUFFER = TRUE     session.LCID = 1046' Banco de Dados e Tabelas' Variáveis Webbras  	'Dim banco,tbBanco,,tbBanco2,msg,bancario  	Dim html,entid,banco,codigox,empresa,wcor,listar,listar2,selectcampo,todos1,email2,todos	Dim i,x,j,condicao,condicao2	Dim corpo,imagem,para,tbBanco1,assunto,nome,mensagem,email,id_loja,de,nome_loja,strsql,emails,tbbras1,telefone   codigox = trim(request.form("codigox"))   entid = trim(request.form("entid"))     condicao = Trim(request.form("selecione"))   imagem=trim(request.form("textopubli"))'Response.Write "CodigoX = "& codigox &"<br>"'Response.Write "Entid = "& entid &"<br>"'Response.Write "Condição = "& condicao &"<br>"corpo=split(condicao,";")response.write corporesponse.End()call abre_bancoIf condicao <> "todos" Then	StrSql = " Select clientes.email,codi.e_mail"	StrSql = StrSql & " from codi,clientes"	StrSql = StrSql & " where codi.codicodi=" & codigox	StrSql = StrSql & " and clientes.codicli=" & codigox	StrSql = StrSql & " and clientes.email is not null "	set tbbanco1=banco.execute(Strsql)	   ' HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<title>"HTML = HTML & "</title>"HTML = HTML & "<META http-equiv=Content-Type content=text/html; charset=iso-8859-1>"HTML = HTML & "<META content=MSHTML 6.00.2900.2912 name=GENERATOR>"HTML = HTML & "</head>"html = html & "<body>"HTML = HTML & "<IMG alt="" hspace=0 src=http://www.grupomercosul.com.br/parceiro/e-mailclicodi.jpg align=baseline border=0>"HTML = HTML & "</body>"HTML = HTML & "</html>"	set Email = server.createobject("CDONTS.NewMail")  	email.BodyFormat=0	email.MailFormat=0	email.From = tbbanco1("e_mail")  	email.to= "felipecabral1451@gmail.com"	'email.bcc=  'email.to= "parceiro@grupomercosul.com.br" ' email.bcc = corpo	 email.bcc= "felipecabral1451@gmail.com"	email.Subject = "Parceria que dá frutos."     	email.Body = html	email.Send  	set Email = nothing 	tbBanco1.Close	set tbBanco1=NothingElse	if condicao="todos" then	StrSql = " Select clientes.email,codi.e_mail"	StrSql = StrSql & " from codi,clientes"	StrSql = StrSql & " where codi.codicodi=" & codigox	StrSql = StrSql & " and clientes.codicli=" & codigox	StrSql = StrSql & " and clientes.email is not null "set tbbanco1=banco.execute(Strsql)While Not TbBanco1.EOF   HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<title>"HTML = HTML & "</title>"HTML = HTML & "<META http-equiv=Content-Type content=text/html; charset=iso-8859-1>"HTML = HTML & "<META content=MSHTML 6.00.2900.2912 name=GENERATOR>"HTML = HTML & "</head>"html = html & "<body>"HTML = HTML & "<IMG alt="" hspace=0 src=http://www.grupomercosul.com.br/parceiro/e-mailclicodi.jpg align=baseline border=0>"HTML = HTML & "</body>"HTML = HTML & "</html>"set Email = server.createobject("CDONTS.NewMail")	email.BodyFormat=0	email.MailFormat=0	email.From = tbbanco1("e_mail")    ' email.to= tbbanco   email.to= "felipecabral1451@gmail.com"  ' email.bcc = tbbanco1("email")	email.bcc = "felipecabral1451@gmail.com"	email.Subject = "Parceria que dá frutos."     	email.Body = html	email.Send  	set Email = nothing		tbbanco1.movenext	wend	tbBanco1.Close	set tbBanco1=NothingEnd If		end if	 response.Redirect("enviadoselectemail.asp?codigox="&codigox&"&entid="&entid)%>
Faz envio de um texto publicitário mas estou com o seguinte erro quando envia o email

 

Response object error 'ASP 0106 : 80020005'

 

Type Mismatch

 

/restrito/enviaselectemail.asp, line 0

 

An unhandled data type was encountered.

 

Alguem pode ajudar??

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

ah valew, so que quando dou o response ele me retorna ainda com virgula, dá uma olhadinha.

mc.bruno@terra.com.br, moradadospaes@uol.com.br

foi isso que ele me restornou, ele deveria ter retornado com ponto e virgula

corpo = split(condicao,";")for i=0 to ubound(corpo)response.write corpo(i)response.End()next

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Pessoal o email esta chegando desta forma

<IMG alt=" hspace=0 src=http://www.grupomercosul.com.br/parceiro/e-mailclicodi.jpg align=baseline border=0></body></html>

 

alguem sabe me ajudar???

tag html para o corpo do emails esta assim

HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<title>"HTML = HTML & "</title>"HTML = HTML & "<META http-equiv=Content-Type content=text/html; charset=iso-8859-1>"HTML = HTML & "<META content=MSHTML 6.00.2900.2912 name=GENERATOR>"HTML = HTML & "</head>"html = html & "<body>"HTML = HTML & "<IMG alt="" hspace=0 src=http://www.grupomercosul.com.br/parceiro/e-mailclicodi.jpg align=baseline border=0>"HTML = HTML & "</body>"HTML = HTML & "</html>"
Pessoal deu tudo certo o que faltava aki era o ' no img src, valew galera

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