<% mysql="SELECT * FROM NoticeDetails" set Con=Server.CreateObject("ADODB.Connection") Con.open Application("ConStr") set rs=Con.Execute(mysql) if not rs.eof then %> <% do while not rs.eof %> <% rs.movenext loop %>

<% response.write rs("n_title") %>

<% else %>

No events

<% end if rs.close Con.close %>