Palestras

Treinamento

Consultoria
   
  <% acao = request.form("acao") %> <% If acao = "Enviar!" Then %> <% nome = request.form("nome") email = request.form("email") estado = request.form("estado") empresa = request.form("empresa") assunto = request.form("assunto") comentario = request.form("comentario") novidades = request.form("novidades") telefone = "(" & request.form("ddd") & ") " & request.form("telefone") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = nome Mailer.FromAddress = email Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient "Carlos Nepomuceno", "pontonet@pontonet.com.br" Mailer.Subject = "Pontonet - Formulário padrão do site" msg = "Nome: " & nome & VbCrLf msg = msg & "E-mail: " & email & VbCrLf msg = msg & "Estado: " & estado & VbCrLf msg = msg & "Telefone: " & telefone & VbCrLf msg = msg & "Empresa: " & empresa & VbCrLf msg = msg & "Assunto: " & assunto & VbCrLf msg = msg & "Comentário: " & comentario & VbCrLf if novidades = "recebernovidades" then msg = msg & "Quer receber as novidades da Pontonet? Sim" & VbCrLf else msg = msg & "Quer receber as novidades da Pontonet? Não" & VbCrLf end if Mailer.BodyText = msg if Mailer.SendMail then Response.Write "

Seu Formulário foi enviado com sucessso!." else Response.Write "Problemas. O erro foi: " & Mailer.Response & "" end if Else %>

Nome:*
E-mail:*
Localidade:
Telefone:*
Escolha
um assunto:
Empresa:


Comentário:

Quero receber as novidades da Pontonet  (inclui  os
artigos de Nepomuceno, informações sobre palestras e
cursos)

* Campos de preenchimento obrigatório
<% End if %> 		 
           
           
           
 

    
 

| Colocar a coluna do Nepô em meu site |
| Deixar meu Currículo |