% if session("admin_name")="" then response.end %> <% dim sql, rs Set rs= Server.CreateObject("ADODB.Recordset") sql="select title,id,msg from pub order by id desc " rs.open sql,conn,1,1 %>