<%
' 1. Capture the original timeout value
Dim originalTimeout
originalTimeout = Server.ScriptTimeout

' 2. Increase the script timeout for the 5-minute task
' We'll set it to 360 seconds (6 minutes) to be safe
Server.ScriptTimeout = 360

' Enable buffering
Response.Buffer = True

Sub Sleep(seconds)
    Dim endTime
    endTime = DateAdd("s", seconds, Now())
    Do While Now() < endTime
    Loop
End Sub

' Display the timeout information
Response.Write "<b>Original Server Timeout:</b> " & originalTimeout & " seconds<br>"
Response.Write "<b>New Adjusted Timeout:</b> " & Server.ScriptTimeout & " seconds<br>"
Response.Write "<hr>"
Response.Flush()

' Start the 5-minute loop (300 seconds)
For i = 1 To 300
    Response.Write "Progress: " & i & " seconds elapsed...<br>"
    Response.Flush()
    Sleep(1)
Next

Response.Write "<h3>Task Finished Successfully!</h3>"
%>