Overrides Function GetVaryByCustomString( _
objContext As HttpContext, _
strCustom As String ) As String
Return objContext.Request.Browser.VBScript
End Function
Sub Page_Load
Dim strHeader As String
For each strHeader in Request.ServerVariables
lblOutput.Text &= "" & strHeader & "=" & Request( strHeader )
Next
E
Sub Page_Load
Dim strTime As String
strTime = Cache( "Time" )
If strTime Is Nothing Then
strTime = DateTime.Now.ToString( "T" )
Cache.Insert("Time", str
