<% IF Not IsEmpty(Request.Form) AND Request.Form("exp") = "ok" AND Request.Form("email") <> "" AND Session("confirma") = "0" THEN conteudoEmail = "Nome: " & Request.Form("nome") & "

" & "E-mail: " & Request.Form("email") & "

" &_ "Telefone: " & Request.Form("telefone") & "

" & "Mensagem: " & Request.Form("mensagem") & "

" Response.Write(EnviaEmail(emailEnvio, destinatario, smtp, "Contato - TOP CENTER", "Contato Via Web Site", conteudoEmail, emailEnvio, senha)) msg = "

Mensagem Enviada!

sua mensagem foi enviada com sucesso, em breve a equipe da TOP CENTER entrará em contato.

" Session("confirma") = "1" ELSE Session("confirma") = "0" msg = "

Para entrar em contato conosco preencha corretamente o formulário abaixo ou utilize outro de nossos canais de comunicação

" END IF %>

Contato

<%=msg%>

Atendimento Top Center

  • <%=endereco%>
  • Telefones: <%=Replace(telefones, "/", "")%>
    Fax: <%=fax%>
  • <%=destinatario%>
  • <%=atendimento%>