Ir para conteúdo

Arquivado

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

Patricia

Html com include

Por , em ASP Clássico

Recommended Posts

Patricia    0

Patricia
Postado

Alguem pode me ajudar, to montando um arquivo html que vai ser enviado por email atraves do Cdonts, mas nao sei como fazer um include file!!

segue o codigo

 

<%

Option Explicit

 

Dim Mail, varBody, varTo, varSubject, htmlemail

 

varBody = request("comment")

varTo = request("para")

varSubject = request("assunto")

 

htmlemail = htmlemail & "<HTML>"

htmlemail = htmlemail & "<HEAD>"

htmlemail = htmlemail & "<TITLE>Email - HBS Informatica</TITLE>"

htmlemail = htmlemail & "</HEAD>"

htmlemail = htmlemail & "<BODY>"

htmlemail = htmlemail & <!--#include file="cabecalho.html"--> com ou sem duplas da erro

htmlemail = htmlemail & varBody

htmlemail = htmlemail & "</BODY>"

htmlemail = htmlemail & "</HTML>"

 

Set Mail = Server.CreateObject("Cdonts.NewMail")

Mail.From = "email de destino"

Mail.To = varTo

Mail.Subject = varSubject

Mail.Body = htmlemail

Mail.Bodyformat = 0

Mail.MailFormat = 0

Mail.Send

 

Set Mail = Nothing

 

%>

 

<h1><p align="center">Sua mensagem foi enviada corretamente!</p></h1>

 

<p align="center"><a href="index.asp">Voltar ao Formulário de Envio</a></p>

Compartilhar este post

Link para o post
Compartilhar em outros sites

wallace20    0

wallace20
Postado

se eu não me engano, html não aceita includes. tente com asp, shtml...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patricia    0

Patricia
Postado

Pessoal , ja resolvi o problema, mesmo assim agradeco!segue o codigo certo:<%Option ExplicitDim Mail, varBody, varTo, varSubject, htmlemailvarBody = request("comment")varTo = request("para")varSubject = request("assunto")htmlemail = htmlemail & "<HTML>"htmlemail = htmlemail & "<HEAD>"htmlemail = htmlemail & "<TITLE>Email - HBS Informatica</TITLE>"htmlemail = htmlemail & "</HEAD>"htmlemail = htmlemail & "<BODY>"htmlemail = htmlemail & "'"<!--#include file="cabecalho.html"-->"'"htmlemail = htmlemail & varBodyhtmlemail = htmlemail & "'"<!--#include file="rodape.html"-->"'"htmlemail = htmlemail & "</BODY>"htmlemail = htmlemail & "</HTML>"Set Mail = Server.CreateObject("Cdonts.NewMail")Mail.From = "email do remente"Mail.To = varToMail.Subject = varSubjectMail.Body = htmlemailMail.Bodyformat = 0Mail.MailFormat = 0Mail.SendSet Mail = Nothing%><h1><p align="center">Sua mensagem foi enviada corretamente!</p></h1> <p align="center"><a href="index.asp">Voltar ao Formulário de Envio</a></p> ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

Colega me ensina porque das aspas do include....Ha para voltar a pagina de origem de mando um jscript...... <script language="Javascript"> <!-- function iniciar() { cont=setTimeout("envia()",2300) } // --> function envia() { window.location.href ="enviar1.asp" } </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