home *** CD-ROM | disk | FTP | other *** search
- <%@ LANGUAGE="VBSCRIPT"%>
- <%
-
- Response.Buffer=TRUE
-
- On Error Resume Next
-
- %>
- <HTML>
- <HEAD><TITLE>Buffering Example</TITLE></HEAD>
- <BODY>
- <%
-
- Set Obj = Server.CreateObject("SyncDateTime.clsSyncDateTime")
- If Err.Number > 0 Then
-
- ErrorURL = "ErrorHandler.asp"
- ErrorURL = ErrorURL & "?Source=" & Server.URLEncode(Err.Source)
- ErrorURL = ErrorURL & "Number=Err.Number"
-
- Err.Clear
-
- Response.Redirect ErrorURL
- ' Buffering allows us to do a redirect at any point in the page.
-
- Else
-
- Obj.DateTime = Now
- Response.Write Obj.DateString
- End If
- %>
- </BODY>
- </HTML>