Olá... tenho um Bd em que as pessoas se cadastram e colocam a data de aniversário. Gostaria de saber onde arrumo um código que faria o seguinte:
Leria o Bd e procurava os aniversariantes do dia e faria uma seleção mostrando eles... dessa maneira eu saberia para quem estaria mandadno o e-mail de feliz aniversário.
Ou então algum scrpt que fizesse isso automaticamente, tipo envia email para os aniversariantes do dia.
Desde já agradeço.
Aniversariantes
Started By exercito, 12/11/2004, 11:13
48 replies to this topic
#1
exercito
-
- Usuários
-
- 57 posts
Turista
- Sexo:Não informado
#2
Worm
-
- Ex-Admins
-
- 1343 posts
Veterano
- Sexo:Masculino
- Localidade:São Paulo - SP
- Interesses:Obter o maximo conhecimento.
Posted 12/11/2004, 12:51
Cara não testei mas acho que isso por dar certo.
data = date()
sql = "select data_niver from tavela where data_niver =" & data
rs.open sql,conn
if not rs.eof then
ENVIA E-MAIL
else
response.write("não há aniversáriantes hj.")
end fi
mas isso vai depender do formato da data que vc tem no banco com a que vc está pegando. aqui eu usei a a função date() se estiver em um servidor brasileiro ele irá pegar a data do nosso formato se não for vc terá que mudar.
VAlew.
data = date()
sql = "select data_niver from tavela where data_niver =" & data
rs.open sql,conn
if not rs.eof then
ENVIA E-MAIL
else
response.write("não há aniversáriantes hj.")
end fi
mas isso vai depender do formato da data que vc tem no banco com a que vc está pegando. aqui eu usei a a função date() se estiver em um servidor brasileiro ele irá pegar a data do nosso formato se não for vc terá que mudar.
VAlew.
#3
exercito
-
- Usuários
-
- 57 posts
Turista
- Sexo:Não informado
Posted 12/11/2004, 13:58
Agradeço muito vou tentar e darei resposta se deu certo ou não.!
Obrigado
Obrigado
Eu hospedo meus sites na SpeedyData
http://www.speedydata.com.br
http://www.speedydata.com.br
#4
exercito
-
- Usuários
-
- 57 posts
Turista
- Sexo:Não informado
Posted 12/11/2004, 23:43
Não consegui... acho que fiz errado... será que já não tem um código pronto?
Olha ...o BD já tenho... gostaria apenas de que no dia, fosse selecionado os aniversariantes e eu pudesse colocar a msg e manadar pra eles... nem precisa ser nada automático...
Me ajudem, aguado.
Olha ...o BD já tenho... gostaria apenas de que no dia, fosse selecionado os aniversariantes e eu pudesse colocar a msg e manadar pra eles... nem precisa ser nada automático...
Me ajudem, aguado.
Eu hospedo meus sites na SpeedyData
http://www.speedydata.com.br
http://www.speedydata.com.br
#5
exercito
-
- Usuários
-
- 57 posts
Turista
- Sexo:Não informado
Posted 16/11/2004, 11:03
Boa tarde pessoal, após esse longo feriadão, estamos de volta.
Alguém poderia me dar algumas dicas de como montar um script em asp pu VBS que mandasse automaticamente um e-mail para aniversariantes do dia.
Desde já agradeço a ajuda.
Aguardo
Alguém poderia me dar algumas dicas de como montar um script em asp pu VBS que mandasse automaticamente um e-mail para aniversariantes do dia.
Desde já agradeço a ajuda.
Aguardo
Eu hospedo meus sites na SpeedyData
http://www.speedydata.com.br
http://www.speedydata.com.br
#6
Luis Otávio
-
- Usuários
-
- 3113 posts
Super Veterano
- Sexo:Masculino
- Localidade:Porto Alegre
-
Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.
- Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.
- Otimização de Desempenho aplicados a performance de banco de dados Mysql.
- Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.
- Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.
- Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.
Posted 16/11/2004, 12:29
que erro deu no scrit do worm...???
num tem como rodar automaticamente... todo dia vc vai ter que atualizar a pagina de controle de usuarios, para ver se naquele dia tem alguem de aniversario
mas a logica é simples... basta vc ver se no campo aniversario do DB tem alguma data = a data de hoje... se tiver manda o e-mail se num tiver, num manda...
entendes???
num tem como rodar automaticamente... todo dia vc vai ter que atualizar a pagina de controle de usuarios, para ver se naquele dia tem alguem de aniversario
mas a logica é simples... basta vc ver se no campo aniversario do DB tem alguma data = a data de hoje... se tiver manda o e-mail se num tiver, num manda...
entendes???
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#7
Worm
-
- Ex-Admins
-
- 1343 posts
Veterano
- Sexo:Masculino
- Localidade:São Paulo - SP
- Interesses:Obter o maximo conhecimento.
Posted 16/11/2004, 12:31
Bom cara eu tinha dito que não tinha testado mas a lógica até que pode dar certo, mostra o erro, assim a gente pode dar uma olhada e ver se da certo.
#8
exercito
-
- Usuários
-
- 57 posts
Turista
- Sexo:Não informado
Posted 16/11/2004, 14:22
isso que é estranho ... usei o script... só que fica tudo em branco... não dá msg de erro nem mostra nada... não consigo encontrar o erro...
Outra coisa... consegui um script VBS.. configurei...só que onde coloco ele... na raiz? Tõ tentando de tudo quanto é jeito...
Preciso dar uma solução... é simples, mas não sou programador...isso é fyoda! rs..
Podem me ajudar?
Outra coisa... consegui um script VBS.. configurei...só que onde coloco ele... na raiz? Tõ tentando de tudo quanto é jeito...
Preciso dar uma solução... é simples, mas não sou programador...isso é fyoda! rs..
Podem me ajudar?
Eu hospedo meus sites na SpeedyData
http://www.speedydata.com.br
http://www.speedydata.com.br
#9
DVPL
-
- Usuários
-
- 59 posts
Turista
- Sexo:Não informado
- Localidade:Belo Horizonte
- Interesses:TI, Design, Programation Rock.
Posted 16/11/2004, 14:46
exercito,
posta o codigo pra gente ver...
flw
posta o codigo pra gente ver...
flw
www.interacto.com.br
#10
cybermix
-
- Ex-Admins
-
- 3586 posts
andrewsmedina.com.br
- Sexo:Não informado
- Localidade:Não sou desse planeta não!!!!
- Interesses:python, fireworks, linux, php, flash...
Posted 16/11/2004, 14:48
poderia postar como voce usou o codigo que o worm passou, para que possamos te ajudar?
www.andrewsmedina.com.br
#11
Luis Otávio
-
- Usuários
-
- 3113 posts
Super Veterano
- Sexo:Masculino
- Localidade:Porto Alegre
-
Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.
- Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.
- Otimização de Desempenho aplicados a performance de banco de dados Mysql.
- Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.
- Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.
- Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.
Posted 16/11/2004, 14:50
vc rodou o codigo hj? e hj tinha aniversariantes no DB?
mas posta o codigo ai para vermos..
mas posta o codigo ai para vermos..
* Otávio Nogueira
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#12
exercito
-
- Usuários
-
- 57 posts
Turista
- Sexo:Não informado
Posted 16/11/2004, 16:19
segue o código:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim ConnString
data = date()
sql = "select cad_mes from tabela where cad_mes =" & data
rs.open sql,conn
if not rs.eof then
ENVIA E-MAIL
else
response.write("não há aniversáriantes hj.")
END IF
'Strings de conexão
Condicao = "NET"
Flag_BD = Condicao
IF Flag_BD = "NET" THEN
ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\xxx\dados\xxx;"
END IF
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
%>
</body>
</html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim ConnString
data = date()
sql = "select cad_mes from tabela where cad_mes =" & data
rs.open sql,conn
if not rs.eof then
ENVIA E-MAIL
else
response.write("não há aniversáriantes hj.")
END IF
'Strings de conexão
Condicao = "NET"
Flag_BD = Condicao
IF Flag_BD = "NET" THEN
ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\xxx\dados\xxx;"
END IF
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
%>
</body>
</html>
Eu hospedo meus sites na SpeedyData
http://www.speedydata.com.br
http://www.speedydata.com.br
#13
cybermix
-
- Ex-Admins
-
- 3586 posts
andrewsmedina.com.br
- Sexo:Não informado
- Localidade:Não sou desse planeta não!!!!
- Interesses:python, fireworks, linux, php, flash...
Posted 16/11/2004, 16:26
ha varios erros
um deles é que a conexao esta no final do codigo
e o outro é que em vez de if not.efo, use while para que envie email para todos aniversariantes do dia
outro erro é que no lugar de ENVIA EMAIL, voce tem que por a rotina de envio de email
um deles é que a conexao esta no final do codigo
e o outro é que em vez de if not.efo, use while para que envie email para todos aniversariantes do dia
outro erro é que no lugar de ENVIA EMAIL, voce tem que por a rotina de envio de email
www.andrewsmedina.com.br
#14
exercito
-
- Usuários
-
- 57 posts
Turista
- Sexo:Não informado
Posted 16/11/2004, 16:42
Mudei tudo e to usando esse que tb não deu... dá pra consertar ? Sai catando e deu nisso:
Poderiam consertar?
<%
Option Explicit
Public conexao
Public erro
Public data_ini
Public data_fim
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdText = &H1
Const StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\xxxx\dados\xxx.mdb"
Sub Trata_Erro(str_erro, str_descricao)
On Error Resume Next
Call SendEmail("xxxx@xxxx.com.br", "xxx@xx.com.br", "Erro no Script", str_erro & "<BR>" & str_descricao)
End Sub
Sub SendEmail(sFromEmail, sToEmail, sSubject, sText)
on error goto 0
Dim objMail
Dim VarCorpo
VarCorpo = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=windows-1252'><meta name='GENERATOR' content='Microsoft FrontPage 4.0'><meta name='ProgId' content='FrontPage.Editor.Document'><title>Feliz aniversário</title></head><body><font face='Verdana, Arial, Helvetica, sans-serif' size=1 color=#333333 class='estilo'>"
VarCorpo = VarCorpo & sText
VarCorpo = VarCorpo & "<BR><hr>"
VarCorpo = VarCorpo & "Esta é uma mensagem automática / Não responda este email." & "<BR>"
VarCorpo = VarCorpo & "Enviado em " & Now() & "<BR></FOnt>"
VarCorpo = VarCorpo & "</body></html>"
Set objMail = CreateObject("Cdonts.NewMail")
objMail.From = Trim(LCase(CStr(sFromEmail)))
objMail.to = Trim(LCase(CStr(sToEmail)))
objMail.Subject = Trim(CStr(sSubject))
objMail.bodyformat = 0 'formato HTML
objMail.mailformat = 0 'formato HTML
objMail.Body = VarCorpo
objMail.Send
Set objMail ?????????'================================================= ===========================================
'Achou algum erro?'================================================= ===========================================
Option Explicit
Public conexao
Public erro
Public data_ini
Public data_fim
Const adOpenForwardOnly = 0
Const adLockRe= Nothing
End Sub
Sub Report_Aniversario()
Dim sql
Dim rs_email
Dim msg
On Error Resume Next
sql = ""
sql = sql & "SELECT "
sql = sql & "Cadastro.cad_dia, "
sql = sql & "Cadastro.cad_mes, "
sql = sql & "Cadastro.cad_ema, "
sql = sql & "Cadastro.cad_nom, "
sql = sql & "FROM Usuarios Cadastro "
sql = sql & "WHERE "
'sql = sql & "Month(a.data_nascimento) = Month(" & Date & ") AND Day(a.data_nascimento) = Day(" & Date & ")"
Set rs_email = CreateObject("ADODB.Recordset")
rs_email.Open sql, conexao, adOpenForwardOnly, adLockReadOnly, adCmdText
If Not rs_email.EOF Then
Do Until rs_email.EOF
msg = ""
msg = msg & "Prezado(a) Senhor(a): " & UCase(rs_email("cad_nom")) & "<BR><BR>"
msg = msg & "Felicidades.<BR><BR>"
Call SendEmail("webmasterl@xxxxx.com.br", rs_email("cad_ema"), "Feliz Aniversário !!!", msg)
rs_email.MoveNext
Loop
End If
rs_email.Close
Set rs_email = Nothing
If err.number <> 0 then
Call Trata_Erro("Ocorreu um erro no envio de email para os aniversariantes.", Err.Description)
End If
End Sub
On Error Resume Next
'Abrindo conexao com o banco de dados SQL Server
Set conexao = CreateObject("ADODB.Connection")
conexao.Open StrConn
If Err.Number <> 0 Then
erro = "Erro ao estabelecer conexão com o banco de dados.<BR><BR>Não foi possível enviar os emails para os aniversariantes."
Call Trata_Erro(erro, Err.Description)
End If
Call Report_Aniversario
conexao.close
Set conexao = Nothing
%>
Poderiam consertar?
<%
Option Explicit
Public conexao
Public erro
Public data_ini
Public data_fim
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdText = &H1
Const StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\xxxx\dados\xxx.mdb"
Sub Trata_Erro(str_erro, str_descricao)
On Error Resume Next
Call SendEmail("xxxx@xxxx.com.br", "xxx@xx.com.br", "Erro no Script", str_erro & "<BR>" & str_descricao)
End Sub
Sub SendEmail(sFromEmail, sToEmail, sSubject, sText)
on error goto 0
Dim objMail
Dim VarCorpo
VarCorpo = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=windows-1252'><meta name='GENERATOR' content='Microsoft FrontPage 4.0'><meta name='ProgId' content='FrontPage.Editor.Document'><title>Feliz aniversário</title></head><body><font face='Verdana, Arial, Helvetica, sans-serif' size=1 color=#333333 class='estilo'>"
VarCorpo = VarCorpo & sText
VarCorpo = VarCorpo & "<BR><hr>"
VarCorpo = VarCorpo & "Esta é uma mensagem automática / Não responda este email." & "<BR>"
VarCorpo = VarCorpo & "Enviado em " & Now() & "<BR></FOnt>"
VarCorpo = VarCorpo & "</body></html>"
Set objMail = CreateObject("Cdonts.NewMail")
objMail.From = Trim(LCase(CStr(sFromEmail)))
objMail.to = Trim(LCase(CStr(sToEmail)))
objMail.Subject = Trim(CStr(sSubject))
objMail.bodyformat = 0 'formato HTML
objMail.mailformat = 0 'formato HTML
objMail.Body = VarCorpo
objMail.Send
Set objMail ?????????'================================================= ===========================================
'Achou algum erro?'================================================= ===========================================
Option Explicit
Public conexao
Public erro
Public data_ini
Public data_fim
Const adOpenForwardOnly = 0
Const adLockRe= Nothing
End Sub
Sub Report_Aniversario()
Dim sql
Dim rs_email
Dim msg
On Error Resume Next
sql = ""
sql = sql & "SELECT "
sql = sql & "Cadastro.cad_dia, "
sql = sql & "Cadastro.cad_mes, "
sql = sql & "Cadastro.cad_ema, "
sql = sql & "Cadastro.cad_nom, "
sql = sql & "FROM Usuarios Cadastro "
sql = sql & "WHERE "
'sql = sql & "Month(a.data_nascimento) = Month(" & Date & ") AND Day(a.data_nascimento) = Day(" & Date & ")"
Set rs_email = CreateObject("ADODB.Recordset")
rs_email.Open sql, conexao, adOpenForwardOnly, adLockReadOnly, adCmdText
If Not rs_email.EOF Then
Do Until rs_email.EOF
msg = ""
msg = msg & "Prezado(a) Senhor(a): " & UCase(rs_email("cad_nom")) & "<BR><BR>"
msg = msg & "Felicidades.<BR><BR>"
Call SendEmail("webmasterl@xxxxx.com.br", rs_email("cad_ema"), "Feliz Aniversário !!!", msg)
rs_email.MoveNext
Loop
End If
rs_email.Close
Set rs_email = Nothing
If err.number <> 0 then
Call Trata_Erro("Ocorreu um erro no envio de email para os aniversariantes.", Err.Description)
End If
End Sub
On Error Resume Next
'Abrindo conexao com o banco de dados SQL Server
Set conexao = CreateObject("ADODB.Connection")
conexao.Open StrConn
If Err.Number <> 0 Then
erro = "Erro ao estabelecer conexão com o banco de dados.<BR><BR>Não foi possível enviar os emails para os aniversariantes."
Call Trata_Erro(erro, Err.Description)
End If
Call Report_Aniversario
conexao.close
Set conexao = Nothing
%>
Eu hospedo meus sites na SpeedyData
http://www.speedydata.com.br
http://www.speedydata.com.br
#15
exercito
-
- Usuários
-
- 57 posts
Turista
- Sexo:Não informado
Posted 17/11/2004, 06:56
Moçada, consegui... deu certo... não ficou automático, mas tá fumegando... isso que importa.
Gostaria de implementar no site uma página que mostrasse os aniversariantes do Mês ou do Dia... tanto faz.
Meu bd tem a tabela "cadastro" e os dados estão nessa tabela como "cad_dia", "cad_mes" e "cad_nom" onde:
"cad_dia" = de 1 a 31 (dias do mês)
"cad_mes" = de janeiro a dezembro (meses do ano) e;
"cad_nom" = nome completo doas aniversariantes.
tentei os posts sobre esse assunto, mas não tô conseguindo.. poderiam me mostrar essa rotina?
Muito obrigado, aguardo.
Gostaria de implementar no site uma página que mostrasse os aniversariantes do Mês ou do Dia... tanto faz.
Meu bd tem a tabela "cadastro" e os dados estão nessa tabela como "cad_dia", "cad_mes" e "cad_nom" onde:
"cad_dia" = de 1 a 31 (dias do mês)
"cad_mes" = de janeiro a dezembro (meses do ano) e;
"cad_nom" = nome completo doas aniversariantes.
tentei os posts sobre esse assunto, mas não tô conseguindo.. poderiam me mostrar essa rotina?
Muito obrigado, aguardo.
Eu hospedo meus sites na SpeedyData
http://www.speedydata.com.br
http://www.speedydata.com.br
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
