About to perform compute intensive operation...
<% Dim x, i x = 1 'Perform a long operation. For i = 1 to 1000 x = x + 5 Next 'Check to see if the client is still connected 'before doing anything more. If Response.IsClientConnected Then 'Ouput Status. Response.Write "User is still connected
" 'Perform another long operation. For i = 1 to 1000 x = x + 5 Next End If 'If the user is still connected, send back 'a closing message. If Response.IsClientConnected Then Response.Write "

Finished
" Response.Write "Thank you for staying around! :-)" End If %>