<%
'
%>
<%
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
Dim ii
'‰ïŒvŠJŽn”NEŒŽ‚ðŽæ“¾
Dim KaishiNen
Dim KaishiTsuki
Dim TmpKaikeiKaishibi
TmpKaikeiKaishibi = Split(GB_KaikeiKaishibi, "/")
KaishiNen = TmpKaikeiKaishibi(0)
KaishiTsuki = TmpKaikeiKaishibi(1)
For ii = 1 To 3
If Left(KaishiNen, 1) = "0" Then
KaishiNen = Right(KaishiNen, Len(KaishiNen - 1))
End If
Next
If Left(KaishiTsuki, 1) = "0" Then
KaishiTsuki = Right(KaishiTsuki, Len(KaishiTsuki - 1))
End If
KaishiNen = CInt(KaishiNen)
KaishiTsuki = CInt(KaishiTsuki)
'‰ïŒv”N/ŒŽ‚Ì”z—ñ‚ðì¬
Dim KaikeiNenGetsu
ReDim KaikeiNenGetsu(0)
Dim TmpKaikeiNenGetsu
For ii = 1 to 100
TmpKaikeiNenGetsu = Right("000" & KaishiNen, 4) & "/" & Right("0" & KaishiTsuki, 2)
If DateDiff("d", TmpKaikeiNenGetsu & "/01", GB_KaikeiSyuryobi) > -1 Then
ReDim PreServe KaikeiNenGetsu(UBound(KaikeiNenGetsu) + 1)
KaikeiNenGetsu(UBound(KaikeiNenGetsu)) = TmpKaikeiNenGetsu
Else
Exit For
End If
KaishiTsuki = KaishiTsuki + 1
If KaishiTsuki > 12 Then
KaishiTsuki = 1
KaishiNen = KaishiNen + 1
End If
Next
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>