?<%@ language=VBScript CODEPAGE=65001 %> <% Session.CodePage=65001 %> アレクシエーヴィチ著作集 ロシア語書店日ソ(ロシア・CIS諸国の本と雑誌、CD、DVD)

<% Dim act act = Request("act") %> <% Select Case act Case "Addcart" Call AddCart End Select %> <% '======================================================================= 'CartTableテーブルへのデータの追加 '====================================================================== Sub AddCart() '送られてた情報を変数に代入する Dim sCTRL_NO, sTitle, sPrice, adCMDText, strInsert, strValues, Cnn, Cmd, sTCODE sCTRL_NO = Request.QueryString("ID") sTCODE = Request.QueryString("TCODE") sTitle = Request.QueryString("タイトル") sPrice = Request.QueryString("PRICE") adCMDText=1 strInsert = "INSERT INTO CartTable (SessionID, 図書番号, カタログ番号, タイトル, Price) " strValues = " Values('" & Session.SessionID & "', '" & sCTRL_NO & "', '" & sTCODE & "', '" & sTitle & _ "', '" & sPrice & "' )" strInsert = strInsert & " " & strValues 'データベースに接続する Set Cnn = Server.CreateObject("ADODB.Connection") Cnn.Open "DSN=Shopping" 'Commandオブジェクトを作成する Set Cmd = Server.CreateObject("ADODB.Command") 'Commandオブジェクトのプロパティを設定する Set Cmd.ActiveConnection = Cnn Cmd.CommandText = strInsert Cmd.CommandType = adCmdText 'コマンドの実行 Cmd.Execute Cnn.Close Set Cnn = Nothing Set Cmd = Nothing Response.Redirect "search.asp?act=AddCart&iPageNum=" & Request("iPageNum") & "&eng=" & Request("eng") & "" End Sub %>