% if (IsNull(Request.Form("act_select")) = True or Request.Form("act_select") = "") then ' 選択データがない場合は、index.htmlへリダイレクト ' Response.Redirect "index.html" else select_act = Request.Form("act_select") end if ' ADOオブジェクトの生成 ' Set objADO = Server.CreateObject("ADODB.Recordset") ' DB情報の生成 ' Con = "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _ Server.MapPath("/newcomer/") & ";" SQLstr = "SELECT * FROM newcomer_list.csv WHERE file_name = '" & select_act & "'" ' データ取得 ' objADO.Open SQLstr, Con, 3 ' 検索一覧表示出来るようにアダルトフラグを立てておく ' Response.Cookies("CookAduf")="1" %>
|