% Set BD = Server.CreateObject("ADODB.Connection") BD.Open "josateruel.com.josa3" Set BaseDatos = Server.CreateObject("ADODB.Recordset") %>