<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% call paginaInicio pagina = "contato" %> <% if request("acao")="enviar" then associado = trim(request.Form("associado")) participante = trim(request.Form("participante")) participante2 = trim(request.Form("participante2")) cidade = trim(request.Form("cidade")) uf = trim(request.Form("uf")) codAssociado = trim(request.Form("codAssociado")) nomeUnidade2 = trim(request.Form("nomeUnidade2")) nome = trim(request.Form("nome")) ddd = trim(request.Form("ddd")) telefone = trim(request.Form("telefone")) tipoTelefone = trim(request.Form("tipoTelefone")) email = trim(request.Form("email")) sexo = trim(request.Form("sexo")) codCategoria = trim(request.Form("codCategoria")) codDepartamento = trim(request.Form("codDepartamento")) nomeUnidade3 = trim(request.Form("nomeUnidade3")) assunto = trim(request.Form("assunto")) mensagem = trim(request.Form("mensagem")) optIn = trim(request.Form("optIn")) nomeUnidade3 = 1 set novo = new Cadastro novo.associado = associado novo.codAssociado = codAssociado novo.nomeUnidade2 = nomeUnidade2 novo.nome = nome novo.ddd = ddd novo.telefone = telefone novo.tipoTelefone = tipoTelefone novo.email = email novo.sexo = sexo novo.codCategoria = codCategoria novo.codDepartamento = codDepartamento novo.nomeUnidade3 = nomeUnidade3 novo.assunto = assunto novo.mensagem = mensagem novo.optIn = optIn novo.participante = participante novo.participante2 = participante novo.cidade = cidade novo.uf = uf novo.atendimentoCadastrar sql = "select email from departamentos where codDepartamento = " & codDepartamento sql = TiraAcentoSelect(sql) sql = LimpaPalavrasSelect(sql) set rs = DbConn.Execute(sql) if not rs.eof then emailDepartamento = rs("email") if codDepartamento = "11" then teste = "

" teste = teste & "Cód. Atendimento: " & session("codCRM2") & "
" teste = teste & "Nome: " & nome & "
" teste = teste & "Participante ADD? " & participante & " " & participante2& "
"& "
" teste = teste & "Telefone: " & ddd & " - " & telefone & " - " & tipoTelefone & "
" teste = teste & "e-mail: " & email & "
" teste = teste & "Cidade: " & cidade & "
" teste = teste & "UF: " & uf & "
" teste = teste & "Assunto: " & assunto & "
" teste = teste & "Mensagem: " & mensagem & "
" else teste = "

" teste = teste & "Cód. Atendimento: " & session("codCRM2") & "
" teste = teste & "Nome: " & nome & "
" teste = teste & "Assunto: " & assunto & "
" teste = teste & "Acesse o Gestor de Contatos da ADD para responder a solicitação: www.add.org.br/admin
" end if if email <> "" then sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") Dim meuservidorsmtp Dim minhacontaautenticada Dim minhasenhaparaenvio Dim emailorigem Dim emaildestino meuservidorsmtp = "localhost" ' Informacoes so seu servidor SMTP emailorigem =email emaildestino = emailDepartamento ' e-mail que vai receber as mensagens do formulario cdoConfig.Fields.Item(sch & "sendusing") = 2 'cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.BodyPart.Charset = "iso-8859-1" cdoMessage.From = "gestorContatos@add.org.br" cdoMessage.To = emailDepartamento cdoMessage.Subject = "Contato através do site ADD - Gestor de Contatos" cdoMessage.HTMLBody = teste cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing end if end if %> ADD - Associação Desportiva para Deficientes Físicos changeHeader <%end if%>">

Fale conosco

Fale com a ADD

Participe dos Programas | Projetos | Voluntariado | Patrocínios.

Endereço

Rua das Pitombeiras, 296
Vl. Parque Jabaquara, São Paulo - SP - CEP 04321 160

Horário de funcionamento da Sede Adm.
Seg à sexta: 8:30 às 12h e das 13 ás 17:30
Sábado: das 08:00 às 12 hs

Telefone

11 5011 6133

<%if request("acao")= "enviar" then%> Agradecemos o envio de sua mensagem. Em breve, entraremos em contato.
<%else%>
?acao=enviar" method="POST" class="form">
Quero receber informativos sobre a ADD.
<%end if%>