Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera estou com um problema.
fiz o seguinte código para que seja gravado no banco de dados informações todos os dias na mesma hora.
'Response.AddHeader "Refresh", "1"
hora = time()
response.Write(hora)
if hora = "20:00:00" then
valor = 100.00
data = "2013-09-03"
'' SQL insere a data atual e o valor
sql = "INSERT INTO fundodecaixa (data, valor) VALUES ('"&data&"', "&Valor&");"
set rs = conexao.execute (sql)
else
end if
Pois o sistema precisa estar aberto para que seja gravado e funcione
Tem alguma maneira para o sistema em asp executar esse if sem que o programa esteja aberto ?
Obrigado !
Isso, vou resumir:
Meu cliente trabalha de 8 da manha as 18 da tarde.
queria gravar o total do caixa todos os dias as 8 da noite automaticamente no banco de dados.
sendo que as 18 horas ninguém está usando o sistema e o pc está desligado
PS: o sistema fica hospedado no locaweb assim como o banco dedados
se for um servidor dedicado, faça isso pelo agendador de tarefas, caso contrario usa o Global.asa
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
' O aplicativo iniciou e foi definido a data de hoje à variável Application("Data" )
' A data de envio do email foi definida para 30 dias depois da data de hoje
Sub Application_OnStart
Application.Lock
Application("Data") = Date
Application("DataDeEnvio") = DateAdd("d", 30, Date)
Application.Unlock
End Sub
'Agora a sessao do usuario vai inicializar
' Vamos agora fazer uma verificação para saber se hoje é o dia da data de envio do email
Sub Session_OnStart
' Se a data de envio e a data de hoje conferir, o email será enviado ao webmaster
' Mas antes disso, a data de envio é modificada novamente para daqui a mais 30 dias.
if Application("DataDeEnvio") = Date then
Application.Lock
Application("Data") = Date
Application("DataDeEnvio") = DateAdd("d", 30, Date)
Application.UnLock
' Código para enviar o email ao webmaster.
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "webmaster@do.site.com.br"
objMail.From = "script@automatico.com"
objMail.Subject = "Email do mês!"
objMail.Body = "Email enviado para o webmaster."
objMail.Send
End if
End Sub
</SCRIPT>eu queria enviar direto pro bd
pelo que entendi ai envia pro email
Verifica se sua hospedagem tem CronJob.
só fazer um agendamento no server, um exemplo
eu estou com muita dificuldade para fazer isso, tentei o que flw mais só da erro.
vou relaxar a minha cabeça e amanha tento de novo.... hoje já fiz manualmente
vlww
"a faca e o queijo" esta na mão, só adaptar o código que enviei para sua necessidade.
qual erro é gerado ?
Olá amigo....
Desculpe mas não entendi esta parte "sem que o programa esteja aberto ?"