;;; select-database.mhtml: -*- Meta-HTML -*-  DESCRIPTIVE TEXT.
;;;
;;;  Copyright (c) 1997 Brian J. Fox
;;;  Author: Brian J. Fox (bfox@ai.mit.edu) Thu May 15 01:01:07 1997.

<if <get-var posted::database>
    <set-session-var gsql::database=<get-var database>>>
<redirect welcome.mhtml>



