REALIZAR CONTÁBIL Feeds

<% 'Atualiza o XML do RSS set rsNoticias = server.CreateObject("adodb.recordset") SQL = "Select top 21 * from tbl_noticias where aprovado = 'Sim' order by tipo DESC,codigo DESC" rsNoticias.open SQL, Conn if rsNoticias.bof and rsNoticias.eof then else arquivo = varCaminhoFisico & "\noticias\rss.xml" set objFSO = server.createobject("scripting.filesystemobject") if objFSO.FileExists(arquivo) = true then 'Verifica se existe o arquviso e se sim deleta arquivo antigo objFSO.DeleteFile arquivo,true end if set objSTREAM = objFSO.createtextfile(arquivo, true) objSTREAM.writeline "" objSTREAM.writeline "" objSTREAM.writeline "" objSTREAM.writeline "REALIZAR CONTÁBIL Feeds" objSTREAM.writeline "http://www.realizarcontabil.com.br" objSTREAM.writeline "Abertura e encerramento de empresas, certidões, nf-e, impostos, folha trabalhista, consultas de CNPJ e CPF e assessoria fiscal e contábil." objSTREAM.writeline "pt-br" objSTREAM.writeline "© Todos os direitos reservados." objSTREAM.writeline "" 'Insere a Imagem objSTREAM.writeline "REALIZAR CONTÁBIL Feeds" objSTREAM.writeline "http://www.realizarcontabil.com.br/imgs/default_logo.jpg" objSTREAM.writeline "http://www.realizarcontabil.com.br" objSTREAM.writeline "" do while rsNoticias.eof = false varCodigo = rsNoticias.fields("codigo") varNoticia = rsNoticias.fields("noticia") 'varDescricao = rsNoticias.fields("descricao") if trim(varDescricao) <> "" then varDescricao = replace(varDescricao,"
"," ") varDescricao = replace(varDescricao,"
"," ") varDescricao = replace(varDescricao,"","") varDescricao = replace(varDescricao,"","") varDescricao = replace(varDescricao,"","") varDescricao = replace(varDescricao,"","") varDescricao = replace(varDescricao," size=1","") varDescricao = replace(varDescricao," size=2","") varDescricao = replace(varDescricao,"","") varDescricao = replace(varDescricao,"","") varDescricao = replace(varDescricao,"","") varDescricao = replace(varDescricao,"","") end if varDataPublicacao = rsNoticias.fields("diasemana")&", "&day(rsNoticias.fields("dataexibicao"))&" "&rsNoticias.fields("nomemes")&" "&year(rsNoticias.fields("dataexibicao")) varHoraPublicacao = rsNoticias.fields("horaexibicao") varAutor = rsNoticias.fields("aprovadopor") varTipo = rsNoticias.fields("tipo") varURLNoticia = "http://"&varURL&"/leitorrss.asp?codigo="&varCodigo objSTREAM.writeline "" objSTREAM.writeline ""&varNoticia&"" objSTREAM.writeline ""&varURLNoticia&"" objSTREAM.writeline ""&varDescricao&"" objSTREAM.writeline ""&varDataPublicacao&" "&varHoraPublicacao&":00 -0300" objSTREAM.writeline ""&varAutor&"" objSTREAM.writeline ""&varTipo&"" objSTREAM.writeline "" rsNoticias.movenext loop objSTREAM.writeline "" objSTREAM.writeline "" objSTREAM.close Set objSTREAM = nothing Set objFSO = nothing end if rsNoticias.close set rsNoticias = nothing %> <%' Número do fone em frente ao site set rsContato = server.CreateObject("adodb.recordset") SQL = "Select * from tbl_Contato where menu = 'Fale Conosco' and aprovado = 'Sim' order by codigo DESC" rsContato.open SQL, Conn if rsContato.bof and rsContato.bof then else varFone = rsContato.fields("fone") end if rsContato.close set rsContato = nothing %> <%' Expediente de serviço em frente ao site set rsTextos = server.CreateObject("adodb.recordset") SQL = "Select * from tbl_textos where menu = 'Expediente' and aprovado = 'Sim' order by codigo DESC" rsTextos.open SQL, Conn if rsTextos.bof and rsTextos.bof then else varExpediente = rsTextos.fields("texto") end if rsTextos.close set rsTextos = nothing %> <%' Expediente de serviço em frente ao site set rsTextos = server.CreateObject("adodb.recordset") SQL = "Select * from tbl_textos where menu = 'Endereço' and aprovado = 'Sim' order by codigo DESC" rsTextos.open SQL, Conn if rsTextos.bof and rsTextos.bof then else varEndereco = rsTextos.fields("texto") end if rsTextos.close set rsTextos = nothing %> REALIZAR Contábil | Serviços Contábeis

<%=varEndereco%>

<%if menu = "" then varArquivo = "principal.asp" elseif menu = "logado0771" then 'Quando o cliente se loga no site varUsuario = ReplaceBanco(request.Form("txt_Usuario")) varSenha = ReplaceBanco(request.Form("txt_Senha")) set rsUsuarios = server.CreateObject("ADODB.Recordset") SQL = "Select * from tbl_usuariossimplescompletos where usuario = '"&varUsuario&"' and senha = '"&varSenha&"' and aprovado = 'Sim'" rsUsuarios.open SQL, Conn if rsUsuarios.bof and rsUsuarios.eof then session.Abandon() response.Redirect("default.asp?menu=erro") else session("admin_logado") = "OK" session("admin_codigo") = rsUsuarios.fields("codigo") session("admin_nome") = rsUsuarios.fields("nome") session("admin_email") = rsUsuarios.fields("email") session("admin_carteira") = rsUsuarios.fields("carteira") session("admin_tipo") = rsUsuarios.fields("tipo") 'Avisa o administrador do HOLITEP que o cliente logou set rsEmail = server.CreateObject("adodb.recordset") 'Envia a informação de usuário removido aos usuários do HOLITEP SQL = "Select * from tbl_usuarios where aprovado = 'Sim' and menualerta = 'Sim'" rsEmail.open SQL, Conn if rsEmail.bof and rsEmail.eof then else do while rsEmail.eof = false varPara = rsEmail.fields("email") if trim(varPara) = "" then varPara = "1587452369@" & replace(varURL,"www.","") end if set objCdonts = server.createobject("Cdonts.Newmail") objCdonts.From = "alerta@" & replace(varURL,"www.","") objCdonts.To = varPara objCdonts.Subject = "ALERTA DE CLIENTE LOGADO - ÁREA DO CLIENTE" objCdonts.Bodyformat = 0 'faz com que o cdonts envie conteudo html' objCdonts.MailFormat = 0 'faz com que o cdonts envie conteudo html' objCdonts.Body = "

ALERTA DE CLIENTE LOGADO - ÁREA DO CLIENTE

O cliente " & session("admin_nome") & ", com seu e-mail " & session("admin_email") & " e senha pessoal, acaba de entrar na Área do Cliente do site "&varURL&" em "& CompletaData(date) & " - " & CompletaHora(time) &".

-------------------------------------------------

ATENÇÃO: Esse e-mail foi enviado automaticamente pelo sistema HOLITEP ("&varURL&"/holitep)
por favor não responda esse e-mail.

Para cancelar o recebimento altere as configurações no meu HOLITEP | Usuários do HOLITEP.

" objCdonts.Send Set objCdonts = Nothing rsEmail.movenext loop end if rsEmail.close set rsEmail = nothing varArquivo = "admin.asp" end if rsUsuarios.close set rsUsuarios = nothing elseif menu = "pesquisa" then 'Quando o cliente vai efetuar a pesquisa de satisfação do serviço varArquivo = "pesquisadesatisfacao.asp" elseif menu = "logoff" then 'Quando o cliente sai corretamente de sua área interna session.Abandon() varArquivo = "logoff.asp" elseif menu = "erro" then 'Quando o cliente erra seu login no site varArquivo = "erro.asp" elseif menu = "cancelanews" then 'Quando o cliente cancela a newsletter set rsEmailsNewsletter = server.CreateObject("ADODB.Recordset") 'Remove da lista SQL = "update tbl_celulareseemails set aprovado = 'Cancelado',aprovadopor = '"&request.Servervariables("remote_addr")&"',datahoraaprovacao = '"&varDataAprovacao&"',dataexibicao = '"&CompletaData(date)&"',horaexibicao = '"&CompletaHora(time)&"' where codigo = "&replace(codigo,"1876","") rsEmailsNewsletter.open SQL, Conn varArquivo = "cancelanews.asp" set rsCelularesEmails = server.CreateObject("adodb.recordset") 'Coleta os dados do usuário SQL = "Select * from tbl_celulareseemails where codigo = "&replace(codigo,"1876","") rsCelularesEmails.open SQL, Conn if rsCelularesEmails.bof and rsCelularesEmails.eof then else varCodigo = rsCelularesEmails.fields("codigo") varNome = rsCelularesEmails.fields("nome") varEmail = rsCelularesEmails.fields("email") varCelular = rsCelularesEmails.fields("celular") end if rsCelularesEmails.close set rsCelularesEmails = nothing set rsEmail = server.CreateObject("adodb.recordset") 'Envia a informação de usuário removido aos usuários do HOLITEP SQL = "Select * from tbl_usuarios where aprovado = 'Sim' and menualerta = 'Sim'" rsEmail.open SQL, Conn if rsEmail.bof and rsEmail.eof then else do while rsEmail.eof = false varPara = rsEmail.fields("email") if trim(varPara) = "" then varPara = "1587452369@" & replace(varURL,"www.","") end if set objCdonts = server.createobject("Cdonts.Newmail") objCdonts.From = "alerta@" & replace(varURL,"www.","") objCdonts.To = varPara objCdonts.Subject = "ALERTA DE CANCELAMENTO DE ENVIO DE INFORMATIVOS - INFORMATIVOS VIA E-MAIL" objCdonts.Bodyformat = 0 'faz com que o cdonts envie conteudo html' objCdonts.MailFormat = 0 'faz com que o cdonts envie conteudo html' objCdonts.Body = "

ALERTA DE CANCELAMENTO DE ENVIO DE INFORMATIVOS

" & varNome & " removeu seu e-mail " & varEmail & " da lista de envio de informativos via e-mail em "& CompletaData(date) & " - " & CompletaHora(time) &". Assim o mesmo não pode ser mais incluso a menos que este solicite um novo pedido (confirmação positiva) pelo site.

-------------------------------------------------

ATENÇÃO: Esse e-mail foi enviado automaticamente pelo sistema HOLITEP ("&varURL&"/holitep)
por favor não responda esse e-mail.

Para cancelar o recebimento altere as configurações no meu HOLITEP | Usuários do HOLITEP.

" objCdonts.Send Set objCdonts = Nothing rsEmail.movenext loop end if rsEmail.close set rsEmail = nothing end if%>

<%=varExpediente%>