due script nel global.asa

[maresca]

ho un global.asa con questo codice:

<script language="VBScript" runat="Server">
Sub Application_OnStart
Application("UtentiOnLine") = 0
End Sub

Sub Session_OnStart
Session.Timeout = 20
Application.Lock
Application("UtentiOnLine") = Application("UtentiOnLine") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("UtentiOnLine") = Application("UtentiOnLine") - 1
Application.Unlock
End Sub
</script>

ora dovrei utilizzare un altro global.asa che ha questo codice:

<object runat="server" scope="application" id="online_users" progid="scripting.dictionary"></object>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart

':: app database connection string
application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data/8682.mdb") & ""
'application("cn_str") = "provider=SQLOLEDB.1;server=serverip_or_address;da tabase=database_name;uid=userid;pwd=password"

':: initilize application variables from database
set cn = Server.CreateObject("ADODB.Connection")
cn.Open application("cn_str")
set rs = cn.Execute("SELECT * FROM AppSettings")
for each field in rs.Fields
application(field.Name) = field.Value
next

End Sub

Sub Session_OnStart

session.timeout = 20

End Sub

Sub Session_OnEnd

if isObject(online_users) then
on error resume next
online_users.remove (session.sessionid)
end if

End Sub

</SCRIPT>


si possono metter insieme??
il primo mi serve per uno script il secondo per un altro

[valentif]

mettitli insieme ma con un unica intestazione (ovvero nella stassa aplication on start metti entrambi i codici)

[maresca]

Originariamente inviato da valentif
mettitli insieme ma con un unica intestazione (ovvero nella stassa aplication on start metti entrambi i codici)

azz non ho capito

[fiber81]

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart

':: app database connection string
application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data/8682.mdb") & ""
'application("cn_str") = "provider=SQLOLEDB. 1;server=serverip_or_address;database=da
tabase_name;uid=userid;pwd=password"

':: initilize application variables from database
set cn = Server.CreateObject("ADODB.Connection")
cn.Open application("cn_str")
set rs = cn.Execute("SELECT * FROM AppSettings")
for each field in rs.Fields
application(field.Name) = field.Value
next
Application("UtentiOnLine") = 0
End Sub

Sub Session_OnStart
Session.Timeout = 20
Application.Lock
Application("UtentiOnLine") = Application("UtentiOnLine") + 1
Application.Unlock

End Sub

Sub Session_OnEnd
Application.Lock
Application("UtentiOnLine") = Application("UtentiOnLine") - 1
Application.Unlock

if isObject(online_users) then
on error resume next
online_users.remove (session.sessionid)
end if

End Sub

</SCRIPT>

[maresca]

Microsoft VBScript compilation error '800a03ea'

Syntax error

//global.asa, line 9

tabase_name;uid=userid;pwd=password"
-----------^

[fiber81]

<SCRIPT LANGUAGE=VBScript RUNAT=Server> 

Sub Application_OnStart 

':: app database connection string 
application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data/8682.mdb") & "" 
'application("cn_str") = "provider=SQLOLEDB. 1;server=serverip_or_address;database=database_name;uid=userid;pwd=password" 

':: initilize application variables from database 
set cn = Server.CreateObject("ADODB.Connection") 
cn.Open application("cn_str") 
set rs = cn.Execute("SELECT * FROM AppSettings") 
for each field in rs.Fields 
application(field.Name) = field.Value 
next 
Application("UtentiOnLine") = 0 
End Sub 

Sub Session_OnStart 
Session.Timeout = 20 
Application.Lock 
Application("UtentiOnLine") = Application("UtentiOnLine") + 1 
Application.Unlock 

End Sub 

Sub Session_OnEnd 
Application.Lock 
Application("UtentiOnLine") = Application("UtentiOnLine") - 1 
Application.Unlock 

if isObject(online_users) then 
on error resume next 
online_users.remove (session.sessionid) 
end if 

End Sub 

</SCRIPT>