26/07/2004, 11:15
|
 | Colaborador | | Fecha de Ingreso: enero-2002 Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses Puntos: 146 | |
| Bueno, eso serìa con el global.asa, serpia algo mas o menos así:
Sub Application_OnStart
application.lock
application("fecha")=date()
Application("Usuarios") = Application("Usuarios") + 1
if Application("Usuarios") =1 Then
....rutina de actualizacion ...
End If
application.UnLock
End Sub
Sub Session_OnEnd
End Sub
Se me ocurrio así de rápido, deja hago unas pruebas y te paso el código correcto |