<!-- #include file="./include.asp" -->
<%
'<!--
'################################################
' 名称 ：小野テスト
' 作成日：2006/11/14
' 作成者：小野
' 目的 ：テスト
' 概要 ：
' <<表示>>
' ・
' <<入力チェック>>
' ・
'################################################
'-->
'
%>
<%
main()
Sub main()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="./binx/sj3web.css" rel="stylesheet" type="text/css">
<title>クエリテスト</title>
<script language="JScript" src="./include.js"></script>
<script language="JScript" src="./includesj.js"></script>
<script language="JScript.Encode" src="./include_enc.js"></script>
<script language="JScript.Encode" src="./includesj_enc.js"></script>
<% Response.Write("<script type=""text/javascript"" src=""./javascript.js?" & TimeUniq() & """></script>" & vbCrLf) %>
</head>
<body>
<%
dim Query
dim i,ct,s,tdal
dim BunsyoSyuruiCD
dim TegataJyotaiKubun
dim AutoFlg
dim Target
dim KaikeiKaishibi
dim KaikeiSyuryobi
dim GyoshuKubun
dim SaimokuKubun
'↓↓↓クエリに必要な引数の変数を入力
GB_SystemCD = "SFC"
EnshuCD = "wada"
KaisyaCD = "wada"
BunsyoSyuruiCD = "wada"
AutoFlg = "wada"
GakuseiNo = "wada"
Target = "061024hh"
GakuseiNo="HARUMI"
KaisyaCD="K001-HARUMI"
BunsyoSyuruiCD="TK"
AutoFlg = "0"
GB_SystemCD = "SFC"
EnshuCD = "SYS00002"
KaisyaCD = "wada"
BunsyoSyuruiCD = "wada"
AutoFlg = "wada"
GakuseiNo = "SJ4ADMIN"
Target = "061024hh"
EnshuCD="collabo"
GakuseiNo="ONO"
KaisyaCD="HOSAKA"
BunsyoSyuruiCD="TY"
AutoFlg = "0"
GB_GyosyuKubun = "S"
GyoshuKubun = "S"
SaimokuKubun = "%"
KaikeiKaishibi = "2006/4/1" '会計開始日
KaikeiSyuryobi = "2007/3/31" '会計終了日
TegataJyotaiKubun="TU"
EnshuCD="061109hhD"
'↑↑↑クエリに必要な引数の変数を入力
'↓↓↓呼び出したいクエリを貼り付ける
'Query = "exec SPR文書番号一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
'Query = "select * from TGA手形F where システムCD= '" & GB_SystemCD & "' and 演習CD= '"& EnshuCD &"' and 会社CD= '"& KaisyaCD &"' and 作成会社CD= '"& KaisyaCD &"' and 文書種類CD= '"& BunsyoSyuruiCD &"' and 振出人CD= '"& KaisyaCD &"' "
'Query = "exec SPK手形取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & TegataJyotaiKubun & "', '" & BunsyoSyuruiCD & "'"
'Query = "exec SPR文書番号一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
'Query = "exec SPM会社一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '1'"
'Query = "exec SPK手形一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TX', '" & BunsyoSyuruiCD & "'"
'Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
'Query = "SELECT * FROM TDA勘定科目M WHERE 演習CD = '" & EnshuCD & "'"
'Query = "exec SPM記帳チェック '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
'Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
'Query = "exec SPM演習一覧 '" & GB_SystemCD & "',2"
'Query = "SELECT 演習CD FROM TC2演習M" '演習一覧配列作成
'Query = "SELECT 会社CD FROM TDA会社M WHERE 演習CD = '061024hh'" '演習単位の会社一覧配列作成
'Query = "SELECT 業種CD FROM TDA会社M WHERE 演習CD = '061024hh' AND 会社CD = 'HOSAKA'"
'Query = "SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD='" & GB_SystemCD & "' AND 演習CD='" & EnshuCD & "' AND 業種CD='" & GB_GyosyuKubun & "'"
'Query = "exec SPK帳簿_仕訳日記帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'Query = "exec SPK自動転記帳簿_仕訳帳照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "'"
'Query = "exec SPK自動転記帳簿_仕訳帳照会_伝票貸方 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "','0604003'"
'Query = "exec SPK帳簿_仕訳日記帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'Query = "exec SPN受信文書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
'Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', 'KU'"
'Query = "SELECT * FROM COLLABOLIST WHERE 電話帳名='" & ChrW(&h69) & "'"
'Query = "UPDATE COLLABOLIST SET 電話帳名 = '" & ChrW(&hFF) & "' WHERE 方式 = '1' AND APP種類 = '1' AND 学校コード = '0123' AND 演習コース = '23237j-001' AND 生徒ID = 'ONO2'"
'Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Query = "exec SPM勘定科目詳細一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GyoshuKubun & "','" & SaimokuKubun & "'"
Query = "exec SPV選択可能会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '0'"
Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 2"
Query = "exec SPK自動転記帳簿_合計残高試算表照会 '" & GB_SystemCD & "','" & GB_EnshuCD & "', '" & GB_KaisyaCD & "','" & GB_KaikeiKaishibi & "','" & GB_KaikeiSyuryobi & "'"
Query = "exec SPK帳簿_株主資本等変動計算書取得 'SFC', '00', 'ONO'"
Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Query = "exec SPK契約書取得 '" & GB_SystemCD & "', '0', 'K001-ONO', 'XK', '%', 'K001-ONO', 'S'"
Query = "exec SPK契約書一覧 '" & GB_SystemCD & "', '0', 'K001-ONO', 'XK', 'S'" '自社が乙の寄託契約書一覧
Query = "exec SPD入出庫一覧 'SFC','0', 'K005-ONO', '', 'SU'"
Query = "exec SPR入出庫在庫明細 'SFC','061109hhD', 'K001-HOSAKA','S001','2007/3/31'"
Query = "exec SPR入出庫在庫明細 'SFC','sj4t', 'WAX','S001','2008/3/31'"
'Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','061109hhD', 'K001-ONO','2007/3/31'"
'Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','0', 'K002-ONO '"
Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','0000','1', '" & GB_GakuseiNo & "'"
Query = "exec SPK伝票_入金伝票取得 '" & GB_SystemCD & "','0000','K001', '0704001'"
Query = "exec SPK自動転記帳簿_総勘定元帳照会 '" & GB_SystemCD & "','sj4t', 'WAX','8111','','2007/4/1','2008/3/31'"
Query = "exec SPM記帳チェック商品 '" & GB_SystemCD & "','061109hhD','H003-HOSAKA'"
Query = "exec SPM記帳チェック一覧 '" & GB_SystemCD & "','061109hhD'"
Query = "exec SPK手形一覧 '" & GB_SystemCD & "','061109hhD', 'HOSAKA', 'TU', 'TG'"
Query = "exec SPK手形顛末済一覧 '" & GB_SystemCD & "','061109hhD','HOSAKA', 'K003-HOSAKA', ''"
Query = "exec SPM記帳チェック '" & GB_SystemCD & "','061109hhD','HOSAKA'"
Query = "exec SPK自動転記帳簿_仕訳集計表照会 '" & GB_SystemCD & "','HOSHI-TEST4', 'HOSHI', '2006/4/1'"
Query = "exec SPK自動転記帳簿_仕訳集計表照会FromTo '" & GB_SystemCD & "','HOSHI-TEST4', 'HOSHI', '2006/4/1', '2006/4/13'"
Query = "exec SPK手形一覧 '" & GB_SystemCD & "','061109hhD', 'HOSAKA', 'TX', ''"
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "', '061109hhD', 'HOSAKA', '0604007'"
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "', 'HOSHI-TEST4', 'HOSHI', '0604010'"
'Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "', 'HOSHI-TEST4', 'HOSHI'"
'Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "', '061109hhD', 'HOSAKA'"
Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','HOSHI-TEST4','HOSHI'"
Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','0','ONO'"
Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','0', ''"
Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "','00','K001-ONO', '', 'SU', '1'"
Query = "exec SPD入出庫取得4 'SFC','sfcd005','K007-ONO', 'K007-ONO', 'SS', '2'"
Query = "exec SPV選択可能会社一覧 'SFC','0', 'ONO', '0'"
Query = "exec SPD仕入売上書類一覧 'SFC','0','K001-ONO', 'K001-ONO', 'KU'"
Query = "exec SPB銀行口座一覧2 '" & GB_SystemCD & "','hoshi-BKtst1', '', 'K003-HOSHI', '', 'HOSHI'"
Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','0', 'K004-ONO', '', 'BF'"
Query = "exec SPD寄託商品明細一覧 '" & GB_SystemCD & "','070817kitaku','K009-ONO'"
Query = "exec SPK自動転記帳簿_合計残高試算表照会 '" & GB_SystemCD & "','061109hhD', 'HOSAKA','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "'"
Query = "exec SPK補助簿_買掛金元帳取得_取引先別残高一覧 '" & GB_SystemCD & "','061109hhD', 'HOSAKA'"
Query = " select TDA会社M.演習CD, TC2演習M.演習名称, TDA会社M.会社CD, TDA会社M.会社名称, TC9区分M.区分名称, TC6演習履歴M.学生番号, TC5学生M.パスワード "
Query = Query & " from TDA会社M "
Query = Query & " LEFT OUTER JOIN TC6演習履歴M "
Query = Query & " ON TC6演習履歴M.選択会社CD = TDA会社M.会社CD "
Query = Query & " AND TC6演習履歴M.演習CD = TDA会社M.演習CD "
Query = Query & " LEFT OUTER JOIN TC5学生M "
Query = Query & " ON TC5学生M.学生番号 = TC6演習履歴M.学生番号 "
Query = Query & " LEFT OUTER JOIN TC9区分M "
Query = Query & " ON TC9区分M.データ識別 = '業種CD' "
Query = Query & " AND TC9区分M.区分CD = TDA会社M.業種CD "
Query = Query & " LEFT OUTER JOIN TC2演習M "
Query = Query & " ON TC2演習M.演習CD = TDA会社M.演習CD "
Query = Query & " WHERE TC6演習履歴M.演習CD IN ('h19-a', 'h19-b', 'h19-c', 'h19-d') "
Query = Query & " ORDER BY TC2演習M.演習CD, TDA会社M.会社CD, TC6演習履歴M.学生番号 "
Query = "exec SPK演習手形一覧 'SFC', '0', 'TU', 'TG'"
Query = "exec SPK演習手形一覧 'SFC', '0', 'TU', 'TG'"
Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','0','ONO'"
Query = "exec SPK伝票_出金伝票一覧 '" & GB_SystemCD & "','0', 'K004-ONO'"
Query = "exec SPK自動転記帳簿_財務諸表 '" & GB_SystemCD & "','0g', 'K001-ONO','2008/04/01','2009/03/31','P', 1"
Query = "exec SPK自動転記帳簿_財務諸表 '" & GB_SystemCD & "','0g', 'K001-ONO','2008/04/01','2009/03/31','B', 0"
Query = "exec SPK自動転記帳簿_財務諸表 '" & GB_SystemCD & "','0g', 'K001-ONO','2008/04/01','2009/03/31','P', 1"
Query = "exec SPK自動転記帳簿_財務諸表 '" & GB_SystemCD & "','0g', 'HOSHI','2008/04/01','2009/03/31','P', 1"
Query = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "','0g', 'K001-ONO'"
Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','0g', 'K002-HOSHI', 'K003-HOSHI', 'T', ''"
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','0g', 'K006', '0000000', 'U'"
Query = "exec SPR入出庫在庫明細 '" & GB_SystemCD & "','0g', 'HOSHI','ZH02-HOSHI','2009/3/31'"
Query = "exec SPR材料入出庫在庫単価 '" & GB_SystemCD & "','0g', 'HOSHI'"
Query = "exec SPD製造指図書一覧 '" & GB_SystemCD & "','0g', 'HOSHI'"
Query = "exec SPK自動転記帳簿_財務諸表2 '" & GB_SystemCD & "', '0g', 'HOSHI','2008/4/1','2009/3/31','P', 0"
Query = "exec SPD製造指図書取得 '" & GB_SystemCD & "','0g', 'HOSHI', '1'"
Query = "exec SPK自動転記帳簿_仕訳帳照会 '" & GB_SystemCD & "','0g', 'HOSHI', '2008/4/1', '2009/3/31'"
Query = "exec SPK伝票_売上伝票一覧 '" & GB_SystemCD & "', '0g', 'HOSHI'"
Query = "exec SPK伝票_仕入伝票取得 '" & GB_SystemCD & "', '0g', 'HOSHI', '0804004'"
Query = "exec SPK伝票_売上伝票取得 '" & GB_SystemCD & "', '0g', 'HOSHI', '0804005'"
Query = "exec SPR材料入出庫在庫 '" & GB_SystemCD & "','0g', 'HOSHI','2009/3/31'"
Query = "exec SPR材料入出庫在庫単価 '" & GB_SystemCD & "', '0g', 'HOSHI'"
Query = "exec SPR入出庫在庫明細 '" & GB_SystemCD & "','0g', 'HOSHI','ZH02-HOSHI','2009/3/31'"
Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','0g', 'ONO', 'K003-ONO', 'T', ''"
Query = ""
Query = Query & " SELECT TC0アクセスログ.ログインID, COUNT(TC0アクセスログ.ログインID) AS ログイン回数, TC5学生M.氏名, TC3学生グループM.グループ名称 "
' Query = Query & " SELECT * "
Query = Query & " FROM TC0アクセスログ "
Query = Query & " INNER JOIN TC5学生M "
Query = Query & " ON TC5学生M.システムCD = TC0アクセスログ.システムCD "
Query = Query & " AND TC5学生M.学生番号 = TC0アクセスログ.ログインID "
Query = Query & " AND TC5学生M.パスワード = TC0アクセスログ.ログインパスワード "
Query = Query & " INNER JOIN TC3学生グループM "
Query = Query & " ON TC3学生グループM.システムCD = TC0アクセスログ.システムCD "
Query = Query & " AND TC3学生グループM.学生グループCD = TC5学生M.学生グループCD "
Query = Query & " "
Query = Query & " WHERE TC0アクセスログ.システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND TC0アクセスログ.ログイン試行日時 >= '2008/06/02 00:00:00.00' " 'FromYmd
Query = Query & " AND TC0アクセスログ.ログイン試行日時 <= '2008/06/09 23:59:59.99' " 'ToYmd
Query = Query & " AND TC0アクセスログ.接続成否 > 0 "
Query = Query & " GROUP BY TC0アクセスログ.ログインID, TC5学生M.氏名, TC3学生グループM.グループ名称 "
Query = Query & " "
Query = Query & " "
Dim WhereField
WhereField = "リモートアドレス"
' WhereField = "接続成否"
Query = Query & " SELECT " & WhereField & ", COUNT(" & WhereField & ") AS アクセス回数"
Query = Query & " FROM TC0アクセスログ "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND ログイン試行日時 >= '2008/06/05 00:00:00.00' "
Query = Query & " AND ログイン試行日時 <= '2008/06/10 23:59:59.99' "
Query = Query & " AND 接続成否 > 0 "
Query = Query & " GROUP BY " & WhereField & " "
Query = "exec SPK自動転記帳簿_総勘定元帳照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','4120','K001-HOSHI ','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "'"
Query = "exec SPB銀行取引書類一覧 'SFC','0000', 'K005-ONO', 'K005-ONO', 'BE'"
Query = "exec SPK自動転記帳簿_株主資本等変動計算書照会 'SFC','0000', 'K007-ONO2','2007/04/01','2008/03/31'"
Query = "exec SPK演習出庫非受付一覧 'SFC','0nyu'"
Query = "exec SPB銀行取引書類取得 'SFC','0000', 'ONO', 'ONO', 'BD', '1'"
Query = "exec SPB銀行取引書類取得 'SFC', '0000', 'K003-ONO', 'K003-ONO', 'BR', '2'"
'Query = "exec SPB銀行取引書類取得 'SFC', '0000', 'ONO', 'K003-ONO', 'BR', '2'"
Query = "exec SPB銀行口座一覧2 'SFC', '0', '', '', '', 'K001'"
Query = "exec SPM記帳チェック商品 'SFC','0','K001'"
Query = "exec SPM記帳チェック挿入集計 'SFC','0','K001'"
Query = "exec SPM記帳チェック挿入一覧 'SFC','0','K001'"
Query = "exec SPM記帳チェック挿入一覧 'SFC','kanjyomaster','K001-ONO'"
Query = "exec SPK自動転記帳簿_財務諸表 'SFC','0g', 'HOSHI','2008/04/01','2009/03/31','P', 1"
Query = "exec SPK現金入出金履歴一覧 'SFC','000kyouzai', 'JISSENN'"
Query = "exec SPK自動転記補助簿照会 'SFC','0g', '0N0M1K10', 'AH', '%', '', ''"
Query = "exec SPB銀行口座一覧 'SFC','000kyouzai', '', 'K004-JISSENN', ''"
Query = "exec SPK自動転記帳簿_財務諸表2 '" & GB_SystemCD & "','000kyouzai', 'JISSENN','2007/04/01','2008/03/31','B', 0, 9"
Query = "exec SPK自動転記帳簿_財務諸表 '" & GB_SystemCD & "','000kyouzai', 'JISSENN','2007/04/01','2008/03/31','P', 0, 9"
Query = "exec SPM演習詳細一覧 '" & GB_SystemCD & "','HOSHI'"
Query = "exec SPM演習選択ユーザー一覧 '" & GB_SystemCD & "','0g'"
'Query = "exec SPMユーザー一覧 '" & GB_SystemCD & "','0','%','%','%', '2009/06/25'"
Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','000kyoutst', '', 'K003-ONO', 'T', '2000004'"
Query = "exec SPR分析_収益性情報取得"
Query = Query & " '" & GB_SystemCD & "', '0g'" '演習CD
Query = Query & ",'ono'" '会社CD
Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','000kyoutst', '', '', ''"
Query = "exec SPM会社一覧 '" & GB_SystemCD & "','0000', 2"
Query = "exec SPM部品展開表商品一覧 '" & GB_SystemCD & "', '0g', 'ONO'"
Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','hoshi-genka', 'HOSHI-G','2010/3/31'"
Query = "exec SPM勘定科目詳細一覧全部 'SFC', '000kyoutst', 'S', '%', 0, 'JISSENN'"
Query = "exec SPK自動転記帳簿_合計残高試算表照会 'SFC','0g', 'K001-BOMBER6830','2008/4/1','2009/3/31' ,11, 'S'"
Query = "exec SPK自動転記帳簿_仕訳帳照会 'SFC','0g', 'K001-BOMBER6830','2008/4/1','2009/3/31'"
Query = "exec SPC運送費請求一覧 'SFC','000kyoutst', 'K001-ONO', 'K006-ONO','" & GB_KaikeiSyuryobi & "'"
Query = "exec SPK自動転記補助簿照会 'SFC', 'onotestca', 'ONO', 'AH', '%', '', ''"
Query = "exec SPK自動転記帳簿_合計残高試算表照会 'SFC', '000kyoutst', 'JISSENN ', '2007/4/1', '2008/3/31', 9, ''"
Query = "exec SPM演習_不参加グループ一覧 '" & GB_SystemCD & "','0g'"
Query = "exec SPM記帳チェック一覧 '" & GB_SystemCD & "','000kyoutst'"
Query = "exec SPR入出庫在庫明細仕入売上伝票 '" & GB_SystemCD & "','000kyoutst', 'K001-JISSENN','S001','2008/3/31'"
Query = "exec SPK手形一覧 '" & GB_SystemCD & "','000kyoutst', 'JISSENN', 'TF', 'TY'"
'Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','000kyoutst', 'K001-0401', 'K003-0401', 'BS'"
Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','000kyoutst', 'K003-0401', 'K001-0401', 'BF'"
'Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','nonotegata03', '1304', 'K005', 'BT'"
'Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','nonotegata03', 'K005', '1304', 'BG'"
'Query = "exec SPK手形顛末済一覧 '" & GB_SystemCD & "','000kyoutst','" & KaisyaCD & "', '" & GinkoCD & "', ''"
Query = "exec SPK手形顛末済一覧 'SFC','000kyoutst','K001-JUBE', 'K003-JUBE', ''"
Query = "exec SPK手形一覧 'SFC','000kyoutst', 'K006-JUBE', 'TH', 'TK'"
Query = "exec SPK自動転記補助簿照会 'SFC', 'matu', 'K001', 'AA', '%', '', '' "
Query = "exec SPM記帳チェック商品 'SFC','000kyoutst','ONO'"
Query = "exec SPB銀行口座入出金一覧 'SFC','000kyoutst', 'JUBE', 'K003-JUBE', '', ''"
Query = "exec SPK自動転記補助簿照会 'SFC', '000kyoutst', 'JUBE', 'AD', 'K002-JUBE', '', ''"
Query = "exec SPM記帳チェック一覧 'SFC','SYS00006'"
Query = "exec SPK演習出庫連動入庫一覧 'SFC', 'nono02'"
Query = "exec SPC運送費請求一覧 'SFC','0n0test', 'K006-JIKKYOTEXT', 'JIKKYOTEXT','2013/3/31'"
Query = "exec SPB銀行口座入出金一覧 'SFC','0n0test', 'JIKKYOTEXT', '', '', ''"
Query = "exec SPK伝票_入金伝票取得 'SFC','0n0test','0N0M1K10', '1204002'"
Query = "exec SPB銀行口座一覧3 'SFC', '0n0test'" '演習CD
Query = Query & ",'JIKKYOTEXT'" '会社CD
Query = Query & ",'K003-JIKKYOTEXT'" '銀行CD
Query = Query & ",'T'"
Query = "exec SPM演習選択ユーザー一覧 'SFC','groupmode'"
Query = "exec SPV選択可能会社一覧 'SFC','personalmode', 'ONO', '2'"
'↑↑↑呼び出したいクエリを貼り付ける
Set Content = OpenQuery(Query)
'Set Content = OpenQuery3(Query) 'webcollabodb用
'↓↓↓クエリ結果をテーブル表示
%>
<P>
<TABLE rules="ALL" bgcolor="#b0b0b0" border="0" cellpadding="3" cellspacing="2"><TBODY>
<TR bgcolor="#d0d0d0">
<% '見出し列の表示
For i = 0 To Content.Fields.Count - 1
Response.Write(" <TD>" & Content(i).Name & "</TD>" & vbCrLf)
Next
%>
</TR>
<% '取得結果の表示
Dim TDAlign
Do While Not(Content.EOF Or Content.EOF)
Response.Write(" <TR bgcolor=""#f0f0f0"">" & vbCrLf)
For i = 0 to Content.Fields.Count - 1
If Content(i).Type <> 131 And Content(i).Type <> 139 Then
TDAlign = ""
Else
TDAlign = " align=right"
End If
Response.Write(" <TD" & TDAlign & ">" & Content(i) & "</TD>" & vbCrLf)
next
Response.Write(" </TR>" & vbCrLf)
Content.MoveNext
Loop
%>
</TBODY></TABLE>
</P>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>