<% ' %> <% main() Sub main() Dim Label Label = "摘要管理" If PackageMode = 1 Then Label = "摘要マスター" End If Dim EnshuName Dim Query Dim Content Dim TekiyoCD TekiyoCD = Request("TekiyoCD") If Not(SessionCheck()) Then Exit Sub End If %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) If PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", Label, "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", Label, "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "印刷", "PrintoutReal()", "", "", "", "", "", "")) Response.Write(HttpL3_2("追加", "tblbtn( 'fm_tekiyo.asp?Action=1&EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(Label, "一覧表示")) %>

摘要コード

摘要

<% Dim ii, jj, iiDef ii = 0 iiDef = -1 Query = "exec SPM摘要一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If TekiyoCD = Content.Fields("摘要CD") Then iiDef = ii End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") Content.MoveNext Loop For jj = ii To 30 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>

" & Content.Fields("摘要CD") & "	" & Content.Fields("摘要") & "

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