Gravar dados no bd

[vmenezes 0]

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 !

[xanburzum 169]

Olá amigo....

 

Desculpe mas não entendi esta parte "sem que o programa esteja aberto ?"

[vmenezes 0]

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

[Humberto Oliveira Pinto 8]

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>

fonte: http://www.superasp.com.br/paginas_exibir_detalhes.asp?dep=1,63&id=41

[vmenezes 0]

eu queria enviar direto pro bd
pelo que entendi ai envia pro email

[The Jhunior 0]

Verifica se sua hospedagem tem CronJob.

[xanburzum 169]

só fazer um agendamento no server, um exemplo

[vmenezes 0]

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

[Humberto Oliveira Pinto 8]

"a faca e o queijo" esta na mão, só adaptar o código que enviei para sua necessidade.

[xanburzum 169]

qual erro é gerado ?