Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

zanelati2002

Rodar pagina automatico

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

pessoal meu problema é bem simples mais como meu site é somente em asp o negocio é o seguinte como faço para rodar um pagina mais somente uma vez por dia tipo quero rodar este script abaixo somente uma vez por dia tem alguma função para isto

 

<% 
Function ConverterData(ConData)
	ConData = Right("0"&Day(ConData),2) &"/"& Right("0"&Month(ConData),2) &"/"& Year(ConData)
	ConverterData = ConData
End Function
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("ers.mdb")
Set rs = Server.CreateObject("ADODB.Recordset") 
'SELECIONE Nome e a Data de Nascimento DA Tabela Usuarios ONDE o MES de Nascimento seja Igual ao MES 
'Atual e a DIA seja Igual ao DIA de Hoje, ORDENADOS por ANO de Nascimento
SQL = "SELECT nome, email, dob FROM users WHERE MONTH(dob)="
SQL = SQL & "MONTH(NOW()) AND DAY(dob)=DAY(NOW()) ORDER BY YEAR(dob)"
rs.Open SQL, Conexao,3,3
  If rs.EOF Then ' Se não encontrou registros escreva
	  Response.Write("<p align=center><b>Não há Aniversáriantes Para o Dia de Hoje.</B>")
  Else 'Se encontrou registros escreva
do while not rs.eof
   response.write("Nome: <b>"& rs("nome" )&" </b><br>Idade: <b>"  & DateDiff("yyyy",rs("dob"),Now) & "</b> anos <br>")
Set Mail = Server.CreateObject("JMail.SMTPMail")
corpo = ""
corpo = corpo & "<html>" & vbcrlf
corpo = corpo & "<head>" & vbcrlf
corpo = corpo & "<title>Feliz Aniversário</title>" & vbcrlf
corpo = corpo & "</head>" & vbcrlf

rs.movenext
loop
response.write(" Total: <b>" & rs.recordcount & "</b> Membros")


 End If

rs.Close
Set rs = Nothing
Conexao.Close
Set Conexao = Nothing
%>

é claro que este é somente parte do script, é porque tenho que entrar em uma pagina para enviar uma mensagem para os aniversariantes do dia então quero que a propria entrada no site faça isto mais somente uma vez por dia senão o cara faz receber 1000 email por dia e não quero

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

A idéia de executar scripts automáticos já foi discutida aqui no Fórum.

 

Dê uma pesquisada por Scheduler, agendar tarefas, ou algo tipo.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito