<% dim keyword keyword= trim (replace (Request.Form ("keyword"),"'","`")) 'Response.Write keyword %>

<% if not keyword="" then %> <% set objRs1 = server.CreateObject ("ADODB.Recordset") set strconn= server.CreateObject("ADODB.Connection") strPath = server.MapPath ("../db/proj.mdb") strconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strPath strSQL = "SELECT * FROM English1 WHERE (keyword LIKE '%" & keyword &"%') or (keyword LIKE '%" & keyword &"%')" set objRS1 =strconn.Execute (strSQL) %> <% if not objRS1.EOF then %> <% while not objRs1.EOF %> <%objRs1.MoveNext wend else %> <%Response.Write " sorry search Result is empty "%> <%end if else %> <%Response.Write " please enter keyword search "%> <%end if %>

<% Response.Write " search Result "%>

"><%=objRs1("viewword")%>