<% lineArr = Split( ",あ,か,さ,た,な,は,ま,や,ら,わ", ",", 11) if (IsNull(Request.Form("name_select")) = True or Request.Form("name_select") = "") then ' 選択データがない場合は、とりあえず0を入れておく ' select_no = 0 else select_no = Request.Form("name_select") end if ' ADOオブジェクトの生成 ' Set objADO = Server.CreateObject("ADODB.Recordset") ' DB情報の生成 ' Con = "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _ Server.MapPath("/newcomer/") & ";" if select_no = 0 then SQLstr = "SELECT * FROM newcomer_list.csv WHERE new_flg = 1 ORDER BY act_name" else SQLstr = "SELECT * FROM newcomer_list.csv WHERE first_kana = '" & lineArr(select_no) & "' ORDER BY act_name" end if ' データ取得 ' objADO.Open SQLstr, Con, 3 rec_count = objADO.RecordCount ' 検索一覧表示出来るようにアダルトフラグを立てておく ' Response.Cookies("CookAduf")="1" %>

Tweet <% if rec_count = 0 then %> <% else %> <% if select_no = 0 then %> <% else %> <% end if %> <% end if %> <%=lineArr(select_no)%>行 登録がありません 最新の新人女優 <%=lineArr(select_no)%>行 <% if rec_count <> 0 then %> <% for idx = 0 to rec_count - 1 %> <% if idx = 0 then %> <% elseif idx mod 5 = 0 then %> <% end if %> <% objADO.MoveNext %> <% next %> <% if idx mod 5 > 0 then %> <% for idx2 = idx to 5 %> <% next %> <% end if %> <% objADO.Close %> <% SET objADO = Nothing %> <%=objADO.Fields("act_name")%> <% end if %>