code doesn't work in global.asa

[Julian]

Hi

I have code in my login.asp which sets the online field in user database to
true or 1. I am trying to use the same code in global.asa to change back the
online field to 0 but it doesn't work. The code is very simple and it should
work, any idea why it doesn't?

Sub Session_OnEnd
If Session("User_I D")<>" " Then ' check if user has logged in
before.
ConnectionStrin g = "Driver={SQ L
Server};UID=eme nworldcom2;Pass word=BBBBBB;DAT ABASE=Mydatabas e;SERVER=111.11 1
..111.11\i1"
Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
Set CmdTrackUser = Server.CreateOb ject("ADODB.Rec ordset")
Conn2Gallery.Op en ConnectionStrin g
SQL.CommandText = "SELECT Users.* FROM Users WHERE (User_ID = " &
Session("User_I D") & ")"
SQL.CommandType = 1
Set SQL.ActiveConne ction = Conn2Gallery
CmdTrackUser.Op en SQL, , 1, 3
CmdTrackUser.Fi elds("Online") = 0
CmdTrackUser.Up date
CmdTrackUser.Cl ose
Set CmdTrackUser = Nothing
Conn2Gallery.Cl ose
Set Conn2Gallery = Nothing
END IF

[Curt_C [MVP]]

hard code the UserID once and try, to see if the Session() is what's failing

--
Curt Christianson
Owner/Lead Developer, DF-Software
www.Darkfalz.com
"Julian" <ep****@shaw.ca > wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .

Hi

I have code in my login.asp which sets the online field in user database to true or 1. I am trying to use the same code in global.asa to change back the online field to 0 but it doesn't work. The code is very simple and it should work, any idea why it doesn't?

Sub Session_OnEnd
If Session("User_I D")<>" " Then ' check if user has logged in
before.
ConnectionStrin g = "Driver={SQ L
Server};UID=eme nworldcom2;Pass word=BBBBBB;DAT ABASE=Mydatabas e;SERVER=111.11 1 .111.11\i1"
Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
Set CmdTrackUser = Server.CreateOb ject("ADODB.Rec ordset")
Conn2Gallery.Op en ConnectionStrin g
SQL.CommandText = "SELECT Users.* FROM Users WHERE (User_ID = " &
Session("User_I D") & ")"
SQL.CommandType = 1
Set SQL.ActiveConne ction = Conn2Gallery
CmdTrackUser.Op en SQL, , 1, 3
CmdTrackUser.Fi elds("Online") = 0
CmdTrackUser.Up date
CmdTrackUser.Cl ose
Set CmdTrackUser = Nothing
Conn2Gallery.Cl ose
Set Conn2Gallery = Nothing
END IF

[Ray at]

How do you know it's not working? Are you calling Session.Abandon to see if
it works? Try this code:

