' Ask yourself:
'
'   Why did I use CGI_ExecutablePath?
'   Could I have used SnapShots here?
'
Sub DoGet()
    Dim LinkStart As String

    LinkStart = "<A HREF=""" & CGI_ExecutablePath
    Select Case sSelector
        Case ""                 ' No "selector", list choices
            Send ("<H2>Choices:</H2>")
            Send (LinkStart & "/students"">List of students</A><BR>")
            Send (LinkStart & "/frm_Enroll"">Enroll a student</A><BR>")
            Send (LinkStart & "/frm_Dismiss"">Dismiss a student</A><P>")
            
            Send (LinkStart & "/classes"">List of classes</A><BR>")
            Send (LinkStart & "/frm_Add"">Add a class</A><BR>")
            Send (LinkStart & "/frm_Del"">Delete a class</A><P>")
            
            Send (LinkStart & "/frm_cl4st"">Classes for student</A><BR>")
            Send (LinkStart & "/frm_st4cl"">Students in class</A><BR>")
            Send (LinkStart & "/frm_Take"">Take a class</A><BR>")
            Send (LinkStart & "/frm_Drop"">Drop a class</A><BR>")
        
        
        Case "STUDENTS"         ' List all students
            Send ("<H2>Students:</H2>")
            Set ds = db!Students.OpenRecordset(dbOpenTable)
            Do Until ds.EOF
                Send (ds("Name") & " (" & ds("Major") & ")<BR>")
                ds.MoveNext
            Loop
            ds.Close

        Case "FRM_ENROLL":       ' Send Enroll Student form
            Send ("<H2>Enroll a Student</H2>")
            Send ("<FORM METHOD=""POST"" ACTION=""" & CGI_ExecutablePath & "/enroll"">")
            Send ("Name: <INPUT TYPE=TEXT NAME=""Name""><BR>")
            Send ("Major: <INPUT TYPE=TEXT NAME=""Major"">")
            Send ("<P><INPUT TYPE=SUBMIT VALUE=""Enroll"">")
            Send ("</FORM>")

        Case "FRM_DISMISS":      ' Send Dismiss Student form
            Send ("<H2>Dismiss a Student</H2>")
            Send ("<FORM METHOD=""POST"" ACTION=""" & CGI_ExecutablePath & "/dismiss"">")
            OptionList "Student", "Students", "Name"
            Send ("<P><INPUT TYPE=SUBMIT VALUE=""Dismiss"">")
            Send ("</FORM>")

        Case "CLASSES"          ' List all classes
            Send ("<H2>Classes:</H2>")
            Set ds = db!Classes.OpenRecordset(dbOpenTable)
            Do Until ds.EOF
                Send (ds("ClassName") & " (" & ds("Instructor") & ")<BR>")
                ds.MoveNext
            Loop
            ds.Close

        Case "FRM_ADD":         ' Send Add Class form
            Send ("<H2>Add a Class</H2>")
            Send ("<FORM METHOD=""POST"" ACTION=""" & CGI_ExecutablePath & "/add"">")
            Send ("Class Name: <INPUT TYPE=TEXT NAME=""ClassName""><P>")
            Send ("Instructor: <INPUT TYPE=TEXT NAME=""Instructor"">")
            Send ("<P><INPUT TYPE=SUBMIT VALUE=""Add Class"">")
            Send ("</FORM>")

        Case "FRM_DEL":         ' Send Delete Class form
            Send ("<H2>Delete a Class</H2>")
            Send ("<FORM METHOD=""POST"" ACTION=""" & CGI_ExecutablePath & "/del"">")
            OptionList "Class", "Classes", "ClassName"
            Send ("<P><INPUT TYPE=SUBMIT VALUE=""Delete Class"">")
            Send ("</FORM>")

        Case "FRM_CL4ST":       ' Send Classes for Student form
            Send ("<FORM METHOD=""POST"" ACTION=""" & CGI_ExecutablePath & "/cl4st"">")
            OptionList "Student", "Students", "Name"
            Send ("<P><INPUT TYPE=SUBMIT VALUE=""List Classes"">")
            Send ("</FORM>")

        Case "FRM_ST4CL"        ' Send Students in Class form
            Send ("<FORM METHOD=""POST"" ACTION=""" & CGI_ExecutablePath & "/st4cl"">")
            OptionList "Class", "Classes", "ClassName"
            Send ("<P><INPUT TYPE=SUBMIT VALUE=""List Students"">")
            Send ("</FORM>")

        Case "FRM_TAKE":        ' Take a class
            Send ("<FORM METHOD=""POST"" ACTION=""" & CGI_ExecutablePath & "/take"">")
            OptionList "Student", "Students", "Name"
            Send ("<P>")
            OptionList "Class", "Classes", "ClassName"
            Send ("<P><INPUT TYPE=SUBMIT VALUE=""Take Class"">")
            Send ("</FORM>")

        Case "FRM_DROP":        ' Drop a class
            Send ("<FORM METHOD=""POST"" ACTION=""" & CGI_ExecutablePath & "/drop"">")
            OptionList "Student", "Students", "Name"
            Send ("<P>")
            OptionList "Class", "Classes", "ClassName"
            Send ("<P><INPUT TYPE=SUBMIT VALUE=""Drop Class"">")
            Send ("</FORM>")

        Case Else:
            Send ("<H2>Bad GET selector """ & sSelector & """</H2>")

    End Select

End Sub