% ' ' %> <% main() Sub main() Dim RouteType Dim BunsyoNaiyoCD Dim Mode Dim ii Dim Query Dim Content RouteType = Request("RouteType") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Mode = Request("Mode") Dim Label If Mode = "Shikakari" Then Label = "仕掛品" Else Label = "" End If %> <% = HtmlHeader("") %>
<% If Mode = "Shikakari" Then %>