Sub Session_OnEnd()
CreateObject("W Script.Shell"). Run "cmd.exe /c net send
YOUR_COMPUTER_N AME I'm running", 0, False
UserID = Session("User_I D")
If UserID <> "" Then
ConnectionStrin g = "Driver={SQ L Server};UID=" & _
"emenworldcom2; Password=BBBBBB ;" & _
"DATABASE=Mydat abase;SERVER=11 1.111.111.11\i1 "
'''Get an oledb connection string at
'''www.connecti onstrings.com instead
'''of using this ODBC one.
SQL = "UPDATE [Users] SET [Online]=0 WHERE [UserID]=" & UserID
Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
Conn2Gallery.Op en ConnectionStrin g
Conn2Gallery.Ex ecute SQL, ,129
Conn2Gallery.Cl ose : Set Conn2Gallery = Nothing
End If

End Sub
Ray at home
"Julian" <ep****@shaw.ca > wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .

Hi

I have code in my login.asp which sets the online field in user database to true or 1. I am trying to use the same code in global.asa to change back the online field to 0 but it doesn't work. The code is very simple and it should work, any idea why it doesn't?

Sub Session_OnEnd
If Session("User_I D")<>" " Then ' check if user has logged in
before.
ConnectionStrin g = "Driver={SQ L
Server};UID=eme nworldcom2;Pass word=BBBBBB;DAT ABASE=Mydatabas e;SERVER=111.11 1 .111.11\i1"
Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
Set CmdTrackUser = Server.CreateOb ject("ADODB.Rec ordset")
Conn2Gallery.Op en ConnectionStrin g
SQL.CommandText = "SELECT Users.* FROM Users WHERE (User_ID = " &
Session("User_I D") & ")"
SQL.CommandType = 1
Set SQL.ActiveConne ction = Conn2Gallery
CmdTrackUser.Op en SQL, , 1, 3
CmdTrackUser.Fi elds("Online") = 0
CmdTrackUser.Up date
CmdTrackUser.Cl ose
Set CmdTrackUser = Nothing
Conn2Gallery.Cl ose
Set Conn2Gallery = Nothing
END IF

[PiGei]

I had the same problem.
Check and see if the folder give access to the IIS Process Account
(IWAM_yourmachi nename) to write into the db.

Paolo
"Julian" <ep****@shaw.ca > wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .

Hi

I have code in my login.asp which sets the online field in user database to true or 1. I am trying to use the same code in global.asa to change back the online field to 0 but it doesn't work. The code is very simple and it should work, any idea why it doesn't?

Sub Session_OnEnd
If Session("User_I D")<>" " Then ' check if user has logged in before.
ConnectionStrin g = "Driver={SQ L
Server};UID=eme nworldcom2;Pass word=BBBBBB;DAT ABASE=Mydatabas e;SERVER=111
..111 .111.11\i1"
Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
Set CmdTrackUser = Server.CreateOb ject("ADODB.Rec ordset")
Conn2Gallery.Op en ConnectionStrin g
SQL.CommandText = "SELECT Users.* FROM Users WHERE (User_ID = " &
Session("User_I D") & ")"
SQL.CommandType = 1
Set SQL.ActiveConne ction = Conn2Gallery
CmdTrackUser.Op en SQL, , 1, 3
CmdTrackUser.Fi elds("Online") = 0
CmdTrackUser.Up date
CmdTrackUser.Cl ose
Set CmdTrackUser = Nothing
Conn2Gallery.Cl ose
Set Conn2Gallery = Nothing
END IF

[Julian]

Hi

Thanks for the answers but I am still stucked. I am on shared hosting and
the folder has permission to write to database since my other programs in
this folder do it. I have hard coded the user_id to 1 (record 1) and then
logged in and logged off (session abond), checked the field online and it is
still set to 1. Changed the code according to ray

UserId=Sesssion ("User_Id")
If UserId<>"" Then
and also used variable UserId in select statement
logged , checked the session ("User_Id) and it was 1 & logged off, all
session variable were gone, checked the database, the online field was still
1.
"PiGei" <ja************ ***@hotmail.com > wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .

I had the same problem.
Check and see if the folder give access to the IIS Process Account
(IWAM_yourmachi nename) to write into the db.

Paolo
"Julian" <ep****@shaw.ca > wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .

Hi

I have code in my login.asp which sets the online field in user

database to

true or 1. I am trying to use the same code in global.asa to change

back the

online field to 0 but it doesn't work. The code is very simple and it

should

work, any idea why it doesn't?

Sub Session_OnEnd
If Session("User_I D")<>" " Then ' check if user has logged

in

before.
ConnectionStrin g = "Driver={SQ L

Server};UID=eme nworldcom2;Pass word=BBBBBB;DAT ABASE=Mydatabas e;SERVER=111
.111

.111.11\i1"
Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
Set CmdTrackUser = Server.CreateOb ject("ADODB.Rec ordset")
Conn2Gallery.Op en ConnectionStrin g
SQL.CommandText = "SELECT Users.* FROM Users WHERE (User_ID = " &
Session("User_I D") & ")"
SQL.CommandType = 1
Set SQL.ActiveConne ction = Conn2Gallery
CmdTrackUser.Op en SQL, , 1, 3
CmdTrackUser.Fi elds("Online") = 0
CmdTrackUser.Up date
CmdTrackUser.Cl ose
Set CmdTrackUser = Nothing
Conn2Gallery.Cl ose
Set Conn2Gallery = Nothing
END IF

[Ray at]

Do you have session_onstart code in this same global.asa file, and if so,
does that work okay? Why I'm asking is that I'm wondering if your
global.asa file is in the correct directory for how applications are defined
in IIS for your site.

Ray at home

"Julian" <ep****@shaw.ca > wrote in message
news:uO******** ******@TK2MSFTN GP11.phx.gbl...

Hi

Thanks for the answers but I am still stucked. I am on shared hosting and
the folder has permission to write to database since my other programs in
this folder do it. I have hard coded the user_id to 1 (record 1) and then
logged in and logged off (session abond), checked the field online and it is still set to 1. Changed the code according to ray

UserId=Sesssion ("User_Id")
If UserId<>"" Then
and also used variable UserId in select statement
logged , checked the session ("User_Id) and it was 1 & logged off, all
session variable were gone, checked the database, the online field was still 1.
"PiGei" <ja************ ***@hotmail.com > wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .

I had the same problem.
Check and see if the folder give access to the IIS Process Account
(IWAM_yourmachi nename) to write into the db.

Paolo
"Julian" <ep****@shaw.ca > wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .

Hi

I have code in my login.asp which sets the online field in user

database to

true or 1. I am trying to use the same code in global.asa to change

back the

online field to 0 but it doesn't work. The code is very simple and it

should

work, any idea why it doesn't?

Sub Session_OnEnd
If Session("User_I D")<>" " Then ' check if user has logged

in

before.
ConnectionStrin g = "Driver={SQ L

Server};UID=eme nworldcom2;Pass word=BBBBBB;DAT ABASE=Mydatabas e;SERVER=111
.111

.111.11\i1"
Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
Set CmdTrackUser = Server.CreateOb ject("ADODB.Rec ordset")
Conn2Gallery.Op en ConnectionStrin g
SQL.CommandText = "SELECT Users.* FROM Users WHERE (User_ID = " &
Session("User_I D") & ")"
SQL.CommandType = 1
Set SQL.ActiveConne ction = Conn2Gallery
CmdTrackUser.Op en SQL, , 1, 3
CmdTrackUser.Fi elds("Online") = 0
CmdTrackUser.Up date
CmdTrackUser.Cl ose
Set CmdTrackUser = Nothing
Conn2Gallery.Cl ose
Set Conn2Gallery = Nothing
END IF

[Julian]

Hi

I have both session_onstart and application_ons tart which declares a
variable for number of user and those work, even on session_onend, I minus
the variable with 1 and it works too.

"Ray at <%=sLocation% > [MVP]" <myfirstname at lane34 dot com> wrote in
message news:%2******** *******@TK2MSFT NGP11.phx.gbl.. .

Do you have session_onstart code in this same global.asa file, and if so,
does that work okay? Why I'm asking is that I'm wondering if your
global.asa file is in the correct directory for how applications are defined in IIS for your site.

Ray at home

"Julian" <ep****@shaw.ca > wrote in message
news:uO******** ******@TK2MSFTN GP11.phx.gbl...

Hi

Thanks for the answers but I am still stucked. I am on shared hosting and the folder has permission to write to database since my other programs in this folder do it. I have hard coded the user_id to 1 (record 1) and then logged in and logged off (session abond), checked the field online and

it is

still set to 1. Changed the code according to ray

UserId=Sesssion ("User_Id")
If UserId<>"" Then
and also used variable UserId in select statement
logged , checked the session ("User_Id) and it was 1 & logged off, all
session variable were gone, checked the database, the online field was

still

1.
"PiGei" <ja************ ***@hotmail.com > wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .

I had the same problem.
Check and see if the folder give access to the IIS Process Account
(IWAM_yourmachi nename) to write into the db.

Paolo
"Julian" <ep****@shaw.ca > wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .
> Hi
>
> I have code in my login.asp which sets the online field in user
database to
> true or 1. I am trying to use the same code in global.asa to change
back the
> online field to 0 but it doesn't work. The code is very simple and it should
> work, any idea why it doesn't?
>
> Sub Session_OnEnd
> If Session("User_I D")<>" " Then ' check if user has logged in
> before.
> ConnectionStrin g = "Driver={SQ L
>
Server};UID=eme nworldcom2;Pass word=BBBBBB;DAT ABASE=Mydatabas e;SERVER=111 .111
> .111.11\i1"
> Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
> Set CmdTrackUser = Server.CreateOb ject("ADODB.Rec ordset")
> Conn2Gallery.Op en ConnectionStrin g
> SQL.CommandText = "SELECT Users.* FROM Users WHERE (User_ID = " &
> Session("User_I D") & ")"
> SQL.CommandType = 1
> Set SQL.ActiveConne ction = Conn2Gallery
> CmdTrackUser.Op en SQL, , 1, 3
> CmdTrackUser.Fi elds("Online") = 0
> CmdTrackUser.Up date
> CmdTrackUser.Cl ose
> Set CmdTrackUser = Nothing
> Conn2Gallery.Cl ose
> Set Conn2Gallery = Nothing
> END IF
>
>

[Ray at]

Please post the contents of your global.asa. Maybe we'll see something that
could be causing thing.

Ray at hoem

"Julian" <ep****@shaw.ca > wrote in message
news:eG******** ******@TK2MSFTN GP12.phx.gbl...

Hi

I have both session_onstart and application_ons tart which declares a
variable for number of user and those work, even on session_onend, I minus
the variable with 1 and it works too.

"Ray at <%=sLocation% > [MVP]" <myfirstname at lane34 dot com> wrote in
message news:%2******** *******@TK2MSFT NGP11.phx.gbl.. .

Do you have session_onstart code in this same global.asa file, and if so,

does that work okay? Why I'm asking is that I'm wondering if your
global.asa file is in the correct directory for how applications are

defined

in IIS for your site.

Ray at home

"Julian" <ep****@shaw.ca > wrote in message
news:uO******** ******@TK2MSFTN GP11.phx.gbl...

Hi

Thanks for the answers but I am still stucked. I am on shared hosting

and the folder has permission to write to database since my other programs in this folder do it. I have hard coded the user_id to 1 (record 1) and then logged in and logged off (session abond), checked the field online and it

is

still set to 1. Changed the code according to ray

UserId=Sesssion ("User_Id")
If UserId<>"" Then
and also used variable UserId in select statement
logged , checked the session ("User_Id) and it was 1 & logged off, all
session variable were gone, checked the database, the online field was

still

1.
"PiGei" <ja************ ***@hotmail.com > wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .
> I had the same problem.
> Check and see if the folder give access to the IIS Process Account
> (IWAM_yourmachi nename) to write into the db.
>
> Paolo
>
>
> "Julian" <ep****@shaw.ca > wrote in message
> news:%2******** *******@tk2msft ngp13.phx.gbl.. .
> > Hi
> >
> > I have code in my login.asp which sets the online field in user
> database to
> > true or 1. I am trying to use the same code in global.asa to change > back the
> > online field to 0 but it doesn't work. The code is very simple and

it > should
> > work, any idea why it doesn't?
> >
> > Sub Session_OnEnd
> > If Session("User_I D")<>" " Then ' check if user has logged > in
> > before.
> > ConnectionStrin g = "Driver={SQ L
> >
> Server};UID=eme nworldcom2;Pass word=BBBBBB;DAT ABASE=Mydatabas e;SERVER=111 > .111
> > .111.11\i1"
> > Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
> > Set CmdTrackUser = Server.CreateOb ject("ADODB.Rec ordset")
> > Conn2Gallery.Op en ConnectionStrin g
> > SQL.CommandText = "SELECT Users.* FROM Users WHERE (User_ID = " &
> > Session("User_I D") & ")"
> > SQL.CommandType = 1
> > Set SQL.ActiveConne ction = Conn2Gallery
> > CmdTrackUser.Op en SQL, , 1, 3
> > CmdTrackUser.Fi elds("Online") = 0
> > CmdTrackUser.Up date
> > CmdTrackUser.Cl ose
> > Set CmdTrackUser = Nothing
> > Conn2Gallery.Cl ose
> > Set Conn2Gallery = Nothing
> > END IF
> >
> >
>
>

[Julian]

Here is the global.asa:

<!--#include file=chat/chatapi.asp-->
<script language=vbscri pt runat=server>
Sub Session_OnStart
Session.Timeout =15 'minutes
Application.Loc k
Application("Ac tiveUsers") = Application("Ac tiveUsers")+1
Application.Unl ock

End Sub

Sub Session_OnEnd
UserID = Session("User_I D")
If UserID <>"" Then
ConnectionStrin g = "Driver={SQ L
Server};UID=MEM E;Password=BBBB BB;DATABASE=Myd atabase;SERVER= 111.111.111.11\ i
1"
Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
Set CmdTrackUser = Server.CreateOb ject("ADODB.Rec ordset")
Conn2Gallery.Op en ConnectionStrin g
SQL.CommandText = "SELECT Users.* FROM Users WHERE (User_ID =" & UserID &
")"
SQL.CommandType = 1
Set SQL.ActiveConne ction = Conn2Gallery
CmdTrackUser.Op en SQL, , 1, 3
CmdTrackUser.Fi elds("Online") = 0
CmdTrackUser.Up date
CmdTrackUser.Cl ose
Set CmdTrackUser = Nothing
Conn2Gallery.Cl ose
Set Conn2Gallery = Nothing
END IF
call LogOffUser(Chat SessionUidGet() ,false)

Application.Loc k
Application("Ac tiveUsers") = Application("Ac tiveUsers")-1
Application.Unl ock
End Sub

Sub Application_OnS tart
application("si teDate") = date()
Application("sh s1sql_Connectio nString") = "Driver={SQ L
Server};UID=MEM E;Password=BBBB BB;DATABASE=Myd atabase;SERVER= 111.111.111.11\ i
1"
Application("sh s1sql_Connectio nTimeout") = 15
Application("sh s1sql_CommandTi meout") = 30
Application("sh s1sql_CursorLoc ation") = 3
Application("sh s1sql_RuntimeUs erName") = "MEME"
Application("sh s1sql_RuntimePa ssword") = "BBBBBB"

Application.Loc k
Application("Ac tiveUsers")=0
Application.Unl ock

End Sub

Sub Application_OnE nd
'not used for chat, but can be used for other things on your site
End Sub

</script>

"Ray at <%=sLocation% > [MVP]" <myfirstname at lane34 dot com> wrote in
message news:ue******** ******@tk2msftn gp13.phx.gbl...

Please post the contents of your global.asa. Maybe we'll see something that could be causing thing.

Ray at hoem

"Julian" <ep****@shaw.ca > wrote in message
news:eG******** ******@TK2MSFTN GP12.phx.gbl...

Hi

I have both session_onstart and application_ons tart which declares a
variable for number of user and those work, even on session_onend, I minus

the variable with 1 and it works too.

"Ray at <%=sLocation% > [MVP]" <myfirstname at lane34 dot com> wrote in
message news:%2******** *******@TK2MSFT NGP11.phx.gbl.. .

Do you have session_onstart code in this same global.asa file, and if so, does that work okay? Why I'm asking is that I'm wondering if your
global.asa file is in the correct directory for how applications are

defined

in IIS for your site.

Ray at home

"Julian" <ep****@shaw.ca > wrote in message
news:uO******** ******@TK2MSFTN GP11.phx.gbl...
> Hi
>
> Thanks for the answers but I am still stucked. I am on shared hosting and

> the folder has permission to write to database since my other

programs

in

> this folder do it. I have hard coded the user_id to 1 (record 1) and

then

> logged in and logged off (session abond), checked the field online

and it

is
> still set to 1. Changed the code according to ray
>
> UserId=Sesssion ("User_Id")
> If UserId<>"" Then
> and also used variable UserId in select statement
> logged , checked the session ("User_Id) and it was 1 & logged off,

all > session variable were gone, checked the database, the online field was still
> 1.
>
>
> "PiGei" <ja************ ***@hotmail.com > wrote in message
> news:%2******** *******@tk2msft ngp13.phx.gbl.. .
> > I had the same problem.
> > Check and see if the folder give access to the IIS Process Account
> > (IWAM_yourmachi nename) to write into the db.
> >
> > Paolo
> >
> >
> > "Julian" <ep****@shaw.ca > wrote in message
> > news:%2******** *******@tk2msft ngp13.phx.gbl.. .
> > > Hi
> > >
> > > I have code in my login.asp which sets the online field in user
> > database to
> > > true or 1. I am trying to use the same code in global.asa to

change > > back the
> > > online field to 0 but it doesn't work. The code is very simple and it

> > should
> > > work, any idea why it doesn't?
> > >
> > > Sub Session_OnEnd
> > > If Session("User_I D")<>" " Then ' check if user has

logged

> > in
> > > before.
> > > ConnectionStrin g = "Driver={SQ L
> > >
> >

Server};UID=eme nworldcom2;Pass word=BBBBBB;DAT ABASE=Mydatabas e;SERVER=111

> > .111
> > > .111.11\i1"
> > > Set Conn2Gallery = Server.CreateOb ject("ADODB.Con nection")
> > > Set CmdTrackUser = Server.CreateOb ject("ADODB.Rec ordset")
> > > Conn2Gallery.Op en ConnectionStrin g
> > > SQL.CommandText = "SELECT Users.* FROM Users WHERE (User_ID = "

& > > > Session("User_I D") & ")"
> > > SQL.CommandType = 1
> > > Set SQL.ActiveConne ction = Conn2Gallery
> > > CmdTrackUser.Op en SQL, , 1, 3
> > > CmdTrackUser.Fi elds("Online") = 0
> > > CmdTrackUser.Up date
> > > CmdTrackUser.Cl ose
> > > Set CmdTrackUser = Nothing
> > > Conn2Gallery.Cl ose
> > > Set Conn2Gallery = Nothing
> > > END IF
> > >
> > >
> >
> >
>
>

[Ray at]

What happens if you take out the "If Then" in your Session_OnEnd, so that
you're sure that the whole block of code isn't skipped?

Also, maybe this is just because of pasting or newsreader things, but your
SERVER value is 111.111.111.11\ i1. Does your real code have this \i stuff
in it?

Ray at home
"Julian" <ep****@shaw.ca > wrote in message
news:e1******** ******@TK2MSFTN GP09.phx.gbl...

Here is the global.asa:
Sub Session_OnEnd
UserID = Session("User_I D")
If UserID <>"" Then
ConnectionStrin g = "Driver={SQ L
Server};UID=MEM E;Password=BBBB BB;DATABASE=Myd atabase;SERVER= 111.111.111.11\ i 1"