Ir para conteúdo

POWERED BY:

Arquivado

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

lordnaicon

E-Mail com CDonts

Por , em ASP Clássico

Recommended Posts

lordnaicon    0

lordnaicon
Postado

Pessoal,

Tô tentando criar este envio de e-mails com CDONTS, porém quando executo o código fala que a página não pode ser exibida. Alguém pode me ajudar? Imagem Postada

 

<%

if request("tipo") = "0" then

 

de=Request("de")

demail=request("demail")

para=request("para")

paramail=request("paramail")

mensagem=request("mensagem")

idfoto=request("idfoto")

 

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=d:sitesradicalfestabancoradicalf.mdb"

set dados = conexao.execute("select * from fotos where id="&idfoto&"")

Dim msg

Set msg = Server.CreateObject("CDONTS.NewMail")

texto = "<html><head><title>Untitled Document</title>"

texto= texto & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"

texto= texto & "<style type='text/css'>"

texto= texto & "<!--"

texto= texto & ".unnamed1 {"

texto= texto & " color: #FFCC00;"

texto= texto & " text-decoration: none;"

texto= texto & "}"

texto= texto & ".unnamed2 {"

texto= texto & " color: #CCCCCC;"

texto= texto & " text-decoration: none;"

texto= texto & "}"

texto= texto & "-->"

texto= texto & "</style>"

texto= texto & "</head>"

texto= texto & "<body bgcolor='#666666' BACKGROUND='../bck-home.gif'>"

texto= texto & "<p class='unnamed2'> </p>"

texto= texto & "<div align='center'>"

texto= texto & " <p><font color='#FFCC00' size='4' face='Verdana, Arial, Helvetica, sans-serif'><strong><a href='http://www.radicalfesta.com.br' class='unnamed1'>www.radicalfesta.com.br</a></strong></font></p>"

texto= texto & " <p><img src='http://www.radicalfesta.com.br/admin/noticias/imagens/"&arquivo&"'><br>"

texto= texto & " <br>"

texto= texto & " <font color='#CCCCCC' size='2' face='Verdana, Arial, Helvetica, sans-serif'>"

texto= texto & " "&de&" esteve no site <a href='http://www.radicalfesta.com.br' class='unnamed2'><strong>Radical "

texto= texto & " Festa</strong></a></span> e decidiu te enviar para você "¶&" esta foto!</font></p>"

texto= texto & " <p><font color='#CCCCCC' size='2' face='Verdana, Arial, Helvetica, sans-serif'>Mensagem: "

texto= texto & " "&mensagem&"</font></p>"

texto= texto & "</div></body></html>"

msg.From = demail

msg.To=paramail

msg.Subject = "Foto do Site Radical Festa"

msg.BodyFormat = 0

msg MaiFormat = 0

msg.Body = texto

msg.Send

Set msg = Nothing

 

 

end if

%>

 

 

Valeu!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

lordnaicon    0

lordnaicon
Postado

o erro é o seguinte: Quando redireciona para a página com o código, aparece a mensagem: A página não pode ser exibida, do windows.

Acho que é problema no servidor Imagem Postada

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Verifique se o form está apontando corretamente para esse script!

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