<% action = request.QueryString("action") msg = request.QueryString("msg") if action = "send" then nome = request.form("nome") email = request.Form("email") participante = request.Form("participante") email_participante = request.Form("email_participante") cargo_participante = request.Form("cargo_participante") endereco = request.Form("endereco") numero = request.Form("numero") complemento = request.Form("complemento") cep = request.Form("cep") bairro = request.Form("bairro") cidade = request.Form("cidade") estado = request.Form("estado") cnpj = request.Form("cnpj") tel_ddd = request.Form("tel_ddd") tel_numero = request.Form("tel_numero") tel_ramal = request.Form("tel_ramal") fax_ddd = request.Form("fax_ddd") fax_numero = request.Form("fax_numero") fax_ramal = request.Form("fax_ramal") homepage = request.Form("homepage") responsavel = request.Form("responsavel") responsavelEmail = request.Form("responsavelEmail") comentario = request.Form("comentario") if nome = "" or email = "" or participante = "" or email_participante = "" or cargo_participante = "" or endereco = "" or numero = "" or cep = "" or bairro = "" or cidade = "" or estado = "" or cnpj = "" or tel_ddd = "" or tel_numero = "" or responsavel = "" or responsavelEmail = "" then response.Redirect "?msg=no" strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "
Nome da Empresa*: "&nome&"
E-mail da Empresa*:  "&email&"
Participante*:  "&participante&"
E-mail*:  "&email_participante&"
Cargo*:  "&cargo_participante&"
Endereço*:  "&endereco&"
Número*:  "&numero&"
Complemento:  "&complemento&"
CEP*:  "&cep&"
Bairro*:  "&bairro&"
Cidade*:  "&cidade&"
Estado*:  "&estado&"
C.N.P.J.*:  "&cnpj&"
Telefone*:  "&tel_ddd&" "&tel_numero&" "&tel_ramal&"
Fax:  "&fax_ddd&" "&fax_numero&" "&fax_ramal&"
Home Page:  "&homepage&"
  
Responsável pelo cadastro 
Nome*:  "&responsavel&"
E-mail*:  "&responsavelEmail&"
Comentários: 
" ' Set objCDOMail = Server.CreateObject("CDONTS.NewMail") ' objCDOMail.From = "contato@convergenews.com.br" ' objCDOMail.To = "contato@webdireta.com.br" ' objCDOMail.CC = "diogo.pastori@convergenews.com.br" ' objCDOMail.BodyFormat = 0 ' objCDOMail.MailFormat = 0 ' objCDOMail.Subject = "Inscrições - Site" ' objCDOMail.Body = strBody ' objCDOMail.Importance = 1 ' objCDOMail.Send ' Set objCDOMail = Nothing '## Configuração do cabeçalho da mensagem sRemetente = "contato@corpbusiness.com.br" 'o endereço de e-mail deve ser uma conta do próprio domínio e válida. sDestinatario = "contato@corpbusiness.com.br" sResponder = responsavelEmail sAssunto = "Inscrição E-COMMERCE - site" sMensagem = strBody '## configurações do componente CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'Cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 'Porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 'Porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'Atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon ' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM #### 'configura o remetente objCDOSYSMail.From = sRemetente 'configura o destinatário objCDOSYSMail.To = sDestinatario 'configura o reply-to objCDOSYSMail.ReplyTo = sResponder 'configura o assunto objCDOSYSMail.Subject = sAssunto ''configura o conteúdo da mensagem 'objCDOSYSMail.TextBody = sMensagem '### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ### 'para envio da mensagem no formato html altere o TextBody para HtmlBody objCDOSYSMail.HtmlBody = sMensagem objCDOSYSMail.fields.update ' ### ENVIA O E-MAIL ### objCDOSYSMail.Send ' ### DESTRÓI OS OBJETOS ### Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.Redirect "?msg=yes" end if %> E-COMMERCE

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Inscrição


* Os valores contém impostos que devem ser recolhidos pela fonte pagadora em conformidade com a legislação vigente (Lei 116/2003, art. 5º da Lei 10.925/04 e art 647 do RIR). Para mais informações, favor entrar em contato com nosso serviço de atendimento ao cliente para obter detalhes do valor a ser pago a PASTORI & ASSOCIADOS COMUNICAÇÕES LTDA, antes de efetuar o pagamento de sua inscrição.

Descontos para grupos

As informações que serão debatidas neste único dia de conferência serão cruciais para ao sucesso dos seus negócios, que a presença de todas as pessoas do seu time torna-se fundamental.

Política de descontos

• Todos os descontos para inscrições antecipadas devem ser pagos no momento da inscrição e antes da data limite para que o benefício seja válido.

• Nenhum desconto pode ser combinado com outra oferta.

Descontos

• Todos os descontos de inscrição antecipada devem ser pagos no momento da inscrição e antes da data limite para que o desconto seja válido

• Qualquer desconto oferecido pelo CORPBUSINESS (incluindo descontos para grupos) devem ser pagos no momento da inscrição.

• Nenhum desconto pode ser combinado com outra oferta.

 

Contato

Tel: (11) 3666-5208
contato@corpbusiness.com.br
 Local

Data
 São Paulo 02 Outubro de 2008
<%if msg <> "" then%>

<%if msg = "no" then response.Write "Por favor, preencha os campos marcados com asterisco (*)." if msg = "yes" then response.Write "Sua inscrição foi realizada com sucesso."%>
<%end if%>  
* preenchimento obrigatório.
Nome da Empresa*:
E-mail da Empresa*:
Participante*:
E-mail*:
Cargo*:
Endereço*:
Número*: (somente números)
Complemento:
CEP*: (não utilize pontuação)
Bairro*:
Cidade*:
Estado*:
C.N.P.J.*: (não utilize pontuação)
Telefone*:
Fax:
Home Page:
   
Responsável pelo cadastro  
Nome*:
E-mail*:
Comentários: