<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content %> <% = HtmlHeader("") %>

<% 'Response.Write(DefFolder) Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp');", "システム情報", "tblbtn('/" & HomeAlias & "/admin/kihon/fm_kihon_view.asp');", "元号の設定" , "", "", "", "", "", "", "")) Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn('/" & HomeAlias & "/admin/kihon/fm_kihon_view.asp');", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("元号マスタ", "設定")) %>

<% Query = " SELECT * FROM TC9元号M WHERE システムCD = '" & GB_SystemCD & "' ORDER BY 開始日 DESC " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("元号") <> "" And "" & Content.Fields("開始日") <> "" Then %> <% End If Content.MoveNext Loop %>

	元号	開始年月日
新規
');">	" size="9" value="<% = Content.Fields("元号") %>" onBlur="FormStrLeftIME(this,8,true);" class="tbox4_ime">	" size="12" value="<% = SetTimeYYYYMMDD(Content.Fields("開始日")) %>" onkeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, false);" class="tbox4">	');">

<% = HtmlFooter %> <% End Sub %>