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

[Julian]

Hi

The situation get stranger, the server Ip address is correct, I used in my
other programs but I have moved the whole part to a file called testme.asp
like this:
<%@ LANGUAGE="VBSCR IPT" %>
<%
UserID = Session("User_I D")
If UserID <>"" Then
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 =" & 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

%>

Now after login, if I run my program to look at session variables:
The Session.Content s Collection
Variable: 'State_Province ' =
Variable: 'Zipcode_Postal _Code' =
Variable: 'Phone' =
Variable: 'User_ID' = 1

now if I run the testme.asp, I get the following error message

Microsoft VBScript runtime error '800a01a8'

Object required: 'SQL'

/testme.asp, line 10 (this is the line with select statement, As I
mentioned before I use the same code to set the online field to true or 1)

"Ray at <%=sLocation% > [MVP]" <myfirstname at lane34 dot com> wrote in
message news:%2******** **********@TK2M SFTNGP09.phx.gb l...

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"

[Ray at]

Shouldn't SQL actually be CmdTrackUser? Nowhere did you define SQL.

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

Hi

The situation get stranger, the server Ip address is correct, I used in my
other programs but I have moved the whole part to a file called testme.asp
like this:
<%@ LANGUAGE="VBSCR IPT" %>
<%
UserID = Session("User_I D")
If UserID <>"" Then
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 =" & 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

%>

Now after login, if I run my program to look at session variables:
The Session.Content s Collection
Variable: 'State_Province ' =
Variable: 'Zipcode_Postal _Code' =
Variable: 'Phone' =
Variable: 'User_ID' = 1

now if I run the testme.asp, I get the following error message

Microsoft VBScript runtime error '800a01a8'

Object required: 'SQL'

/testme.asp, line 10 (this is the line with select statement, As I
mentioned before I use the same code to set the online field to true or 1)

"Ray at <%=sLocation% > [MVP]" <myfirstname at lane34 dot com> wrote in
message news:%2******** **********@TK2M SFTNGP09.phx.gb l...

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"