OK AQUI TENGO MI EJEMPLO :
SQL1 = "SELECT * FROM usuarios order by Nombre"
Set tabla = conexion.execute(SQL1)
BANDERA = 0
IF NOT tabla.BOF THEN
tabla.movefirst
Do while not Tabla.EOF
If (Tabla("identificacion") = Session("Usuario")) then
bandera = 1
End If
tabla.MoveNext
Loop
END IF
IF bandera = 1 then
....
....
....
bla
bla
bla
bla
.....
.....
ELSE ' bandera = 0
%>
</font><p align="center"><font color="#000066" size="5" face="Arial, Helvetica, sans-serif">Lo sentimos pero usted ha sido desconectado ........</font></p>
<p align="center">
<%
RESPONSE.End()
end if