Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports Microsoft.VisualBasic

Public Class QuoteClass

  Inherits UserControl
  Public divQuote as HtmlGenericControl
  
  Sub Page_Load(Source As Object, E As EventArgs)
    divQuote.InnerHtml = RandomQuote()
  End Sub

  Public Function RandomQuote() As String
    Randomize
	Dim intRandomNum as Byte
    Dim strQuote As String
    intRandomNum = (2) * Rnd + 1
	Select intRandomNum
	  Case 1
		strQuote = "An apple a day keeps the doctor away. -- Anonymous"
		Application.Lock()
		Application("Quote1") = Application("Quote1") + 1
        Application.UnLock()
      Case 2
		strQuote = "Thought product and food product are to me nothing compared to the producing of them. -- Robert Frost"
        Application.Lock()
		Application("Quote2") = Application("Quote2") + 1
        Application.UnLock()
	  Case 3
		strQuote = "Eat to live, and not live to eat. -- Benjamin Franklin"
		Application.Lock()
		Application("Quote3") = Application("Quote3") + 1
        Application.UnLock()
	End Select
	return strQuote
  End Function
	
End Class