<%
'
%>
<%
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
%>
<% = AppTitle %>
<% = PrintScriptX %>
<%
Response.Write(KyuyoMeisai(EnshuCD, KaisyaCD, DbSyainNo, Seq, 0, 1, ShikyuKubun, ShikyuNenGetsu, 0))
%>
<% = HtmlFooter %>
<%
End Sub
%>