<% Set objConn = Server.CreateObject("ADODB.Connection") Set objRs = Server.CreateObject("ADODB.Recordset") objConn.Open strConn objRs.Open "SELECT IDNews, NewsHeadline, Newscusto, Newscusto2, Newscusto_outros FROM News WHERE IDNews = " & Request.QueryString("IDNews") , objConn, 0, 1 %>
<% sYouEmail="cursos@ahkpoa.com.br" ErrorColor="red" Function ValidateField(sFieldvalue, sFieldtype) ValidField = true Select Case LCase(sFieldtype) Case "name" If Len(sFieldvalue) = 0 Then ValidField = False Case "empresa" If Len(sFieldvalue) = 0 Then ValidField = False Case "endereco" If Len(sFieldvalue) = 0 Then ValidField = False Case "cidade" If Len(sFieldvalue) = 0 Then ValidField = False Case "estado" If Len(sFieldvalue) = 0 Then ValidField = False Case "cep" If Len(sFieldvalue) = 0 Then ValidField = False Case "fone" If Len(sFieldvalue) = 0 Then ValidField = False Case "cnpj" If Len(sFieldvalue) = 0 Then ValidField = False Case "profissao" If Len(sFieldvalue) = 0 Then ValidField = False Case "email" If Len(sFieldvalue) < 5 Then ValidField = False Else If InStr(1, sFieldvalue, "@", 1) < 2 Then ValidField = False Else If InStr(1, sFieldvalue, ".", 1) < 4 Then ValidField = False End If End If End If Case "message" If Len(sFieldvalue) = 0 Then ValidField = False Case "else" ValidField = False End Select ValidateField = ValidField End Function Sub ShowForm %>
" method="post">

Ficha de Inscrição
 <% = objRs("NewsHeadline")%> " >

 
Empresa : <% If dictFields(LCase("empresa")) Then Response.Write "
Campo Obrigatório" Else Response.Write " " End If %>
" SIZE="55" >
 
Nome do Participante : <% If dictFields(LCase("name")) Then Response.Write "
Campo Obrigatório" Else Response.Write " " End If %>
" SIZE="55" >
 
Endereço : <% If dictFields(LCase("endereco")) Then Response.Write "
Campo Obrigatório" Else Response.Write " " End If %>
" SIZE="55" >
 
Cidade : <% If dictFields(LCase("cidade")) Then Response.Write "
Campo Obrigatório" Else Response.Write " " End If %>		 Estado : <% If dictFields(LCase("estado")) Then Response.Write "
Campo Obrigatório" Else Response.Write " " End If %>
" SIZE="20" > " size="20" >
 
CEP : <% If dictFields(LCase("cep")) Then Response.Write "
Campo Obrigatório" Else Response.Write " " End If %>		 Telefone : <% If dictFields(LCase("fone")) Then Response.Write "
Campo Obrigatório" Else Response.Write " " End If %>
" size="20" > " size="20" >
 
Fax : Celular :
" size="20" > " size="20" >
 
E-mail do Participante: <% If dictFields(LCase("email")) Then Response.Write "
Informe um e-mail válido" Else Response.Write " " End If %>
" SIZE="55" >
 
Profissão/Cargo : <% If dictFields(LCase("profissao")) Then Response.Write "
Campo Obrigatório" Else Response.Write " " End If %>
" SIZE="55" >
 
CNPJ/CPF: <% If dictFields(LCase("cnpj")) Then Response.Write "
Campo Obrigatório" Else Response.Write " " End If %>
" SIZE="55" >
 
Inscrição Estadual :
" SIZE="55" >
 
Associado AHK Não Associado
 

Investimento:

<% If Not objRs("Newscusto") = "" And Not objRs("Newscusto") = "" Then %>
Associados: R$ <% = objRs("Newscusto") %> <% End If %> <% If Not objRs("Newscusto_outros") = "" And Not objRs("Newscusto_outros") = "" Then %>
Custo:R$ <% = objRs("Newscusto_outros") %> <% End If %> <% If Not objRs("Newscusto2") = "" And Not objRs("Newscusto2") = "" Then %>
Não Associados: R$ <% = objRs("Newscusto2") %> <% End If %>
 

Pagamento:

Entraremos em contato para a validação da forma de pagamento.
 

Caso o responsável pelo pagamento não seja o inscrito, favor preencher os dados abaixo:
  Nome:
  " SIZE="55" >
  E-mail:
  " SIZE="55" >
  Telefone:
  " SIZE="55" >
 

<% End Sub Sub Send sDestinatario = "cursos@ahkpoa.com.br" sRemetente = "www.ahkpoa.com.br" 'O endereço de e-mail deve ser uma conta válida do seu próprio domínio. sResponder = Request.Form("email") sAssunto = "Ficha de Inscricao - " & Request.Form("curso") sMensagem = "" sMensagem = sMensagem &"" sMensagem = sMensagem & "" sMensagem = sMensagem & "" sMensagem = sMensagem & "" sMensagem = sMensagem & "" sMensagem = sMensagem & "" sMensagem = sMensagem & "Ficha de incrição enviada pelo site " & "

" sMensagem = sMensagem & "" sMensagem = sMensagem & "Curso: " & Request.Form("curso") & "

