Ver Mensaje Individual
  #1 (permalink)  
Antiguo 13/03/2003, 07:48
tarlipes
 
Fecha de Ingreso: diciembre-2002
Ubicación: argentina... de ahí seran veinte cuadras
Mensajes: 382
Antigüedad: 22 años, 4 meses
Puntos: 0
Desacuerdo recordset err

Por que me da el sig error?:

ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed.

/INTERBASE/busqueda.asp, line 356



<!--#include file= "interbaseconnection.asp" -->
<html>
<body>
<%
NROACCESO = REQUEST.FORM("NROACCESO")
CODTAXON = REQUEST.FORM("CODTAXON")

set objconn = server.createobject("adodb.connection")
set objrs = server.createobject("adodb.recordset")

strsql = "select * from DBREGTO "
boolWhere = false
if NROACCESO <> "" THEN
strsql=strsql & "WHERE NROACCESO LIKE '%"&NROACCESO&"%'"
boolwhere =True
END IF

if CODTAXON <> "" THEN
if boolwhere then
strsql=strsql & " AND CODTAXON LIKE '%"&CODTAXON&"%'"
ELSE
strsql=strsql & "WHERE CODTAXON LIKE '%"&CODTAXON&"%'"
boolwhere=True
END IF
END IF
bla.. bla......

%>
<TABLE>
<TR>

<TH>NROACCESO</TH>
<TH> CODTAXON</TH>

</font></TR>
<%
While Not objrs.EOF
%>

<TR BGCOLOR=<%= COLOR%>><TH><%= objRS("NROACCESO")%> </TH>

<TH><%= objrs("GENEROESPSUBESPECIE")%></TH>
<TH><%= objrs(" RAZA")%></TH>

<%
objrs.MoveNext
Wend

SET objrs=objConn.Execute(strsql) ' linea 356
%></TABLE><%

objrs.Close
objconn.Close
Set objrs = Nothing
Set objconn = Nothing
%>
</TABLE>
__________________
Juan Pablo