% Set BD = Server.CreateObject("ADODB.Connection") BD.Open "iconoinformatica.com.agriweb" Set BaseDatos = Server.CreateObject("ADODB.Recordset") Set BaseDatos1 = Server.CreateObject("ADODB.Recordset") sql="SELECT COUNT(*) FROM Usadas WHERE categoria='6'" BaseDatos.Open sql, BD NumOtros = BaseDatos(0) BaseDatos.close %>