Foros del Web - Ver Mensaje Individual

zolw · #5 (**permalink**) 23/02/2005, 12:17

Esto lo puedes hacer muy facilmente con un componente gratuito que permite hacer esperas del tiempo que necesites.

Fijate en este ejemplo.
http://test.mobmol.com/component/waitfor/

Espero que te sirva......lo puedes descargar en esl siguiente sitio:
http://www.serverobjects.com/products.htm se encuentra en la parte inferior.
y te pongo el codigo que utilice para el ejemplo que puse.

Código:

<%
  Response.Buffer = true
%>

<html>
<head><title>Tiempos de espera en codigo</title></head>
<body>
<blockquote>
<%

  rem ******************************************************
  rem * Iniciamos el Componente
  rem ******************************************************
  Set WaitObj = Server.CreateObject ("WaitFor.Comp")

  Response.Write "Inicia el script: " & Time & "<br>"
  Response.Write "Espera de 5 segundos........<br>"
  Response.Flush

  rem ******************************************************
  rem *  Metemos espera de 5 segundos, solo se necesita poner los segundos
  rem ******************************************************
  WaitObj.WaitForSeconds 5

  Response.Write "Terminó la espera: " & Time & "<br>Ahora hacemos otra prueba.....dame 3 segundos..."
  Response.Flush
  WaitObj.WaitForSeconds 3
  For x = 1 to 5
  	Response.Write "<br>"
  Next
  Response.Flush
  Response.Write "Ahora hacemos un conteo de segundos por 10 segundos en intervalos de un segundo<br><br><br><br><hr>"
  Response.Flush
  Response.Write "<b>"
  For x = 1 to 10
  	WaitObj.WaitForSeconds 1
  	Response.Write x & "..."
  	Response.Flush
  Next
  Response.Write "</b><hr><br>"
  Response.Write "Terminado"
  
%>

</body>
</html>

Saludos,