<% 'If the form has not been submitted execute the following code If Request.Form="" Then %>

Envie-nos suas dúvidas, idéias, colaborações e críticas. Nosso telefone é (11) 3091-4369.
Você também pode entrar em contato conosco preenchendo o formulário abaixo. Se preferir os correios, nosso endereço está no fim da página.

Preencha os campos abaixo e clique em enviar.

nome:
e-mail:
comentário
   
 


<% 'If the form has been submitted execute the following code Else 'receive the form values Dim sName, sEmail, sFeedback sName=Request.Form("txtName") sEmail=Request.Form("txtEmail") sFeedback=Request.Form("txtFeedback") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "HTML Email" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Feedback message from: " & sName & "
" sEmailText = sEmailText & "E-mail: " & sEmail & "
" sEmailText = sEmailText & "Message:" & sFeedback & "
" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From="peroni@eca.usp.br" 'This is the email of the feedback sender NewMailObj.To = "felipebperoni@gmail.com" 'change to your address NewMailObj.Subject = "Feedback" NewMailObj.Body = sEmailText 'you need to add these 2 lines for the mail to be sent in HTML format 'remove them and the email will be sent in Text format NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing Response.write "

Agradecemos seu contato.
" Response.write "Responderemos em breve, se necessário.
" End If %>


Associação Brasileira de Escolas de Comunicação Social
Av. Prof. Lucio Martins Rodrigues, 443, Bloco 2, Sala 14.

Cep 05508-900 - Cidade Universitária, São Paulo - SP
Tel.: (11) 3091-4369
Webmaster