1 reply to this topic

[Andarilho_de_Mochila]

Olá pessoal do fórum, to com um B.O. daqueles, por favor, alguma boa alma pode me dar um Help??

O Problema (com "P" maiusculo, pelo meno pra mim) é o seguinte, estou fazendo uma aplicação que quando o usuário entra no sistema, é gravado em campo especifico de uma tabela informando q akele terminal está ativo, quando o usuário clica no botão de logoff é atualizado no BD que o terminal está inativo. Até aí td bem, o problema é quando dá o evento Session_OnEnd (ou seja, fica muito tempo inativo ou o usuário clica no botão fechar do navegador) aí eu tentei usar o evento session_OnEnd no Global.asa:

<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Session.Timeout = 1
Application.Lock
'carrega DB_PDV
arquivo = server.MapPath(".\banco_de_dados\GinPdv.mdb")
set AP_dbPdv = server.CreateObject("ADODB.Connection")
AP_dbPdv.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & arquivo & ";Uid=Admin;Pwd=;"
application("AP_dbPDV") = AP_dbPDV
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
AP_dbPDV = application("AP_dbPDV")
SQL = "update tb_pdv set ativo=true where id=" & session("Pdv_id")
AP_dbPdv.Execute (SQL)
Application.UnLock
End Sub</SCRIPT>

Quando eu uso esse método, aparece o erro:
"Object required: AP_dbPDV"

Se eu tento carregar o banco de dados na sub Session_OnEnd da erro ao carregar o banco de dados, POR FAVOR, alguém sabe uma maneria de salvar no bd algum dado(no meu caso apenas um misero "false") quando ocorrer o evento session_OnEnd????????????

Edição feita por: Andarilho_de_Mochila, 07/10/2003, 11:51.

[cybermix]

tenta refazer a conexao, quando for inserir, sem utilizar o aplication.

<script LANGUAGE="VBScript" RUNAT="Server"> 
Sub Application_OnStart
Application.Lock
'carrega DB_PDV
arquivo = server.MapPath(".\banco_de_dados\GinPdv.mdb")
set AP_dbPDV = server.CreateObject("ADODB.Connection")
AP_dbPdv.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & arquivo & ";Uid=Admin;Pwd=Morpheus;" 
Application.UnLock
End Sub

Sub Session_OnEnd 
set AP_dbPDV = server.CreateObject("ADODB.Connection")
AP_dbPdv.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & arquivo & ";Uid=Admin;Pwd=Morpheus;" 
SQL = "update tb_pdv set ativo=true where id=" & session("Pdv_id")
AP_dbPdv.Execute (SQL)
End Sub
</SCRIPT>