<%@ Page Language="VB" %>
sub Page_Load(obj as object, e as eventargs)
dim i as integer
Response.Write("Before flush
")
Response.Flush()
for i = 0 to 50
next
Response.Write("After flush, before clear
")
Response.Clear()
for i = 0 to 50
next
Response.Write("After clear, before end
")
Response.End
for i = 0 to 50
next
Response.Write("After end
")
end sub