<%
dim connect, rs, sql, i, nkey, newtmpch
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\tempdb.mdb"))
sql = "select * from tempfile where (tmpch like '%" & request.form("keych") & "%')"
set rs = connect.execute(sql)
i = 1
do while not rs.eof
  nkey = "<b>" & request.form("keych") & "</b>"
  ' คำสั่ง replace ช่วยสั่งแทนที่ข้อความ ด้วยสิ่งที่ค้นหา และแทนด้วยค่าใหม่
  newtmpch = replace(rs("tmpch"),request.form("keych"),nkey)
  response.write(i&". "&newtmpch&" - "&rs("tmpnum")&" - "&rs("tmpdate")&"<br>")
  i = i + 1
  rs.movenext
loop
connect.close
set rs = nothing
set connect = nothing
%>