% sql="select top 1 deptname,address,shouji,phone,com_from,com_url,fax,zip,email,website from sys_dept where sysname='"&sysname&"' order by flag desc, sortnum asc" wang.open_rs11(sql) set rs = wang.yyrs.clone wang.yyrs.close if not rs.EOF then lx_address = rs("address") lx_shouji = rs("shouji") deptname = rs("deptname") lx_phone = rs("phone") lx_fax = rs("fax") lx_zip = rs("zip") lx_email = rs("email") lx_website = rs("website") lx_com_from = rs("com_from") lx_com_url = rs("com_url") else Response.End end if rs.Close %>