Fale conosco
<%else%> <%end if%>
%@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
%>