intrinsic.vb

This is a book about vb.you could learn this from this book

Imports System
Imports System.Web
Imports System.Drawing
Imports System.Web.UI
Imports System.Web.UI.WebControls

Namespace WroxControls 

   Public Class IntrinsicDisplay
   	Inherits WebControl

      Protected Overrides Sub Render(writer As HtmlTextWriter) 

			writer.Write("<H3>Application Variables</H3>")

			Dim key As String
			For Each key In Context.Application
				writer.Write( "<BR>Key = '" & key & _
								  "' , Value = '" & _
								  Context.Application(key) & "'" )
			Next

			writer.Write("<H3>Session Variables</H3>")

			For Each key In Context.Session

				writer.Write( "<BR>Key = '" & key & _
								  "' , Value = '" & _
								  Context.Session(key) & "'" )
			Next
      
      End Sub

   End Class
   
End Namespace