Error ADODB.Field (0x800A0BCD)
Publicado por Juan (6 intervenciones) el 06/11/2002 14:11:09
Estoy realizando una pagina en ASP con una conexión ODBC a una BD de Visual Fox Pro y me da el siguiente error:
Tipo de error:
ADODB.Field (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/Principal.asp, line 33.
-----------------------------------------------------------------------------------------------
El Codigo de la página es el siguiente(el error esta en: "nombre=rstAux("nombre")"):
Aqui empieza:
<% if session("IdCliente")="" and session("IdDemo")="" then response.redirect "Default.asp"%>
<!--#include file="funciones/conexion.inc"-->
<%
Dim sql 'as string
Dim rstAux 'as object
Dim rstAux2 'as object
Dim rstConcursos 'as object
Dim nombre 'as string
Dim pagina 'as integer
Dim concursos 'as boolean
Dim relacion 'as string
Dim fecha1 'as string
Dim fecha2 'as string
Dim valor1 'as string
Dim valor2 'as string
Dim tema 'as string
Dim codigo 'as string
set rstAux=server.createobject("ADODB.recordset")
set rstAux2=server.createobject("ADODB.recordset")
set rstConcursos=server.createobject("ADODB.recordset")
if request.querystring("A")<>"1" and session("IdCliente")<>"" then
codigo=session("IdCliente")
end if
if request.querystring("A")="1" and session("IdDemo")<>"" then
codigo=session("IdDemo")
end if
sql="select * from clientes where codigo='" & codigo & "'"
rstAux.Open sql,conexion
Tipo de error:
ADODB.Field (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/Principal.asp, line 33.
-----------------------------------------------------------------------------------------------
El Codigo de la página es el siguiente(el error esta en: "nombre=rstAux("nombre")"):
Aqui empieza:
<% if session("IdCliente")="" and session("IdDemo")="" then response.redirect "Default.asp"%>
<!--#include file="funciones/conexion.inc"-->
<%
Dim sql 'as string
Dim rstAux 'as object
Dim rstAux2 'as object
Dim rstConcursos 'as object
Dim nombre 'as string
Dim pagina 'as integer
Dim concursos 'as boolean
Dim relacion 'as string
Dim fecha1 'as string
Dim fecha2 'as string
Dim valor1 'as string
Dim valor2 'as string
Dim tema 'as string
Dim codigo 'as string
set rstAux=server.createobject("ADODB.recordset")
set rstAux2=server.createobject("ADODB.recordset")
set rstConcursos=server.createobject("ADODB.recordset")
if request.querystring("A")<>"1" and session("IdCliente")<>"" then
codigo=session("IdCliente")
end if
if request.querystring("A")="1" and session("IdDemo")<>"" then
codigo=session("IdDemo")
end if
sql="select * from clientes where codigo='" & codigo & "'"
rstAux.Open sql,conexion
Valora esta pregunta


0