<% sYouEmail="patricia.souza@ahkpoa.com.br" ErrorColor="red" Function ValidateField(sFieldvalue, sFieldtype) ValidField = true Select Case LCase(sFieldtype) Case "nome" If Len(sFieldvalue) = 0 Then ValidField = False Case "fone" If Len(sFieldvalue) = 0 Then ValidField = False Case "end" 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 "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 %> Informações com Shantala Luana Caloni: shantala@ahkpoa.com.br Se preferir, preencha os campos abaixo e envie sua mensagem.   Nome : <% If dictFields(LCase("nome")) Then Response.Write " Campo Obrigatório" Else Response.Write " " End If %>   E-mail : <% If dictFields(LCase("email")) Then Response.Write " Informe um e-mail válido" Else Response.Write " " End If %> " size="32" />   " size="34" /> Telefone : <% If dictFields(LCase("fone")) Then Response.Write " Campo Obrigatório" Else Response.Write " " End If %>   Endereço : <% If dictFields(LCase("end")) Then Response.Write " Campo Obrigatório" Else Response.Write " " End If %> " size="32" />   " size="34" /> 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="32" />   " size="34" /> Mensagem: <%= Request.Form("comentarios") %> Seus dados serão analisados e posteriormente nossa equipe entrará em contato. Obrigado. <% End Sub Sub Send sDestinatario = "cursos@ahkpoa.com.br" sRemetente = "www.ahkpoa.com.br" 'O endereo de e-mail deve ser uma conta vlida do seu prprio domnio. sResponder = Request.Form("email") sAssunto = "Contato - Site" sMensagem = "" sMensagem = sMensagem &"" sMensagem = sMensagem & "" sMensagem = sMensagem & "" sMensagem = sMensagem & "" sMensagem = sMensagem & "" sMensagem = sMensagem & "" sMensagem = sMensagem & "Formulario - Cursos " & " " sMensagem = sMensagem & "" sMensagem = sMensagem & "Nome: " & Request.Form("nome") & " " sMensagem = sMensagem & "E-mail: " & Request.Form("email") & " " sMensagem = sMensagem & "Telefone: " & Request.Form("fone") & " " sMensagem = sMensagem & "Endereço: " & Request.Form("end") & " " sMensagem = sMensagem & "Cidade: " & Request.Form("cidade") & " " sMensagem = sMensagem & "Estado: " & Request.Form("estado") & " " sMensagem = sMensagem & "Comentários: " & Request.Form("comentarios") & " " 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 %>

<%= Request.Form("nome") %>, Sua mensagem foi enviada com sucesso. Retornaremos o mais breve possível. <% Call Send Else ShowForm End If %>

Veja os cursos que estão com inscrições abertas neste período: