dim Topic,col
set Topic=server.createobject("adodb.recordset")
searchstr="select * from topics where "
for j=0 to 1
for i=1 to len(request.form("checktext"))
if j=0 then
searchstr=searchstr &"title like '%"& Mid(request.form("checktext"),i,1) &"%' or "
else
if i<len(request.form("checktext")) then
searchstr=searchstr &"message like '%"& Mid(request.form("checktext"),i,1) &"%' or "
else
searchstr=searchstr &"message like '%"& Mid(request.form("checktext"),i,1) &"%'"
end if
end if
next
next
Topic.open searchstr,conn,1,1