% main() Sub main() Dim Font, MeishiDesignCD Font = Request("Font") MeishiDesignCD = Request("MeishiDesignCD") %>