<% Dim VarNome Dim VarEmail Dim VarTelefone Dim VarAssunto Dim VarMensagem Dim VarAct Dim Corpo VarNome = Request.Form("Nome") VarEmail = Request.Form("Email") VarTelefone = Request.Form("Telefone") VarAssunto = Request.Form("Assunto") VarMensagem = Replace(Request.Form("Mensagem"),vbcrlf,"
") VarAct = Request.QueryString("Act") Voltar = "Voltar" 'Corpo do Email que irá para o administrador do site Corpo = "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "
Data/Hora: "& Now() &"

Nome: "& VarNome &"

E-mail: "& VarEmail &"

Telefone: "& VarTelefone &"

Assunto: "& VarAssunto &"

Mensagem: "& VarMensagem &"
" Corpo = Corpo & "" %>

Contato

<% If VarAct = "Contato" Then If VarNome = "" Then Response.Write "Preencha o campo (nome) !

" & voltar ElseIf VarEmail = "" Then Response.Write "Preencha o campo (e-mail) !

" & voltar ElseIf VarAssunto = "0" Then Response.Write "Selecione o campo (assunto) !

" & voltar ElseIf VarMensagem = "" Then Response.Write "Preencha o campo (mensagem) !

" & voltar Else 'Dim Mailer 'Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'Mailer.FromName = VarNome 'Mailer.FromAddress = VarEmail 'Mailer.RemoteHost = "smtp.pizzariasebastian.com.br" 'Mailer.AddRecipient "Pizzaria Sebastian Bar Brooklin", contato@pizzariasebastian.com.br" 'Mailer.AddBCC "Pizzaria Sebastian Bar Brooklin", contato@pizzariasebastian.com.br" 'Mailer.Subject = VarAssunto & " - ( Site )" 'Mailer.ContentType = "text/html" 'Mailer.BodyText = Corpo 'If Mailer.SendMail then ' Mensagem = "Seu contato foi enviado com sucesso!
Breve retornaremos o contato.

Obrigado,
Pizzaria Sebastian Bar Brooklin." 'Else ' 'Mensagem = "Falha no envio. Verifique sua conexão...

" & Mailer.Response 'End if 'Set Mailer = Nothing 'Declaramos as váriaveis a serem utilizadas no script Dim AspEmail, nomeRemetente, emailRemetente, nomeDestinatario, emailDestinatario, emailRetorno, assunto, mensagem, servidor 'Configuramos os dados a serem utilizados no cabeçalho da mensagem nomeDestinatario = "Pizzaria Sebastian Bar Brooklin" emailDestinatario = "contato@pizzariasebastian.com.br" nomeRemetente = VarNome emailRemetente = "contato@pizzariasebastian.com.br" 'O endereço de e-mail deve ser preenchido com uma conta existente em seu próprio domínio. emailRetorno = VarEmail responderPara = VarEmail assunto = VarAssunto mensagem = VarMensagem servidor = "localhost" 'Agora configuramos o componente utilizando os dados informados nas variáveis 'Instancia o objeto na memória SET AspEmail = Server.CreateObject("Persits.MailSender") 'Contfigura o servidor SMTP a ser utilizado AspEmail.Host = servidor 'Configura o Nome do remetente da mensagem AspEmail.FromName = nomeRemetente 'Configura o e-mail do remetente da mensagem que OBRIGATORIAMENTE deve ser um e-mail do seu próprio domínio AspEmail.From = emailRemetente 'Configura o E-mail de retorno para você ser avisado em caso de problemas no envio da mensagem AspEmail.MailFrom = emailRemetente 'Desabilitar essa linha caso o servidor esteja configurado para rodar em 64 bits 'Configura o e-mail que receberá as respostas desta mensagem AspEmail.AddReplyTo responderPara 'Configura os destinatários da mensagem AspEmail.AddAddress emailDestinatario, nomeDestinatario 'Configura para enviar e-mail Com Cópia 'AspEmail.AddCC "nome0@dominio.com.br", "Nome" 'AspEmail.AddCC "nome1@dominio.com.br", "Nome" 'AspEmail.AddCC "nome2@dominio.com.br", "Nome" 'Configura o Assunto da mensagem enviada AspEmail.Subject = assunto 'Configura o formato da mensagem para HTML AspEmail.IsHTML = True 'Configura o conteúdo da Mensagem AspEmail.Body = mensagem 'Definir porta no caso de envio autenticado 'AspEmail.Port = 587 'Utilize este código caso queira enviar arquivo anexo 'AspEmail.AddAttachment("E:\home\SEU_LOGIN_FTP\Web\caminho_do_arquivo") 'Para quem utiliza serviços da REVENDA conosco 'AspEmail.AddAttachment("E:\vhosts\DOMINIO_COMPLETO\httpdocs\caminho_do_arquivo") '#Ativa o tratamento de erros On Error Resume Next 'Envia a mensagem AspEmail.Send 'Caso ocorra problemas no envio, descreve os detalhes do mesmo. If Err <> 0 Then Mensagem = " Erro ao enviar a mensagem.
" Mensagem = Mensagem & "Erro.Description: " & Err.Description & "
" Mensagem = Mensagem & "Erro.Number: " & Err.Number & "
" Mensagem = Mensagem & "Erro.Source: " & Err.Source & "
" Else Mensagem = "Mensagem enviada com sucesso para "& emailDestinatario &"" End If '## Remove a referência do componente da memória ## SET AspEmail = Nothing End If Else %>
* Campos obrigatórios
Nome completo:*
E-mail:*
DDD + Telefone:
Assunto:
Mensagem:*
 
   
<% End If %>
 


Central de Atendimento


(11) 5506-4947
(11) 5041-8396
(11) 5531-7067



Domingo a quinta das 18h às 24h00
Sextas e Sábados das 18h à 01h00


<%=Mensagem%>