% ' %> <% main() Sub main() Dim RouteType, PageType, TorihikisakiCD, MailCD, Mode RouteType = Request("RouteType") PageType = Request("PageType") TorihikisakiCD = Request("TorihikisakiCD") MailCD = Request("MailCD") Mode = Request("Mode") %> <% = HtmlHeader("") %>
<% End Sub %>