<% Dim ii, jj ii = 0 Query = "exec SPD寄託入庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) 'Response.Write(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") Content.MoveNext Loop For jj = ii To 35 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>

") If "" & Content.Fields("処理日") = "" And Content.Fields("寄託受付番号") = 0 Then Response.Write("前期繰越") Else Response.Write(Content.Fields("入庫年月日")) End If Response.Write("	") Response.Write(Content.Fields("処理日")) Response.Write("	") Response.Write(ConvKaisyaMeisyo(Content.Fields("寄託依頼会社CD"))) Response.Write("	") Response.Write(ConvKaisyaMeisyo(Content.Fields("作成会社CD"))) Response.Write("	") If Content.Fields("有効フラグ") = 0 Then Response.Write("未") Else Response.Write("済") End If Response.Write("