<%
if Request("IsPostBack") = 1 then
Dim vSucesso,vErr
vSucesso = "obrigado.htm"
vErr = "erro.html"
'Dados para a chamada da função
EMAIL_TO = "itfrio@itfrio.com.br"
EMAIL_FROM = "itfrio@itfrio.com.br"
EMAIL_SUBJECT = Request("assunto")
EMAIL_EH_HTML = 0
EMAIL_BODY = ""
'Gerando o corpo da mensagem
LISTA_DE_NOMES_DE_CAMPOS = "nome,email,assunto,msg"
EMAIL_BODY = "INÍCIO DA MENSAGEM" & vbcrlf & vbcrlf
EMAIL_BODY = EMAIL_BODY & montaListaDeCamposDoForm(LISTA_DE_NOMES_DE_CAMPOS) & vbcrlf
EMAIL_BODY = EMAIL_BODY & "FIM DA MENSAGEM"
if EMAIL_EH_HTML then
EMAIL_BODY = "
" & EMAIL_BODY & "
"
end if
'Enviando o email e retornando um mensagem de sucesso ou erro
if EnviaEmail(EMAIL_TO,EMAIL_BODY,EMAIL_FROM,EMAIL_SUBJECT,EMAIL_EH_HTML) then
Response.Redirect(vSucesso)
else
Response.Redirect(vErr)
end if
end if
%>
