<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim DbSyainNo Dim SyainNo DbSyainNo = Request("DbSyainNo") SyainNo = Request("SyainNo") Dim Action Action = Request("Action") Dim Seq Seq = Request("Seq") Dim ShikyuKubun ShikyuKubun = Request("ShikyuKubun") Dim ShikyuNenGetsu ShikyuNenGetsu = Request("ShikyuNenGetsu") Dim Query Dim Content %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Response.Write(KyuyoMeisai(EnshuCD, KaisyaCD, DbSyainNo, Seq, 0, 1, ShikyuKubun, ShikyuNenGetsu, 0)) %> <% = HtmlFooter %> <% End Sub %>