Jump to content


Photo

Problemão Com Global.asa - Session_onend


  • Faça o login para participar
1 reply to this topic

#1 Andarilho_de_Mochila

Andarilho_de_Mochila

    Novato no fórum

  • Usuários
  • 15 posts
  • Sexo:Não informado

Posted 06/10/2003, 09:13

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

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.

Falow ae! Um abraço!
Carlos
www.akitemsurf.kit.net

#2 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 06/10/2003, 10:06

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>

www.andrewsmedina.com.br




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq