<% Dim cn, rs, i, strSQL Dim RecCount Dim pi Dim t Dim strNM Dim strKWD strKWD = "‘�ˆî“c" strSQL = "SELECT KBN,ID,NAME FROM ZENBUN WHERE CONTENTS LIKE '%"& strKWD &"%'" Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Session("MDB_A") & ";" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, cn, 1, 1 Do Until rs.EOF Response.Write rs.Fields("ID") Response.Write ":" Response.Write rs.Fields("NAME") Response.Write "
" 'Response.Write rs.Fields("ISEKI_CH_ID") rs.MoveNext Loop %>