% '/****************************************** '/* 入力情報について '/* Request.Form("ent") = 入力判別 '/* Request.Form("kikaku") = 規格(A4 or B5) '/* Request.Form("color") = 印刷色(1色 or 2色) '/* Request.Form("page") = ページ数 '/* Request.Form("number") = 印刷部数 '/****************************************** '/* ローカル変数の定義 Dim varKikaku,varColor,varPage,varNumber Dim varSappan,varInsatsu,varYoushi,varSeihon '/****************************************** '/****************************************** '/* 処理区分の判別 ent = Request.Form("ent") '/****************************************** If Request("ent") = "estimate" Then '/************************************** '/* 入力チェック:ラジオボタンなのでチェックなし '/************************************** '/************************************** '/* 入力情報のコピー '/************************************** varKikaku=Request.Form("kikaku") varColor=Request.Form("color") varPage=Request.Form("page") varNumber=Request.Form("number") '/************************************** '/* データベース・レコードセットの定義 '/************************************** Set adcn=Server.CreateObject("ADODB.Connection") Set adrs_print=Server.CreateObject("ADODB.Recordset") Set adrs_number=Server.CreateObject("ADODB.Recordset") Set adrs_kikaku=Server.CreateObject("ADODB.Recordset") %> <% '/************************************** '/* クエリーの定義 '/************************************** varSql_print="select * from tbl_data_print where " &_ "規格コード='" & varKikaku & "' AND " &_ "印刷色コード='" & varColor & "' AND " &_ "ページ数=" & varPage varSql_number="select * from tbl_mst_number where " &_ "印刷部数コード='" & varNumber & "'" varSql_kikaku="select * from tbl_mst_kikaku where " &_ "規格コード='" & varKikaku & "'" '/************************************** '/* データベースオープン '/************************************** adcn.Provider = "Microsoft.Jet.OLEDB.4.0" adcn.Open "Data Source=E:\Inetpub\wwwroot\website\marunaka-print\ow8\print.mdb" %> <% adrs_print.Open varSql_print, adcn, 3, 1, 1 %> <% adrs_number.Open varSql_number, adcn, 3, 1, 1 %> <% adrs_kikaku.Open varSql_kikaku, adcn, 3, 1, 1 %> <% '/* 刷版 = 版数 * 2000 varSappan=adrs_print("刷版")*2000 '/* varInsatsu=adrs_print("印刷")*adrs_number("単価") varYoushi=((adrs_print("用紙")*adrs_number("印刷部数"))*1.05)*adrs_kikaku("単価") varSeihon=adrs_number("印刷部数")*adrs_print("製本") varTotal=(varSappan+varInsatsu+varYoushi+varSeihon)*1.05 %> <% End If %>