<SCRIPT LANGUAGE="VBSCRIPT">
function Noconectado()
dim sql, conexion
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\base_datos.mdb"))
'una vez que se muestra toda la información se actualiza el campo activo de la tabla
'usuario_activo para que al salir de del sitio el usuario ya no esté activo y los demás
'usuarios no lo vean como activo
sql= "UPDATE usuario_activo set activo = 'No' WHERE usuario = '"&request.cookies("USUARIO")&"'"
conexion.execute(sql)
conexion.close
Set conexion = nothing
end function
</SCRIPT>
Saludos
