Associado ao CRC e



Rua Bela Cintra, 746 - 6º andar
Cerqueira César - SP 01415-902
E -mail: unique@unique.etc.br
Fone : 55 11 3151 4455
Fax : 55 11 3151 4492
 
AUDITORIA
 
 
CONSULTORIA
 
 
ASSESSORIA
  
 

CONTROLES INTERNOS E GESTÃO DE RISCOS
 
 
PALESTRAS, CURSOS E TREINAMENTOS
Entre em contato por telefone ou se preferir preencha o formulário abaixo. Estaremos prontos para lhe atender.

E você é bem-vindo para nos enviar seus comentários, dúvidas e sugestões.
NOME
EMPRESA
E-MAIL
TELEFONE
COMENTÁRIOS
 

 
Home   |   Empresa   |   Ações Sociais   |  Principais Clientes   |   Links  |  Contato   
UNIQUE Consultoria & Auditoria © 2004 - by PYPE
<% if Request.Form("enviar") = "ok" then Set objEmail = CreateObject("CDO.Message") objEmail.From = request.form("email") objEmail.Subject = "UNIQUE - CONTATO VIA WEB" objEmail.To = "unique@unique.etc.br" objEmail.Textbody = "NOME : " + Request.Form("nome") + vbcrlf + "EMPRESA : " + Request.Form("empresa") + vbcrlf + "TELEFONE : " + Request.Form("fone") + vbcrlf + "E-MAIL : " + Request.Form("email") + vbcrlf + vbcrlf + "COMENTÁRIO : " + Request.Form("comentarios") objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "localhost" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Configuration.Fields.Update objEmail.Send response.write("") end if %>