Sub CGI_Main()
    sSelector = UCase$(Mid$(CGI_LogicalPath, 2))    ' Remove leading "/"

    Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\dbsample.mdb")

    Send ("Content-type: text/html")
    Send ("X-CGI-prog: WebSite Access Demo V1.2 (VB4/32)")
    Send ("")

    Select Case UCase$(CGI_RequestMethod)
        Case "GET":
            DoGet
        Case "POST":
            DoPost
        Case Else:
            Send ("<H2>Cannot do """ & CGI_RequestMethod & """ method</H2>")
    End Select

    db.Close

End Sub