Temporizador

[AlZuwaga]

Bueno, acá hice un pequeño script que sirve para responder a las dos preguntas

¿Cómo contar X segundos para hacer algo?

Rta: Con un temporizador.

Código:

<% 
Sub Temporizador(Segundos)
	Inicio = Timer()
	Fin = Inicio + Segundos

	Response.Write "<i>Temporizador iniciado en " & Inicio & "<br>"
	Response.Write "La operación continuará en "

	i = Segundos
	Do While Inicio < Fin
		If i = Int(Fin) - Int(Inicio) Then
			Response.Write i & ", "
			Response.Flush
			i = i - 1
		End if
		Inicio = Timer()
	Loop
	Response.Write "<br>Finalizó la ejecución del temporizador en " & Timer() & "</i><br>"
End Sub

Response.Write "Le ha faltado rellenar algunos campos<br><br>"
Temporizador(10)
Response.Write "<br>Acá iría el response.redirect, pero no se puede"
'Response.Redirect("pagina_anterior.asp")
%>

¿Se puede hacer algo así? (¿hacer un redirect luego de mostrar un mensaje en pantalla?)

Rta: No con ASP, porque daría errores de encabezados. Probá el script así ocmo está y luego "descomentá" la línea del redirect y te vas a dar cuenta del por qué.

Saludos