cdonts

www · Outubro 4, 2003

Pessoal tenho que transformar uma pagina .asp para envio em cdonts ... alguem pode me ajudar ? TIpo eu sei configurar o from , o to essas coisas...Porém o corpo da mensagem , onde vai a mensagem eu preciso transformar uma pagina.asp (todo o cod) para enviar por cdonts...O cod é <% conexao2.cursorlocation = 3conexao.cursorlocation = 3seunome = request.form("seunome")nomedoseuamigo = request.form("nomedoseuamigo")seuemail = request.form ("seuemail")emaildoseuamigo = request.form("emaildoseuamigo")suamensagem = request.form("suamensagem")numgaleria = request.form("galeria")numfoto = request.form("foto")set galeria = server.createobject("ADODB.recordset")SQL_Galeria = "select * from galeria where id_galeria = " & numgaleria & ""galeria.open SQL_Galeria, conexao2numfesta = galeria("id_festa")set agenda = server.createobject("ADODB.recordset")SQL_agenda = "select * from agenda where id_festa = " & numfesta & ""agenda.open SQL_agenda, conexaoset fotos = server.createobject("ADODB.recordset")SQL_foto = "select * from fotos where id_galeria = " & numgaleria & " and foto = "& numfoto &""fotos.open SQL_foto, conexao2 %><HTML><HEAD><TITLE>Lembraram de você - HojeNanoite.com.br</TITLE><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"></HEAD><BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 link="#999999" vlink="#999999" alink="#999999"><TABLE WIDTH=500 BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR> <TD COLSPAN=5> <IMG SRC="images/email_01.gif" WIDTH=500 HEIGHT=123 ALT=""></TD> </TR> <TR> <TD ROWSPAN=2> <IMG SRC="images/email_02.gif" WIDTH=15 HEIGHT=226 ALT=""></TD> <TD width="154" height="170" valign="top" background="images/email_03.gif"> Olá <%= nomedoseuamigo %> seu amigo <%= seunome %> acaba de acessar o site <a href="http://www.hojenanoite.com.br" target="_blank">Hojenanoite.com.br</a> e quer lhe mostrar uma foto tirada no dia <%= agenda("data") %> no <%= agenda("nome_guia") %> na festa <%= agenda("nome_festa") %>. Para ver todas as fotos <a href="http://www.hojenanoite.com.br/novo/galeria.asp?galeria=<%= numgaleria %>">Clique Aqui</a>. </TD> <TD ROWSPAN=2> <IMG SRC="images/email_04.gif" WIDTH=16 HEIGHT=226 ALT=""></TD> <TD width="300" height="225" ROWSPAN=2 background="images/email_05.gif"><img src="fotos/<%= numgaleria %>/grande/<%= fotos("foto") %>.jpg" width="300" height="225"> </TD> <TD ROWSPAN=2> <IMG SRC="images/email_06.gif" WIDTH=14 HEIGHT=226 ALT=""></TD> </TR> <TR> <TD> <img src="images/email_07.gif" width=154 height=56 alt=""></TD> </TR> <TR> <TD> <IMG SRC="images/email_08.gif" WIDTH=15 HEIGHT=27 ALT=""></TD> <TD COLSPAN=4> <IMG SRC="images/email_09.gif" WIDTH=485 HEIGHT=27 ALT=""></TD> </TR> <TR> <TD> <IMG SRC="images/email_10.gif" WIDTH=15 HEIGHT=78 ALT=""></TD> <TD height="78" COLSPAN=3 background="images/email_11.gif"><%= mensagem %> </TD> <TD> <IMG SRC="images/email_12.gif" WIDTH=14 HEIGHT=78 ALT=""></TD> </TR> <TR> <TD COLSPAN=5> <IMG SRC="images/email_13.gif" WIDTH=500 HEIGHT=16 ALT=""></TD> </TR> <TR> <TD COLSPAN=5> <div align="center">Atenciosamente Giovani Fracchia & Bruno Tavares. Equipe Hojenanoite.com.br.</div> </TD> </TR> <TR> <TD COLSPAN=5> </TD> </TR></TABLE></BODY></HTML>ALGUEM PoDE ME AJUDAR A RESOLVER ISSO?

nostrinkes · Outubro 4, 2003

OLÁ COLEGA...

Acredito que sejá assim que voce quer.....

corpo = corpo & "<html><body>..........seu html "

'sempre que pular a linha coloque: corpo=corpo& "conteudo"

'Quando usar asp neste html coloque "seu htm"& sua Asp &"mais htm"

no body do cdonts para envio chame a variavel corpo

Tente assim ok

Exemplo: :(

<htm><body><center><form method="post" action="cdonts.asp">login:_<input type="text" name="nome"><br>e-mail:_<input type="text" name="email"><br><input type="submit" value="mandar e-mail"></center></form>Mandado email</body></htm><%strNome = Trim(Request.Form("nome"))strEmail = Trim(Request.Form("email"))Set objMail = Server.CreateObject("CDONTS.NewMail")objMail.To = "tamoakiatoa@ig.com.br"objMail.From = strEmail objMail.Subject = "Solicito cadastro no site!"strMsgParaCadastro = "Nome: " & strNome & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "Email: " & strEmail & vbcrlf strMsgParaCadastro = strMsgParaCadastro & "-----------------------------"objMail.Body = strMsgParaCadastroobjMail.SendSet objMail = nothing'---------------------------------------------------------------------------------------strMsgObrigado = "Olá " & strNome &"<br>"strMsgObrigado = strMsgObrigado & "Obrigado por se cadastrar em nosso site"&"<br>"strMsgObrigado = strMsgObrigado & "Breve você receberá mais informações."&"<p>"strMsgObrigado = strMsgObrigado & "Abraços,"&"<br>"strMsgObrigado = strMsgObrigado & "Webmaster"Set objMail = Server.CreateObject("CDONTS.NewMail")objMail.From = "tamoakiatoa@ig.com.br"objMail.To = strEmail objMail.Subject = "Seu cadastro em nosso site!"objMail.Body = strMsgObrigadoobjMail.Send%>

Entrar

Arquivado

cdonts

Recommended Posts

www 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

nostrinkes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante