Global.asa - Help URGENTE

[Icedguardian]

Ho dei problemi con il Global.asa
Ho provato a copiare il codice in una pagina asp e funziona ma mettendolo in Global.asa non va, avete idea del perchè?
Questo è il file:

<script LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
End Sub

Sub Session_OnEnd
	if CInt(Session("IDCliente")) > 0 then
		EliminaOrdineNonConfermato
	end if
End Sub

Sub EliminaOrdineNonConfermato
	Dim query, dbRs, dbCon, IDOrdine
	
	query = "SELECT IDOrdine FROM Ordine WHERE Confermato = FALSE AND Cliente = " & Session("IDCliente")
	EseguiQuery query, dbRs, dbCon
				
	if dbRs.BOF and dbRs.EOF then 'Non esiste nessun ordine a cui eliminare la riga ordine
		dbRs.Close
		Set dbRs = Nothing
		dbCon.Close
		Set dbCon = Nothing
	else
		IDOrdine = dbRs(0)
		
		dbRs.Close
		Set dbRs = Nothing
			
		query = "SELECT Prodotto, Quantita FROM RigaOrdine WHERE Ordine = " & IDOrdine
		EseguiQuery query, dbRs, dbCon
				
		if dbRs.BOF and dbRs.EOF then 'Non esiste la riga ordine
			dbRs.Close
			Set dbRs = Nothing
			dbCon.Close
			Set dbCon = Nothing
		else
			Dim dbRsAux
			
			while not dbRs.EOF
				query = "UPDATE Prodotto SET QuantitaDisponibile = QuantitaDisponibile + " & dbRs("Quantita") & " WHERE IDProdotto = " & dbRs("Prodotto")
				EseguiQuery query, dbRsAux, dbCon			
			
				dbRs.MoveNext
			wend			
			
						
			query = "DELETE FROM RigaOrdine WHERE Ordine = " & IDOrdine
			EseguiQuery query, dbRs, dbCon
					
			query = "DELETE FROM Ordine WHERE IDOrdine = " & IDOrdine
			EseguiQuery query, dbRs, dbCon
			
			dbCon.Close
			Set dbCon = Nothing
		end if
	end if
End Sub

Sub EseguiQuery(query, dbRecordset, dbConnection)
'-----------------------------------------------------------------------------
' Scopo: Esegue la query passata come parametro e restituisce il recordset.
' Autore: Mr Iced ;-)
' Data: 26/11/2003
'-----------------------------------------------------------------------------
	
	Set dbConnection = Server.CreateObject("ADODB.Connection")
	dbConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("./BMMDist.mdb") 
	
	Set dbRecordset = Server.CreateObject("ADODB.Recordset")
	dbRecordset.Open query,dbConnection
	
	'dbRecordset è da chiudere esternamente come dbConnection
End Sub
</script>

Un altra domanda, un metodo veloce per forzare il Session End.