Ir para conteúdo
Fórum Script Brasil

rogcesar

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Sobre rogcesar

rogcesar's Achievements

0

Reputação

  1. Nome do Site: Portal Contábeis Link para o site: http://www.contabeis.com.br, http://www.forumcontabeis.com.br, http://www.portalcontabeis.com.br, http://www.contabeis.com Descrição do Site: Portal de Contabilidade destinado a profissionais e estudantes da área contábil. Ativo desde Julho de 1999. Histórico: Sites atualmente hospedados pela Locaweb-IDC plano Virtual. Nos horários de pico (15:00 às 17:00) o site fica muito instável, necessitando de mais memória do servidor. Invasão por SQL Injection me obrigou a desativar o site desde 09/05/2008, o código está sendo reavaliado para não perdermos mais dados. Parceria: Busco pessoa para ser parceira do site que tenha conhecimento em servidores Windows, Linguagens ASP e .NET e componentes. Precisamos buscar alternativas pois os servidores no Brasil são muito caros. Também para buscar patrocínios. O site é gratuito e atualmente não possui patrocinadores, mas existem empresas interessadas e relação de outros possíveis patrocinadores. Tenho também plano para arrecadar empresas anunciantes de todo o Brasil. Dados referentes ao mês de Abril/2008 obtidos pelo Relatório Urchin da Locaweb Visitas: 191.158 Visitantes Únicos: 40.001 Page Views: 3.347.981 Total de Usuários Cadastrados: 41.709 Espaço Publicitário: Sim, la lateral direita, banners verticais Linguagens de Programação: ASP e .NET Bancos de Dados: 2 Bases MS-SQL Server 2005 Espaço: 1 Gb para o Site e 1 Gb para as Bases SQL-Server Taxa Transferência mensal: 20 Gb Contato:rogcesar[at]gmail.com Obrigado pela atenção!
  2. rogcesar

    Transformar Em Variável

    eu coloco no global.asa um application application("string_conexao")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\caminhodobanco\banco_dados.mdb;" aae em cada página eu faço: Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open application("string_conexao") []s
  3. O componente que utilizo é o SMTPMail, ele ú muito interessante pois envia emails em massa e substitui os %%campo%% por RecordSet("campo") mas se não tiver instalado no seu provedor, entre em contato para ver os custos ou senão utilize outro componente, CDONTS, ASPMAil, etc. qualquer coisa envie uma PM
  4. Meu programa de envio de boletins semanais: <% server.scripttimeout = 100 var_num=50 assunto="Boletim Semanal" If request.QueryString("pag")="" then response.write "[ <a href='enviaratualizacao.asp?pag=1'>Iniciar</a> ]<br>" response.write "[ <form action='enviaratualizacao.asp' method='get'>Ir p/ página: <input type='text' name='pag' size='3'> <input type='submit' value='ok'></form> ]" else ConnString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application("bd") & "banco.mdb;" Set Conn = Server.CreateObject("ADODB.Connection") Conn.CursorLocation = 3 Conn.Open ConnString Set rstTemp = Server.CreateObject("ADODB.Recordset") rstTemp.CacheSize = var_num rstTemp.PageSize = var_num SQLString="select nome,email from tabela where tipodeenvio=1" rstTemp.Open SQLString, Conn pag=cInt(request.QueryString("pag")) rstTemp.AbsolutePage = pag response.write "<p align='right'><font color='#000000' size='1' face='Verdana,Arial,Helvetica'><b>" & rstTemp.RecordCount & " e-mails encontrados. Mostrando página " & pag & " de " & rstTemp.PageCount & "</b></font></p>" SQLSend="select nome, email, codigo from tabela where email='" & rstTemp("email") & "'" rstTemp.MoveNext if not rstTemp.Eof then for contador = 2 to var_num SQLSend=SQLSend & " or email='" & rstTemp("email") & "'" rstTemp.MoveNext If rstTemp.Eof then Exit For next end if Set obj_fso = Server.CreateObject("Scripting.FileSystemObject") Set objArquivo = obj_fso.OpenTextFile(Server.MapPath("boletim.html"),1) men objArquivo.ReadAll Set objArquivo = Nothing Set obj_fso = Nothing Set mailer = Server.CreateObject("SoftArtisans.SMTPMail") mailer.CharSet = 2 mailer.Subject = assunto mailer.HTMLText = men mailer.FromName = "Nome do Site" mailer.FromAddress = "email@site.com.br" Mailer.AddRecipient "%%nome%%", "%%email%%" mailer.RemoteHost = "smtp.nome_do_site.com.br" Set objRec = Conn.Execute(SQLSend) If mailer.MassMail (objRec) Then Response.Write "Emails Enviados" Else Response.Write "Falhou o envio." End If if rstTemp.PageCount<>1 then response.write "<p align='center'><font color='#000000' size='2' face='Verdana,Arial,Helvetica'><b>" response.write "[ <a href='enviaratualizacao.asp?pag='>Voltar ao Inicio</a> ]<br>" response.write " [ <a href='enviaratualizacao.asp?pag="&pag&"'>Repetir Página</a> ] " If pag <> rstTemp.PageCount then response.write " [ <a href='enviaratualizacao.asp?pag="&pag+1&"'>Proxima</a> ] " End If response.write "</b></p><script>window.setTimeout(""window.open('enviaratualizacao.asp?pag=" & pag+1 & "','_self','')"",5000);</script>" end if Set rsttemp = nothing Set RSQ = nothing Conn.Close Set Conn = nothing Set Mail = Nothing Set objArquivo = Nothing Set obj_fso = Nothing end if%> O script puxa o html do arquivo boletim.html e envia para a lista de emails de 50 em 50 se quiser é so mudar a variavel var_num Ele vai pulando sozinho de 5 em 5 segundos para os próximos 50 emails Espero que ajude alguém []s
×
×
  • Criar Novo...