Figure 2   Date.asp and Time.asp

Date.asp 

<% Language=VBScript %>
<html>
<body>
The date is <%=Date()%>.<br>
<%
  Server.Execute ("time.asp")
%>
</body>
</html>
Time.asp 
<% Language=VBScript %>
<html>
<body>
The time is <%=Time()%>.
</body>
</html>

Figure 6   ThisPage, ThatPage, NextPage

/Windows2000/ThisPage.asp 

<% Language=VBScript %>
<html>
<body>
<%
  Session("ThisValue") = "/Windows2000/ThatPage.asp"
  Server.Transfer ("/OtherWebApp/NextPage.asp")
%>
</body>
</html>
/Windows2000/ThatPage.asp 
<% Language=VBScript %>
<html>
<body>
<%
     Response.Write "Welcome to " & Session("ThisValue") & ".<br>"
%>
</body>
</html>
/OtherWebApp/NextPage.asp 
<% Language=VBScript %>
<html>
<body>
You can return to the original page by clicking on
     <a href="<%=Session("ThisValue")%>">ThatPage</a>.
</body>
</html>

Figure 9   500-100.ASP


<%
'*****************************************************************
'      Author: Jeff J. Rodenburg,
'              MacKenzie & Roth, Inc.
'           St. Louis, MO
'        Date: 01/16/1999
' Description: This customized error page is useful in providing
'           detailed information about the type of error that
'           occurred in processing an ASP page. IIS will
'           automatically send control to the error page
'           assigned to the 500;100 error code for the virtual
'           directory.
'           This page emphasizes the use of Server.GetLastError
'           and the ASPError object.
'*****************************************************************
  Response.Clear
  Set objASPError = Server.GetLastError
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>

<HEAD>
<TITLE>Error in processing: <%=objASPError.FileName %></TITLE>
</HEAD>

<BODY bgcolor=navy>
<TABLE bgcolor=white>
<TR><TD width=50 valign=top align=center>
        <IMG src="x.gif" alt="Big bad error!">
    <TD width=450 bgcolor=navy valign=center align=left>
        <FONT face=sans-serif size=4 color=White><%=e.FileName %> is unavailable
</FONT></TD>
<TR><TD></TD>
    <TD><FONT face=sans-serif size=3 color=Navy>
        An error occurred during processing of this Web page.
</TABLE>
<BR>

<TABLE Border=0 bgcolor=white>
<TR><TD colspan=2 width=500 align=center>
    <FONT face=sans-serif size=3 color=Navy><b>Additional Information</b></TD>
<TR><TD><FONT face=sans-serif size=2 color=Navy>ASP Code</TD>
    <TD><FONT face=sans-serif size=2 color=Red><%= objASPError.ASPCode %></TD>
<TR><TD><FONT face=sans-serif size=2 color=Navy>Error Number (Hex)</TD>
    <TD><FONT face=sans-serif size=2 color=Red><%= objASPError.Number & " (" & Hex(objASPError.Number) %>)</TD>
<TR><TD><FONT face=sans-serif size=2 color=Navy>Source</TD>
    <TD><FONT face=sans-serif size=2 color=Red><%= objASPError.Source %></TD>
<TR><TD><FONT face=sans-serif size=2 color=Navy>Line Number</TD>
    <TD><FONT face=sans-serif size=2 color=Red><%= objASPError.LineNumber %></TD>
<TR><TD><FONT face=sans-serif size=2 color=Navy>Description</TD>
    <TD><FONT face=sans-serif size=2 color=Red><%= objASPError.Description %></TD>
<TR><TD><FONT face=sans-serif size=2 color=Navy>ASP Description</TD>
    <TD><FONT face=sans-serif size=2 color=Red><%= objASPError.ASPDescription %>
</TD>
</FONT>
</TABLE>

</BODY>
</HTML>