en esta parte de tu codigo, hay dos errores
Código HTML:
dim sesion_cuenta, sesion_actual
db.Open "tb_sesion", conn
strSQL_uno = "SELECT MAX('id_sesion') AS id_sesion_max FROM tb_sesion"
' conn.Execute(strSQL_uno) dejalo con comillas esto no va
Set rs = conn.Execute(strSQL_uno)
' sesion_cuenta = rs("id_sesion_max") error para recojer la variable
'esto debe ser asi
sesion_cuenta = id_sesion_max
Session("sesion_actual")= sesion_cuenta + 1
sustituye e intentalo de nuevo
funcionara???