problema con pagine protette

[Pimpinelli]

Buongiorno, ho un problema con uno script trovato su www.aspin.com.
Avevo necessità di avere delle pagine protette da password e poter verificare chi ha visto quelle pagine.
Ho trovato uno script che faceva al caso mio che si trova al seguente indirizzo internet:
http://www.mxmania.net/Applications/user_tracking.htm

Ho caricato tutti i files sulla rut principale del mio sito ma non riesco a farlo funzionare:
riesco ad aprire la pagina login, insrisco id e pw ma mi riporta sempre l'errore:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/login.asp, line 14

Ho visto che contiene un file Global.asa che ho cercato di modificare reindirizzandolo alla rut remota del sito visto che era indirizzata in locale ma non funziona potete aiutarmi per favore?????

[DarioN1]

Che DB hai installato ???

E i driver di quel DB sono installati ???

NO !

[Pimpinelli]

Grazie per l'interessamento al mio problema,
premetto che il server è di aruba
il database l'ho inserito dentro la cartella mdb-database e si chiama: Online.mdb
la connessione si trova all'interno della cartella Connections e si chiama:ConOnline.asp e riporta quanto segue:
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
MM_ConOnline_STRING = "dsn=Online;uid=;pwd=;"
%>
________________
il global.asa è così:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>


Sub Application_OnStart

Application("visits")
Application("Active") = 0


' The connection string to the mdb.
Application("connString") = "Driver={Microsoft Access Driver (*.mdb)};Dbq=& Server.MapPath /mdb-database/Online.mdb;uid=Admin;pwd=pass;"

End Sub



Sub Application_OnEnd
End Sub
Sub Session_OnStart



Session.Timeout = 20
Session("Start") = Now
Application.Lock
Application("visits") = Application("visits") + 1
intTotal_visitors = Application("visits")
Application.Unlock

Session("VisitorID") = intTotal_visitors
Application.Lock
Application("Active") = Application("Active") + 1
Application.Unlock
End Sub


Sub Session_OnEnd



set conn = Server.CreateObject ("ADODB.Connection")
conn.Open Application("connString")

Dim update__MMColParam
update__MMColParam = "1"
if (Session("MM_Username") <> "") then update__MMColParam = Session("MM_Username")


' Update the record when the user logout and write the logout time
' plus it sets the user as OFFLINE.
query = "UPDATE tblActiveusers SET LoggedOut= now() , Online=1 "
query = query & "WHERE Online=0 AND Username= '" + Replace(update__MMColParam, "'", "''") + "'"

conn.Execute (query)
conn.Close
set conn = Nothing


Application.Lock
Application("Active") = Application("Active") - 1
Application.Unlock

End Sub
</script>
_______________________
è la prima volta che vedo un collegamento fatto tramite questo tipo di file e non so come poter modificare lo script.