Que bueno que esto es un foro, de lo contrario nos quedariamos con nuestras propias opiniones y errores .
Al Zuwuaga....muy bueno tu codigo y sin componentes, lo he probado y funciona bien.
Hice unos cambios a mi codigo y creo que el codigo que mando Al tambien puede adaptarse con esto, ya permite redireccionar a otras paginas con un pequeño script.
Código:
<%
'Estas lineas son para que no se haga el cache en el explorador
'ya que de lo contrario la proxima vez que llames la pagina
'se redirecciona directamente sin la espera
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
'Cambie la propiedas del buffer para que no afecten las lineas de arriba
Response.Buffer = false
%>
<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 5 segundos en intervalos de un segundo<br><br><br><br><hr>"
'Response.Flush
Response.Write "<b>"
For x = 1 to 5
WaitObj.WaitForSeconds 1
Response.Write x & "..."
'Response.Flush
Next
Response.Write "</b><hr><br>"
Response.Write "Terminado...ahora redireccionamos a sitio Tutoriales.com.mx....(3 segundos)..."
'Response.Flush
WaitObj.WaitForSeconds 5
'Esto llama a la funcion para redirigir con JavaScript
redirecionar "http://www.tutoriales.com.mx"
sub redirecionar(url)
escribe "<script>"
escribe "window.location ="""& url &""";"
escribe "</script>"
end sub
sub escribe(str)
response.write str & chr(10)
end sub
%>
</body>
</html>
Espero que sirva.
Esta publicado en el mismo lugar del otro:
http://test.mobmol.com/component/waitfor
Saludos,