% ' %> <% 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 %>