Evitar que un usuario ingrese más de una vez

[sebastown]

Sub Application_OnStart()
Const adInteger = 3
Const adVarChar = 200
Const adDate = 7

rstActiveUsers.Fields.Append "id", adInteger
rstActiveUsers.Fields.Append "codempleado", adInteger
rstActiveUsers.Fields.Append "started", adDate
rstActiveUsers.Open
End Sub

Sub Session_OnEnd()
Const adAffectCurrent = 1
rstActiveUsers.MoveFirst
Do While Not rstActiveUsers.EOF
If CLng(rstActiveUsers.Fields("id").Value) = CLng(Session.SessionID) Then rstActiveUsers.Delete adAffectCurrent
End If
rstActiveUsers.MoveNext
Loop
rstActiveUsers.Update
End Sub