<%@LANGUAGE="VBSCRIPT"%> <% ' change to address of your own SMTP server strHost = "mail.flucianofeijao.com.br" If Request("Send") <> "" Then Set objMail = CreateObject("CDO.message") objMail.From = Request("email") objMail.To = "pesquisa.extensao@flucianofeijao.com.br" objMail.Subject = "[FACULDADE LUCIANO FEIJÃO] II ENCONTRO DE PESQUISA E EXTENSÃO" objMail.htmlBody = "Formulário de Contato
" & vbNewLine & vbNewLine & "
Nome: " & Request("nome") & vbNewLine & "
E-mail: " & Request("email") & vbNewLine & "
Aluno: " & Request("aluno") & vbNewLine & "
Setor: " & Request("setor") & "
Tipo de Assunto: " & Request("assunto") & vbNewLine & vbNewLine & "
Mensagem: " & Request("mensagem") objMail.Send strErr = "" bSuccess = False On Error Resume Next ' catch errors objMail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> Faculdade Luciano Feijão - II Encontro de Pesquisa e Extensão - Contato Faculdade Luciano Feijão - Encontro de Pesquisa e Extensão

FALE CONOSCO

Telefone

<% If Request("Send") <> "" Then If strErr <> "" Then %> Não foi possível enviar sua mensagem!
Tente novamente, mais tarde! <% End If %> <% If bSuccess Then %> Contato enviado com sucesso!
Obrigado por contatar-nos, em breve retornaremos! <% End If else %> Sugestões, dicas, reclamações e elogios são partes da construção de um ensino de qualidade!

Origem






  



Destino










  
<% End If %>