Funzioni per Connessione

[minnie71]

Ciao, ho un problema con la connessione al DB.
nel global.asa metto:

Sub Session_OnStart
Set Application("Conn_String")="Provider=Microsoft.Jet .OLEDB.4.0; Data Source=C:/Inetpub/wwwroot/E_Commerce/DB/ECommerce.mdb"
End Sub
Sub Application_OnStart
Set Session("login")=0
Set Session("sApp")=0
Set Session("ID_Utente")=0
Set Session("Totale")=0
End Sub

In un File.inc metto:

'----------APRI DATABASE----------
Function OpenDataBase()
Dim connection_string
Dim objConn
connection_string = Application("Conn_String")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Conn_String")
Set objRs = Server.CreateObject("ADODB.Recordset")
End Function
'----------CHIUDI DATABASE----------
Function CloseDataBase()
objRs.Close
Set objRs = Nothing
objConn.Close
set objConn = Nothing
End Function

Mentre nelle mie pagine includo il file.inc e richiamo le Fx DI APRI/CHIUDI db.

Mi da l'errore:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'Session'
/E_Commerce/global.asa, line 11

Dove sbaglio?
TNKS

[Roby_72]

Set Session("login")=0
Set Session("sApp")=0
Set Session("ID_Utente")=0
Set Session("Totale")=0

Queste disposizioni sono estranee al global.asa

Roby

[GudFella]

togli il "Set"

Session("login")=0

[minnie71]

ora però mi dà errore:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'Application'
/E_Commerce/global.asa, line 8


il resto è giusto?

[Roby_72]

Devi togliere i Set

Roby

[minnie71]

ora nel Global.asa ha:
Sub Application_OnStart
Session("login")=0
Session("sApp")=0
Session("ID_Utente")=0
Session("Totale")=0
End Sub
mentre nel file.inc
Function OpenDataBase()
Dim connection_string
Dim objConn
'Per ottenere la mia stringa di connessione al database
connection_string = Application("Conn_String")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:/Inetpub/wwwroot/E_Commerce/DB/ECommerce.mdb")
End Function
Mi dice che non trova il server!!!
ODIO le connessioni!!!

[Roby_72]

Ho detto di togliere il Set non tutta lastringa:

Application("Conn_String")="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:/Inetpub/wwwroot/E_Commerce/DB/ECommerce.mdb"

Roby

[minnie71]

ok fatto, nel file ho messo:

Function OpenDataBase()
Dim connection_string
Dim objConn
'Per ottenere la mia stringa di connessione al database
connection_string = Application("Conn_String")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open(connection_string)
End Function

ma come errore da:
Please try the following:

If you typed the page address in the Address bar, make sure that it is spelled correctly.

Open the minnie home page, and then look for links to the information you want.
Click the Back button to try another link.
HTTP 404 - File not found
Internet Information Services

già controllato il tutto ...
Abbi pazienza

[Roby_72]

Entro in riunione... tra un po'.

Roby

[Roby_72]

Ciao, rivediamo il tuo global.asa e la funzione di connessione che usi.
L'errore 404 indica una pagina inesistente, forse in qualche redirect.

Roby