% dim rs, rs1,sql,rsCate Set rs = Server.CreateObject("ADODB.Recordset") Set rs1 = Server.CreateObject("ADODB.Recordset") set rsCate = Server.CreateObject("ADODB.Recordset") %>