%response.expires=0%> <% sql = "select * from working where kind = 102" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn,1 %>