Capturing User Session(IP Counter) info. not working well???

[AnnYH]

Hi, Everyone:

I have two problems:

1.Counter:
My counter doesn’t work properly. Some time it can count in, some times not.

Code in global.asa

Sub InCrementCounter()

Set fsc=Server.CreateObject("Scripting.FileSystemObject&quot
Set txt=fsc.OpenTextFile(Server.MapPath("AcsCounter.txt&quot,1)
Application("Counter&quot=txt.ReadLine
txt.close

Application("Counter&quot=Application("Counter&quot+1

Set txt=fsc.CreateTextFile(Server.MapPath("AcsCounter.txt&quot,1)

txt.Write(Application("Counter&quot)
txt.Close

End Sub

Sub Application_OnStart
On Error Resume Next

''//
Application.Lock

InCrementCounter

Application.Unlock

''//
End Sub

2.Capturing User Session IP Address: I used Request.ServerVariables("Romete_ADDR&quot, but I got nothing. No any IP or URL show up.

Code:
Sub Session_OnStart
On Error Resume Next

strSLog="Insert Into tblWebSession "_
& (EventType,UserURL,Referer,HITIP,RemoteHost,UserAgent,UserSID,HostIP)"_
& "Values('New Session','"_
& Request.ServerVariables("URL&quot & "','"_
& Request.ServerVariables("HTTP_REFERER&quot & "','"_
& Request.ServerVariables("Romete_ADDR&quot & "','"_
& Request.ServerVariables("Romete_Host&quot & "','"_
& Request.ServerVariables("HTTP_User_Agent&quot & "',"_
& CLng(Session.SessionID) & ",'"_
& Request.ServerVariables("LOCAL_Addr&quot & "')"


WriteSessionData(strSLog)

End Sub

Where I did wrong?
By the way, our web server is NT, is that cause the problem?

Thanks advance.
Ann

 

[shaddow]

You forgot to place your Counter incrementing in Session_OnLoad event. in Application_OnLoad event gives you the ability to read the user count from a file.
Try to get this line off
On Error Resume Next
This way you wont knw who caused the error.


Sub InCrementCounter
Set fsc=Server.CreateObject("Scripting.FileSystemObject&quot
Application("Counter&quot=Application("Counter&quot+1
Set txt=fsc.CreateTextFile(Server.MapPath("AcsCounter.txt&quot,1)
txt.Write(Application("Counter&quot)
txt.Close
End Sub

Sub SaveCounter
Set fsc=Server.CreateObject("Scripting.FileSystemObject&quot
Set txt=fsc.CreateTextFile(Server.MapPath("AcsCounter.txt&quot,1)
txt.Write(Application("Counter&quot)
txt.Close
End Sub

Sub LoadCounter
Set fsc=Server.CreateObject("Scripting.FileSystemObject&quot
Set txt=fsc.OpenTextFile(Server.MapPath("AcsCounter.txt&quot,1)
Application("Counter&quot=txt.ReadLine
txt.close
End Sub

Sub Application_OnStart
Application.Lock
LoadCounter
Application.Unlock
End Sub

Sub Application_OnEnd
Application.Lock
SaveCounter
Application.Unlock
End Sub

Sub Session_OnStart
InCrementCounter
'your code here
End Sub

________
George, M

 

[AnnYH]

Thanks, George. You are great. It's fixed.
Do you know about my second problem?