A ver voy a intentar darte 2 opciones..espero que alguna te valga..
1) en vez de abrir la conexion 2,3......pon 1,3,1
set tab = Server.CreateObject("ADODB.Recordset")
sql="Select * from Tabla1 where sesion='"&Session.SessionID&"'"
tab.open sql,conexion,1,3,1
2) usar la propia conexion para hacer un update...es decir..
strsql="UPDATE TABLA1 SET SALIDA=NOW WHERE SESION='" & Session.SessionID & "'"
conexion.execute(strsql)
suerte un saludo.....
