Hello Friends,
I need some here pl. Below is my global.asa file
which keeps track of no of active visitors and
routine logging to a .txt file.

I need to call ONLY active visitors with their ip's
and date and time, thro a diff .asp file eg ip.asp

Pl help, i need it for my website.
Thanks

James
Email: [email protected]
.........................
Global.asa file content.


<SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER>
on error resume next
dim date_stamp
date_stamp=Now()
dim fs,f
dim tst
tst=server.mappath("/testread.txt")
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set f=fs.OpenTextFile(Server.MapPath("/testread.txt"),8,true)
f.WriteLine("Vistor visted u r site" & chr(32)& request.servervariables("REMOTE_ADDR") & chr(32) & "ON" & chr(32) & date_stamp)
f.Close
set f=Nothing
set fs=Nothing
'Response.Write "Cool!!"

Sub Application_OnStart
Application("Active")=0
End Sub

Sub Application_OnEnd
'no code is needed here
End Sub

Sub Session_OnStart
Session.Timeout=5
Session("Start")=Now
Application.Lock
Application("Active")=Application("Active")+1
'this adds 1 to the number of active users when a new user hits
Application.unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("Active")=Application("Active")-1
'this subtracts 1 from the number of active users when a new user leaves
Application.unlock
End Sub

</SCRIPT>

Robert James
MD (Internal Medicine)
Ph:919814118442
Email:
[email protected]

You need to have all of your code in a subroutine when using Global.asa. Try using the following code:

Firstly I have moved the code at the top of your code listing that was not in a subroutine into the Session_OnStart subroutine. Also you declare a variable tst and set it to a mapped path, however you do not use it in your code. Instead of having:

You can use:

Instead of using character 32's (Chr(32) - space) you can just insert the spaces into your strings. This line:

    Is a lot easier to read than this line:

    I hope I have made sense and been able to help.

Regards
Owain Williams

Hello N Thanks Williams
I tried ur code, it showed error line 15
...........................
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/desk/global.asa, line 15, column 28
Set f = fs.OpenTextFile(tst),8, True)
..................................

could u pl make a global.asa file and email me? It would be a
lot easier.
I want to be able to see the current active visitors on my
iis server along with their ip and date n time they visited.
Need the file badly sir... if u could email it to me,
shall be grateful.
Regards



Robert James
MD (Internal Medicine)
Ph:919814118442
Email:
[email protected]

one opening ( and two closing ) so its obviously just a typo. Change it to
Set f = fs.OpenTextFile(tst,8, True)

Now now. Give him a break. He is a brave MD who is writing code.

But then again, if he is a surgeon, he should grasp the concept of one opening, one closing :D

Thanks Rice :)
I am a Physician, n not a surgeon. :)
I still could not get help on how to write a code in
global.asa , so that i should be able to see no of total
visitors at my iis server at one particular time,
along with ip and date n time displayed.
.......................................
Shall be great if some one can help me with this.
.......................................

Robert James
MD (Internal Medicine)
Ph:919814118442
Email:
[email protected]

Hi Robert,

At the moment you have some code to increment and decrement an application variable. This variable stores the total number of active users (ie, it's a counter). This works because when a user's session starts, or ends, events are fired (session_OnStart, and session_OnEnd), and you can have some code in your global.asa that runs when those events are fired.

However, if you want to store IP addresses, you need to store a list someplace. This could be in a database, or in some kind of hashtable or array that you store in the server's memory.

Again, you need to have code that runs during Session_OnStart and Session_OnEnd to add/delete the appropriate records from your list.

Cheers
Ken

Microsoft MVP - Windows Server (IIS)
www.adOpenStatic.com