Code modules: (2) Generic application
Imports Microsoft.VisualBasic
Imports System
Namespace VI
Public Class ads
Inherits VI.App_Template
Public cOrganization As String ... ' public properties
Private ... ' private properties
Sub Main() ' main method builds web page
Dim cCurrentEndDate As String
' overload App_Template methods as
needed
Overloads Sub GetViewData(ByVal
cViewSelected As String)
v.cViewName = cViewSelected …
If
v.ViewParameters("View.Student", "Student_", ...
ElseIf
v.ViewParameters("View.Student.Schedule", ...
End Sub
...
End Class
End Namespace