test del global.asa

[yappappeo]

Ciao a tutti,
sono alle prime armi con ASP e sto facendo i primi tentativi di utilizzo del global.asa.
Vorrei inserire la connessione al DB dentro il global.asa, ma prima di fare questo volevo fare un pò di prove; sto lavorando in locale e sembra che il global.asa non venga visto da IIS.
È possibile?

Per fare una prova ho inserito il seguente codice nel global.asa:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart()

Dim test
test = "TEST GLOBAL ASA!"

End Sub

Sub Application_OnEnd()

test.close
Set test = nothing

End Sub

</SCRIPT>

...quindi nella pagina richiamo l'applicazione come segue:

<%=Application("test")%>

Mi aspettavo di vedere stampato a video la frase "TEST GLOBAL ASA!", ma non succede niente. Ho provato a fare la stessa cosa con una Session ma niente da fare. Dove sbaglio?

Ciao e grazie

[web-planet]

In locale il gloabl.asa lo devi mettere nella root di wwwroot e non nella cartella del sito.

[Mems]

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart()
test = "TEST GLOBAL ASA!"
application("test") = test
End Sub

Sub Application_OnEnd()
application("test") = null
End Sub
</SCRIPT>

[yappappeo]

niente da fare, non succede nulla
...comunque avevi ragione, avevo messo il global.asa nella cartella del sito e non nella wwwroot. Adesso l'ho spostata ma non succede nulla comunque...

[yappappeo]

Originariamente inviato da Mems

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart()
test = "TEST GLOBAL ASA!"
application("test") = test
End Sub

Sub Application_OnEnd()
application("test") = null
End Sub
</SCRIPT>

...FUNZIONAAAA!!! GRANDEEE!
grazie Mems...

...ma visto che ci sono ne approfitto...
Quindi, se adesso volessi inserire la mia connessione al db, potrei procedere così?...

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart()

Set Conn = Server.CreateObject("ADODB.Connection")
connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("C:\percorso\del\File\database.mdb" )
Conn.Open connStr
End Sub

Sub Application_OnEnd()
Set Conn.Close
ahConn = Nothing
End Sub

</SCRIPT>

[Mems]

Originariamente inviato da yappappeo
...FUNZIONAAAA!!! GRANDEEE!
grazie Mems...

...ma visto che ci sono ne approfitto...
Quindi, se adesso volessi inserire la mia connessione al db, potrei procedere così?...

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart()

Set Conn = Server.CreateObject("ADODB.Connection")
connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("C:\percorso\del\File\database.mdb" )
Conn.Open connStr
End Sub

Sub Application_OnEnd()
Set Conn.Close
ahConn = Nothing
End Sub

</SCRIPT>

Aborro!

[yappappeo]

Originariamente inviato da Mems
Aborro!

...aaaaaaaaaaaarrrrrgggrr... lo sapevo...

...comunque, piano piano imparo, ce la farò anche a fare questa cosa...