Subversion Repositories DevTools

Rev

Rev 46 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 46 Rev 48
Line 26... Line 26...
26 
	" IS_ONLINE = NULL,"&_
 26 
	" IS_ONLINE = NULL,"&_
27 
	" LAST_VISIT = TO_DATE( TO_CHAR( SYSDATE,'DD/MM/YYYY HH24:MI:SS' ),'DD/MM/YYYY HH24:MI:SS' )"&_
 27 
	" LAST_VISIT = TO_DATE( TO_CHAR( SYSDATE,'DD/MM/YYYY HH24:MI:SS' ),'DD/MM/YYYY HH24:MI:SS' )"&_
28 
	" WHERE USER_ID = "& Session( "AM_USER_ID" )
28 
	" WHERE USER_ID = "& Session( "AM_USER_ID" )
29
29
30 
	OraDatabase.ExecuteSQL _
 30 
	OraDatabase.ExecuteSQL _
31 
		"BEGIN   pk_Utils.Log_Access ( 2, NULL, NULL, NULL, NULL, "& Session( "AM_USER_ID" ) &" );   END;"
 31 
		"BEGIN   pk_AMUtils.Log_Access ( 2, NULL, NULL, NULL, NULL, "& Session( "AM_USER_ID" ) &" );   END;"
32
32
33 
	OraSession.CommitTrans
 33 
	OraSession.CommitTrans
34
34
35
35
36 
	Set OraDatabase = Nothing
 36 
	Set OraDatabase = Nothing