<% newsql = "select * from news where active ='1' order by id desc" set rs=conn.execute(newsql) dim a a=1 %>

Stay on top of the latest news in the Hospitality Industry.


<% while not rs.eof if a>4 and a<9 then %>

<%=rs("title")%>

<%=Replace(rs("description"), vbCrLf,"
")%>

<% rs.movenext a=a+1 else rs.movenext a=a+1 end if wend %>