Aprire query da Global.asa

[hyson]

salve a tutti

ho creato un file global.asa per gestire le seguenti:

quando si apre una nuova sessione, deve registrare il suo id in una variabile di sessione tipo

session("id") = session.sessionId

alla chiusura di questa (quando scade il timeout) deve aprire una connessione con il db e cancellare tutti i record relativi alla sessione in questione

il problema è che non funziona nessuna delle due cose...dove sbaglio?

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

Sub Session_OnStart
	
	session("idutente") = Session.SessionID
	
End Sub

Sub Session_OnEnd

	dim strSql
	strSql = "DELETE FROM tbOrdine WHERE idsessione = "&Session("idutente")

	set objConn = server.CreateObject("ADODB.Connection")
	objConn.open strConn
	
	objConn.execute strSql
	
	objConn.close
	set objConn = nothing

End Sub
</SCRIPT>

aiutatemi please!!!!