hjälp med global.asa

Hej, kan jag inte göra på detta sätt? får ett "odentifierat fel i rad 7, i min räknare.

hits.asp

<%
'===============
'= ASP Tracker =
'===============
Strconn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("\databas\tracker.mdb")
set conn = Server.CreateObject("ADODB.Connection")
set RS = Server.CreateObject("ADODB.Recordset")
conn.open Strconn

rad 7 = conn.open Strconn

den fungerar om jag tar bort följande: (i från min global.asa)

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
On Error Resume Next
Set Application("Pages") = Server.CreateObject("Scripting.Dictionary")
Set Application("Host") = Server.CreateObject("Scripting.Dictionary")
Set Application("Agent") = Server.CreateObject("Scripting.Dictionary")
Set Application("Starttime") = Server.CreateObject("Scripting.Dictionary")
End Sub

Sub Session_OnStart
On Error Resume Next
Application("Starttime").Item(Session.SessionID) = Now
Application("Host").Item(Session.SessionID) = Request.ServerVariables("HTTP_HOST")
Application("Agent").Item(Session.SessionID) = Request.ServerVariables("HTTP_USER_AGENT")
End Sub

Sub Session_OnEnd
On Error Resume Next
If Application("Pages").Exists(Session.SessionID) Then
Application.Lock
Application("Pages").Remove(Session.SessionID)
Application("Host").Remove(Session.SessionID)
Application("Agent").Remove(Session.SessionID)
Application("starttime").Remove(Session.SessionID)
Application.Unlock
End If
End Sub

</SCRIPT>

min global.asa ser ut så här:

Global.asa

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
On Error Resume Next
Set Application("Pages") = Server.CreateObject("Scripting.Dictionary")
Set Application("Host") = Server.CreateObject("Scripting.Dictionary")
Set Application("Agent") = Server.CreateObject("Scripting.Dictionary")
Set Application("Starttime") = Server.CreateObject("Scripting.Dictionary")
End Sub

Sub Session_OnStart
On Error Resume Next
Application("Starttime").Item(Session.SessionID) = Now
Application("Host").Item(Session.SessionID) = Request.ServerVariables("HTTP_HOST")
Application("Agent").Item(Session.SessionID) = Request.ServerVariables("HTTP_USER_AGENT")
End Sub

Sub Session_OnEnd
On Error Resume Next
If Application("Pages").Exists(Session.SessionID) Then
Application.Lock
Application("Pages").Remove(Session.SessionID)
Application("Host").Remove(Session.SessionID)
Application("Agent").Remove(Session.SessionID)
Application("starttime").Remove(Session.SessionID)
Application.Unlock
End If
End Sub

</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
'Add one to Application("SessionCount")
  IF IsNumeric(Application("SessionCount")) THEN
    Application("SessionCount") = Application("SessionCount") + 1
  ELSE
    Application("SessionCount") = 1
  END IF
End Sub
</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnEnd
'Subtract one from Application("SessionCount")  
  IF IsNumeric(Application("SessionCount")) THEN
    Application("SessionCount") = Application("SessionCount") - 1
  ELSE
    Application("SessionCount") = 0
  END IF
End Sub
</SCRIPT>

------------------
Micke & Annas Sajt
micke@micke-anna.nu

[Redigerat av mikael_a den 13 sep 2000]