<%
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
%>
จำนวน : 20 บรรทัด