home *** CD-ROM | disk | FTP | other *** search
- <% @Language=VBScript %>
- <% Option Explicit %>
-
-
- <%
- ' Turn Buffering on (this must be done before anything is sent
- Response.Buffer = TRUE
- %>
-
-
- <HTML>
- <HEAD>
- <TITLE>This is Bogus HTML</TITLE>
- </HEAD>
-
- <BODY bgcolor="white" topmargin="10" leftmargin="10">
-
- <!-- Display Header -->
-
- <font size="4" face="Arial, Helvetica">
- <b>You shouldn't see this!!</b></font><br>
-
- </BODY>
- </HTML>
-
-
- <%
- ' Clear everything already printed
- Response.Clear
- %>
-
-
- <HTML>
- <HEAD>
- <TITLE>Buffering Example</TITLE>
- </HEAD>
-
- <BODY bgcolor="white" topmargin="10" leftmargin="10">
-
- <!-- Display Header -->
-
- <font size="4" face="Arial, Helvetica">
- <b>Buffering Example</b></font><p>
-
- This html was buffered on the server before it was sent.
-
- </BODY>
- </HTML>
-
-
- <%
- ' Send the new html
-
- Response.Flush
- %>
-