(0x800A01A8) se requiere un objeto: "

Desde ese punto de vista, el problema puede estar en que el recordset lo
declaras o instancias dentro de tu SUB. Como aparentemente no esta declarado
de forma global, al salir de la funcion este objeto ya no existe.

Puedes colocar algo asi:

<%
Dim RSS

sub conexion
MM_ORACLEDATABASE_STRING = "Provider=oraOLEDB.ORACLE;User
ID=XXX;Password=XXXX;Data source=XXX.XXX.XX.XX;"
set RRS = SERVER.CREATEOBJECT("ADODB.RECORDSET")
sql= "select tablespace_name from dba_tablespaces"
RRS.OPEN sql,MM_ORACLEDATABASE_STRING,3,3
end sub
%>

Saludos.

Matías Iacono
Microsoft MVP ASP/ASP.net
DCE3 v.2003 - DCE2 v.2005
Coordinador de evento Comunidad MSDN Bolivia
"Boris Valladares" escribió en
el mensaje news:

Gracias por contestar mis consultas.
hice lo que los compañeros amablemente me especificaron pero sigo con el
mismo error, marqué la línea donde me da el error.
Gracias

form name="listasdep" action= "matriz.asp" method= "post">
<select name "combo1" onchange="document.listasdep.submit();">
<option value=0></option>
<option value=1>SERV1</option>
<option value=2>SERV2</option>
</select>
<select name= "combo2">
<%
call conexion
do while not rrs.eof <-- justamente en esta línea me da el error
%>
<%nomta = RRS("tablespace_name")%>
<option value="<%=RRS("tablespace_name")%>">
<% if cuenta=1 then
SELECTED
end if
%>
</option>

<%
rrs.movenext
loop
RRs.close()
set RRS = nothing
%>
</select>
</form>