<% dim rs set rs=conn.exec("select * from aspcms_content where sortid=10") if not rs.eof Then While Not rs.eof %> <%=rs("title")%> <% rs.movenext Wend End If %>