<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim Shihyo Shihyo = Request("Shihyo") Dim PageType PageType = "安全性の分析" %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% = PrintHeader(0, PageType) %> <% = Bunseki_Anzensei(EnshuCD, KaisyaCD, Shihyo, 0, 1) %> <% = PrintFooter() %> <% = HtmlFooter %> <% End Sub %>