home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch38 / buffering.asp < prev    next >
Encoding:
Text File  |  1997-09-21  |  625 b   |  33 lines

  1. <%@ LANGUAGE="VBSCRIPT"%>
  2. <%
  3.  
  4. Response.Buffer=TRUE 
  5.  
  6. On Error Resume Next
  7.  
  8. %>
  9. <HTML>
  10. <HEAD><TITLE>Buffering Example</TITLE></HEAD>
  11. <BODY>
  12. <%
  13.  
  14. Set Obj = Server.CreateObject("SyncDateTime.clsSyncDateTime")
  15. If Err.Number > 0 Then
  16.  
  17.      ErrorURL = "ErrorHandler.asp"
  18.      ErrorURL = ErrorURL & "?Source=" & Server.URLEncode(Err.Source)
  19.      ErrorURL = ErrorURL & "Number=Err.Number"
  20.  
  21.      Err.Clear
  22.  
  23.      Response.Redirect ErrorURL 
  24.         ' Buffering allows us to do a redirect at any point in the page.
  25.  
  26. Else
  27.  
  28.      Obj.DateTime = Now
  29.      Response.Write Obj.DateString
  30. End If
  31. %>
  32. </BODY>
  33. </HTML>