Global.asa/sessionId

<SCRIPT language=VBScript RUNAT=Server>
sub Session_OnStart
    <% session.Timeout=5 %>
end sub
sub Session_OnEnd
    <%   
    enId=session.sessionId
    Set Con = server.CreateObject(\"ADODB.Connection\")
    Con.open Application(\"con\")
    Con.Execute(\"DELETE FROM basket WHERE sessionId=\"&enId&\"\")
    Con.close
   
    %>   
end sub


</SCRIPT>

Jeg vil slette alle forekomster i basket, hvor sessionId=session.sessionId, når session_OnEnd køres efter 5 min. Jeg har prøvet dette, men der sker ikke noget.?