<%
strsql = "select * from item where word5 = 'on' order by word21 desc"
set rs = conn.execute(strsql)
if not (rs.bof or rs.eof) then
do
word1= rs("word1")
word6 = rs("word6")
pic1 = rs("pic1")
if word6 <> "" then
word6 = replace(word6, vbCrlf, " ")
end if
%>
'">
<%=word1%>
<%
rs.movenext
loop while not (rs.bof or rs.eof)
end if
%>