" sMensagem = sMensagem & "Empresa: " & Request.Form("empresa") & "

" sMensagem = sMensagem & "Nome do participante: " & Request.Form("name") & "

" sMensagem = sMensagem & "Endereço: " & Request.Form("endereco") & "

" sMensagem = sMensagem & "Cidade: " & Request.Form("cidade") & "

" sMensagem = sMensagem & "Estado: " & Request.Form("estado") & "

" sMensagem = sMensagem & "CEP: " & Request.Form("cep") & "

" sMensagem = sMensagem & "Telefone: " & Request.Form("fone") & "

" sMensagem = sMensagem & "Fax: " & Request.Form("fax") & "

" sMensagem = sMensagem & "Celular: " & Request.Form("celular") & "

" sMensagem = sMensagem & "Email: " & Request.Form("email") & "

" sMensagem = sMensagem & "Profissão/Cargo: " & Request.Form("profissao") & "

" sMensagem = sMensagem & "CNPJ/CPF: " & Request.Form("cnpj") & "

" sMensagem = sMensagem & "Inscrição Estadual: " & Request.Form("ie") & "

" sMensagem = sMensagem & "Associado AHK: " & Request.Form("forma") & "

" 'sMensagem = sMensagem & "Forma de Pagamento: " & Request.Form("paga") & "

" 'sMensagem = sMensagem & "Em caso de Boleto: " & Request.Form("vence") & "

" sMensagem = sMensagem & "Responsavel: " & "
Nome: " & Request.Form("name_bol") & "
E-mail: " & Request.Form("mail_bol") & "
Telefone: " & Request.Form("fone_bol") & "

" sMensagem = sMensagem & "" sMensagem = sMensagem & "" sMensagem = sMensagem & "" 'CRIA A INSTANCIA COM O OBJETO CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'CRIA A INSTANCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'PORTA DO CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Utilização de SSl objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USU?RIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ahk.portoalegre@gmail.com" 'SENHA DO USU?RIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "bolotomia" 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon 'NOME DO REMETENTE, E-MAIL DO REMETENTE objCDOSYSMail.From = "Câmara Brasil-Alemanha de Porto Alegre " 'NOME DO DESINATARIO, E-MAIL DO DESINATÁRIO objCDOSYSMail.To = sDestinatario 'objCDOSYSMail.cc = "Copia " 'objCDOSYSMail.bcc = "AHKPOA " objCDOSYSMail.ReplyTo = sResponder 'ASSUNTO DA MENSAGEM objCDOSYSMail.Subject = sAssunto 'CONTEÚDO DA MENSAGEM objCDOSYSMail.HTMLBody = sMensagem 'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody 'objCDOSYSMail.HtmlBody = " " 'ENVIA A MENSAGEM objCDOSYSMail.Send 'DESTR?I OS OBJETOS Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing End Sub Set dictFields = Server.CreateObject("Scripting.Dictionary") For Each Field in Request.Form If ValidateField(Request.Form(Field), Field) = False Then dictFields.Add LCase(Field), true End If Next If Request.Form.Count <> 0 And dictFields.Count = 0 Then %>

Sua ficha de inscrição foi enviada com sucesso.

Pagamento: Entraremos em contato telefônico no prazo de até uma semana antes do evento para combinar a forma de pagamento.

Inscrição no curso: <% = objRs("NewsHeadline")%>

Empresa: <%= Request.Form("empresa") %>

Nome do Participante: <%= Request.Form("name") %>

Endereço: <%= Request.Form("endereco") %>

Cidade: <%= Request.Form("cidade") %>

Estado: <%= Request.Form("estado") %>

CEP: <%= Request.Form("cep") %>

Telefone: <%= Request.Form("fone") %>

Fax: <%= Request.Form("fax") %>

Celular: <%= Request.Form("celular") %>

E-mail do Participante: <%= Request.Form("email") %>

Profissão/Cargo: <%= Request.Form("profissao") %>

CNPJ/CPF: <%= Request.Form("cnpj") %>

Associado AHK: <%= Request.Form("forma") %>
<% If Not objRs("Newscusto") = "" And Not objRs("Newscusto") = "" Then %>
Custo Associados: R$ <% = objRs("Newscusto") %> <% End If %> <% If Not objRs("Newscusto_outros") = "" And Not objRs("Newscusto_outros") = "" Then %>
Custo:R$ <% = objRs("Newscusto_outros") %> <% End If %> <% If Not objRs("Newscusto2") = "" And Not objRs("Newscusto2") = "" Then %>
Custo: R$ <% = objRs("Newscusto2") %> <% End If %>

Caso seja feito o cancelamento da participação sem o aviso prévio de 3 dias será cobrado 30% do valor da inscrição para ressarcimento de despesas já efetuadas. Após este prazo, somente serão aceitas substituições de participantes.

 

', null, 'width=485, height=460, dependent=yes, resizable=no, menubar=no, location=no, scrollbars=yes, status=no, titlebar=no, toolbar=no')"> clique aqui para imprimir


<% objRs.Close objConn.Close Set objRs = Nothing Set objConn = Nothing %> <% Call Send Else ShowForm End If %>