CIAO RIXX,
ecco il contenuto del file.
questo file è, come vedi, richiesto da portalapp.
il web wiz forum ne faerbbe volentieri a meno!
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;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
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>
grazie per l'interessamento,
GC