Aniversariantes
#1
Posted 12/11/2004, 11:13
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.
http://www.speedydata.com.br
#2
Posted 12/11/2004, 12:51
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
Posted 12/11/2004, 13:58
Obrigado
http://www.speedydata.com.br
#4
Posted 12/11/2004, 23:43
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.
http://www.speedydata.com.br
#5
Posted 16/11/2004, 11:03
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
http://www.speedydata.com.br
#6
Posted 16/11/2004, 12:29
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???
* 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
Posted 16/11/2004, 12:31
#8
Posted 16/11/2004, 14:22
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?
http://www.speedydata.com.br
#9
Posted 16/11/2004, 14:46
posta o codigo pra gente ver...
flw
#10
Posted 16/11/2004, 14:48
#11
Posted 16/11/2004, 14:50
mas posta o codigo ai para vermos..
* 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
Posted 16/11/2004, 16:19
<!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>
http://www.speedydata.com.br
#13
Posted 16/11/2004, 16:26
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
#14
Posted 16/11/2004, 16:42
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
%>
http://www.speedydata.com.br
#15
Posted 17/11/2004, 06:56
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.
http://www.speedydata.com.br
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)