<% Response.Buffer = "true" %> Câmara Brasil Alemanha - Porto Alegre
  Eventos
<% sYouEmail="shantala@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 "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="34" /> " size="34" />
 
Mensagem:

Os campos assinalados com * são de preenchimento obrigatório.
Seus dados serão analisados e posteriormente nossa equipe entrará em contato. Obrigado.



<% End Sub Sub Send sDestinatario = "shantala@ahkpoa.com.br" 'shantala@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 - Eventos " & "

" sMensagem = sMensagem & "" sMensagem = sMensagem & "Nome: " & Request.Form("nome") & "

" sMensagem = sMensagem & "E-mail: " & Request.Form("email") & "

" 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 %>