Operation is not allowed when the object is closed

saludos listeros.

Estoy obteniendo este error cuando trato de correr el siguiente codigo.
"Operation is not allowed when the object is closed"

Solo les voy a mostrar el pedazo donde me esta sacando el error, lo demas
lo omití porque no es necesario, como cerrar la conexion y los recordset.

las consultas corren y ejecutan bien.
El error ocurre en esta linea:
esta cinco lineas antes del final:

"if rst2.EOF = false then"



dim strMaxInmueble

'se crean dos rs, rst = select a tlbBienes
' strMax = para obtener el maximo Inmueble
set rst = Server.CreateObject("ADODB.Recordset")
set rst2 = Server.CreateObject("ADODB.Recordset")
set rstMax = Server.CreateObject("ADODB.Recordset")


'Se busca el consecutivo para el negocio
strSQL = "SELECT strNumeroInmueble AS Ninmueble" & _
" FROM tblBienes"

rst.Open strSQL, strRutaConexion
if rst.EOF = true then
strNumeroInmueble = mid(Trim(SessionIdRegional),1,2) & "0001"
else
'ahora obtenemos el máximo número del negocio
strSQL = "SELECT

eble])))) AS Ninmueble" & _
" FROM tblBienes"

rstMax.Open strSQL, strRutaConexion
strMaxInmueble = rstMax.Fields("Ninmueble")
'aumentamos en 1 el negocio
strMaxInmueble = CLng(strMaxInmueble) + 1
'necesitamos concatenar los ceros a la izquierda
if len(strMaxInmueble) = 1 then
strMaxInmueble = "000" & strMaxInmueble
else
if len(strMaxInmueble) = 2 then
strMaxInmueble = "00" & strMaxInmueble
else
if len(strMaxInmueble) = 3 then
strMaxInmueble = "0" & strMaxInmueble
end if
end if
end if
'concatenamos todo para obtener el número negocio final
strNumeroInmueble = mid(Trim(SessionIdRegional),1,2) & strMaxInmueble
end if

strSQL = ""
strSQL = "INSERT INTO tblBienes ( strNumeroInmueble, " & _
" strIdRegional, strNumeroNegocio, strIdTipoInmueble," & _
" bytGrupoInmueble, strEstadoBien, strCuentaConavi," & _
" dblValorConavi, strIdPerito, dblValorAvaluo, dblValorGastos," & _
" strLocalizacion, strUrbanizacion, strMunicipio, strBarrio," & _
" strIdEstrato, lngArea, strMatriculaIn, strIdPiso, " & _
" strIdMuro, strIdTecho, strIdCocina, bytNumeroAlcobas, " & varCampos

" )" & _
" VALUES (" & strNumeroInmueble & ", " & _
" " & strIdRegional & ", " & strNumeroNegocio & ", '" &
strIdTipoInmueble & "'," & _
" '" & bytGrupoInmueble & "', " & strEstadoBien & ", " &
strCuentaConavi & ", " & _
" " & dblValorConavi & ", '" & strIdPerito & "', " & dblValorAvaluo &

" & dblValorGastos & ", " & _
" '" & strLocalizacion & "', '" & strUrbanizacion & "', '" &
strMunicipio & "', '" & strBarrio & "', " & _
" '" & strIdEstrato & "', " & lngArea & ", '" & strMatriculaIn & "',

& strIdPiso & "', " & _
" '" & strIdMuro & "', '" & strIdTecho & "', '" & strIdCocina & "', "

bytNumeroAlcobas & ", " & varValores & ")"

objConx.Execute(strSQL)

'Si el negocio tiene asociado un Bien y una Obligacion, entonces
' se coloca el campo strEstadoNeg de la tabla tblNegocios en 2 > Contabilizado
strSQL = "SELECT tblNegocios.strNumeroNegocio, tblNegocios.strEstadoNeg"

_
"FROM (tblNegocios INNER JOIN tblBienes ON
tblNegocios.strNumeroNegocio" & _
" = tblBienes.strNumeroNegocio) INNER JOIN tblObligaciones ON
tblNegocios.strNumeroNegocio" & _
" = tblObligaciones.strNumeroNegocio" & _
" WHERE tblNegocios.strEstadoNeg = '" & strNumeroNegocio & "'"


objConx.Open strRutaConexion
rst2.Open strSQL, strRutaConexion
if rst2.EOF = false then
strSQL = "UPDATE tblNegocios SET tblNegocios.strEstadoNeg = 2" &

" WHERE strNumeroNegocio = '" & strNumeroNegocio & "'"
objConx.Execute(strSQL)
end if


De antemano os agradezco

leon

Me suena a que alomejor estas tratando de hacer la consultar o insertar
datos, ya habiendo cerrado la conexion, o el recordset...

FF
www.francofigun.com.ar
www.microsofties.com.ar
Yahoo MSN:
ICQ: 314408886

"leon" escribió en el mensaje
news:
> saludos listeros.
>
> Estoy obteniendo este error cuando trato de correr el siguiente codigo.
> "Operation is not allowed when the object is closed"
>
> Solo les voy a mostrar el pedazo donde me esta sacando el error, lo

> lo omití porque no es necesario, como cerrar la conexion y los

>
> las consultas corren y ejecutan bien.
> El error ocurre en esta linea:
> esta cinco lineas antes del final:
>
> "if rst2.EOF = false then"
>
>
>
> dim strMaxInmueble
>
> 'se crean dos rs, rst = select a tlbBienes
> ' strMax = para obtener el maximo Inmueble
> set rst = Server.CreateObject("ADODB.Recordset")
> set rst2 = Server.CreateObject("ADODB.Recordset")
> set rstMax = Server.CreateObject("ADODB.Recordset")
>
>
> 'Se busca el consecutivo para el negocio
> strSQL = "SELECT strNumeroInmueble AS Ninmueble" & _
> " FROM tblBienes"
>
> rst.Open strSQL, strRutaConexion
> if rst.EOF = true then
> strNumeroInmueble = mid(Trim(SessionIdRegional),1,2) & "0001"
> else
> 'ahora obtenemos el máximo número del negocio
> strSQL = "SELECT
>

> eble])))) AS Ninmueble" & _
> " FROM tblBienes"
>
> rstMax.Open strSQL, strRutaConexion
> strMaxInmueble = rstMax.Fields("Ninmueble")
> 'aumentamos en 1 el negocio
> strMaxInmueble = CLng(strMaxInmueble) + 1
> 'necesitamos concatenar los ceros a la izquierda
> if len(strMaxInmueble) = 1 then
> strMaxInmueble = "000" & strMaxInmueble
> else
> if len(strMaxInmueble) = 2 then
> strMaxInmueble = "00" & strMaxInmueble
> else
> if len(strMaxInmueble) = 3 then
> strMaxInmueble = "0" & strMaxInmueble
> end if
> end if
> end if
> 'concatenamos todo para obtener el número negocio final
> strNumeroInmueble = mid(Trim(SessionIdRegional),1,2) &

> end if
>
> strSQL = ""
> strSQL = "INSERT INTO tblBienes ( strNumeroInmueble, " & _
> " strIdRegional, strNumeroNegocio, strIdTipoInmueble," & _
> " bytGrupoInmueble, strEstadoBien, strCuentaConavi," & _
> " dblValorConavi, strIdPerito, dblValorAvaluo, dblValorGastos," & _
> " strLocalizacion, strUrbanizacion, strMunicipio, strBarrio," & _
> " strIdEstrato, lngArea, strMatriculaIn, strIdPiso, " & _
> " strIdMuro, strIdTecho, strIdCocina, bytNumeroAlcobas, " &

&
> " )" & _
> " VALUES (" & strNumeroInmueble & ", " & _
> " " & strIdRegional & ", " & strNumeroNegocio & ", '" &
> strIdTipoInmueble & "'," & _
> " '" & bytGrupoInmueble & "', " & strEstadoBien & ", " &
> strCuentaConavi & ", " & _
> " " & dblValorConavi & ", '" & strIdPerito & "', " & dblValorAvaluo

",
> " & dblValorGastos & ", " & _
> " '" & strLocalizacion & "', '" & strUrbanizacion & "', '" &
> strMunicipio & "', '" & strBarrio & "', " & _
> " '" & strIdEstrato & "', " & lngArea & ", '" & strMatriculaIn &

'"
> & strIdPiso & "', " & _
> " '" & strIdMuro & "', '" & strIdTecho & "', '" & strIdCocina & "',

&
> bytNumeroAlcobas & ", " & varValores & ")"
>
> objConx.Execute(strSQL)
>
> 'Si el negocio tiene asociado un Bien y una Obligacion, entonces
> ' se coloca el campo strEstadoNeg de la tabla tblNegocios en 2 > > Contabilizado
> strSQL = "SELECT tblNegocios.strNumeroNegocio,

&
> _
> "FROM (tblNegocios INNER JOIN tblBienes ON
> tblNegocios.strNumeroNegocio" & _
> " = tblBienes.strNumeroNegocio) INNER JOIN tblObligaciones ON
> tblNegocios.strNumeroNegocio" & _
> " = tblObligaciones.strNumeroNegocio" & _
> " WHERE tblNegocios.strEstadoNeg = '" & strNumeroNegocio & "'"
>
>
> objConx.Open strRutaConexion
> rst2.Open strSQL, strRutaConexion
> if rst2.EOF = false then
> strSQL = "UPDATE tblNegocios SET tblNegocios.strEstadoNeg = 2"

_
> " WHERE strNumeroNegocio = '" & strNumeroNegocio & "'"
> objConx.Execute(strSQL)
> end if
>
>
> De antemano os agradezco
>
> leon
>
>

Hola Franco, eso es lo que me parece estraño, porque la conexion la cierro

lo ultimo cuando hace todo, es mas en el codigo ni la puse porque no lo
creí interesante.

Sigo en la busqueda de la solucion.

Saludos.

fausto.


"Franco Figún" wrote in message
news:
> Me suena a que alomejor estas tratando de hacer la consultar o insertar
> datos, ya habiendo cerrado la conexion, o el recordset...
>
> FF
> www.francofigun.com.ar
> www.microsofties.com.ar
> Yahoo MSN:
> ICQ: 314408886
>
> "leon" escribió en el mensaje
> news:
> > saludos listeros.
> >
> > Estoy obteniendo este error cuando trato de correr el siguiente

> > "Operation is not allowed when the object is closed"
> >
> > Solo les voy a mostrar el pedazo donde me esta sacando el error, lo
demas
> > lo omití porque no es necesario, como cerrar la conexion y los
recordset.
> >
> > las consultas corren y ejecutan bien.
> > El error ocurre en esta linea:
> > esta cinco lineas antes del final:
> >
> > "if rst2.EOF = false then"
> >
> >
> >
> > dim strMaxInmueble
> >
> > 'se crean dos rs, rst = select a tlbBienes
> > ' strMax = para obtener el maximo Inmueble
> > set rst = Server.CreateObject("ADODB.Recordset")
> > set rst2 = Server.CreateObject("ADODB.Recordset")
> > set rstMax = Server.CreateObject("ADODB.Recordset")
> >
> >
> > 'Se busca el consecutivo para el negocio
> > strSQL = "SELECT strNumeroInmueble AS Ninmueble" & _
> > " FROM tblBienes"
> >
> > rst.Open strSQL, strRutaConexion
> > if rst.EOF = true then
> > strNumeroInmueble = mid(Trim(SessionIdRegional),1,2) &

> > else
> > 'ahora obtenemos el máximo número del negocio
> > strSQL = "SELECT
> >
>

> > eble])))) AS Ninmueble" & _
> > " FROM tblBienes"
> >
> > rstMax.Open strSQL, strRutaConexion
> > strMaxInmueble = rstMax.Fields("Ninmueble")
> > 'aumentamos en 1 el negocio
> > strMaxInmueble = CLng(strMaxInmueble) + 1
> > 'necesitamos concatenar los ceros a la izquierda
> > if len(strMaxInmueble) = 1 then
> > strMaxInmueble = "000" & strMaxInmueble
> > else
> > if len(strMaxInmueble) = 2 then
> > strMaxInmueble = "00" & strMaxInmueble
> > else
> > if len(strMaxInmueble) = 3 then
> > strMaxInmueble = "0" & strMaxInmueble
> > end if
> > end if
> > end if
> > 'concatenamos todo para obtener el número negocio final
> > strNumeroInmueble = mid(Trim(SessionIdRegional),1,2) &
strMaxInmueble
> > end if
> >
> > strSQL = ""
> > strSQL = "INSERT INTO tblBienes ( strNumeroInmueble, " & _
> > " strIdRegional, strNumeroNegocio, strIdTipoInmueble," & _
> > " bytGrupoInmueble, strEstadoBien, strCuentaConavi," & _
> > " dblValorConavi, strIdPerito, dblValorAvaluo, dblValorGastos," &

> > " strLocalizacion, strUrbanizacion, strMunicipio, strBarrio," & _
> > " strIdEstrato, lngArea, strMatriculaIn, strIdPiso, " & _
> > " strIdMuro, strIdTecho, strIdCocina, bytNumeroAlcobas, " &
varCampos
> &
> > " )" & _
> > " VALUES (" & strNumeroInmueble & ", " & _
> > " " & strIdRegional & ", " & strNumeroNegocio & ", '" &
> > strIdTipoInmueble & "'," & _
> > " '" & bytGrupoInmueble & "', " & strEstadoBien & ", " &
> > strCuentaConavi & ", " & _
> > " " & dblValorConavi & ", '" & strIdPerito & "', " &

&
> ",
> > " & dblValorGastos & ", " & _
> > " '" & strLocalizacion & "', '" & strUrbanizacion & "', '" &
> > strMunicipio & "', '" & strBarrio & "', " & _
> > " '" & strIdEstrato & "', " & lngArea & ", '" & strMatriculaIn &
"',
> '"
> > & strIdPiso & "', " & _
> > " '" & strIdMuro & "', '" & strIdTecho & "', '" & strIdCocina &

"
> &
> > bytNumeroAlcobas & ", " & varValores & ")"
> >
> > objConx.Execute(strSQL)
> >
> > 'Si el negocio tiene asociado un Bien y una Obligacion, entonces
> > ' se coloca el campo strEstadoNeg de la tabla tblNegocios en 2 > > > Contabilizado
> > strSQL = "SELECT tblNegocios.strNumeroNegocio,
tblNegocios.strEstadoNeg"
> &
> > _
> > "FROM (tblNegocios INNER JOIN tblBienes ON
> > tblNegocios.strNumeroNegocio" & _
> > " = tblBienes.strNumeroNegocio) INNER JOIN tblObligaciones ON
> > tblNegocios.strNumeroNegocio" & _
> > " = tblObligaciones.strNumeroNegocio" & _
> > " WHERE tblNegocios.strEstadoNeg = '" & strNumeroNegocio & "'"
> >
> >
> > objConx.Open strRutaConexion
> > rst2.Open strSQL, strRutaConexion
> > if rst2.EOF = false then
> > strSQL = "UPDATE tblNegocios SET tblNegocios.strEstadoNeg 2"
&
> _
> > " WHERE strNumeroNegocio = '" & strNumeroNegocio & "'"
> > objConx.Execute(strSQL)
> > end if
> >
> >
> > De antemano os agradezco
> >
> > leon
> >
> >
>
>

Hola Franco, eso es lo que me parece estraño, porque la conexion la cierro

lo ultimo cuando hace todo, es mas en el codigo ni la puse porque no lo
creí interesante.

Sigo en la busqueda de la solucion.

Saludos.

fausto.


"Franco Figún" wrote in message
news:
> Me suena a que alomejor estas tratando de hacer la consultar o insertar
> datos, ya habiendo cerrado la conexion, o el recordset...
>
> FF
> www.francofigun.com.ar
> www.microsofties.com.ar
> Yahoo MSN:
> ICQ: 314408886
>
> "leon" escribió en el mensaje
> news:
> > saludos listeros.
> >
> > Estoy obteniendo este error cuando trato de correr el siguiente

> > "Operation is not allowed when the object is closed"
> >
> > Solo les voy a mostrar el pedazo donde me esta sacando el error, lo
demas
> > lo omití porque no es necesario, como cerrar la conexion y los
recordset.
> >
> > las consultas corren y ejecutan bien.
> > El error ocurre en esta linea:
> > esta cinco lineas antes del final:
> >
> > "if rst2.EOF = false then"
> >
> >
> >
> > dim strMaxInmueble
> >
> > 'se crean dos rs, rst = select a tlbBienes
> > ' strMax = para obtener el maximo Inmueble
> > set rst = Server.CreateObject("ADODB.Recordset")
> > set rst2 = Server.CreateObject("ADODB.Recordset")
> > set rstMax = Server.CreateObject("ADODB.Recordset")
> >
> >
> > 'Se busca el consecutivo para el negocio
> > strSQL = "SELECT strNumeroInmueble AS Ninmueble" & _
> > " FROM tblBienes"
> >
> > rst.Open strSQL, strRutaConexion
> > if rst.EOF = true then
> > strNumeroInmueble = mid(Trim(SessionIdRegional),1,2) &

> > else
> > 'ahora obtenemos el máximo número del negocio
> > strSQL = "SELECT
> >
>

> > eble])))) AS Ninmueble" & _
> > " FROM tblBienes"
> >
> > rstMax.Open strSQL, strRutaConexion
> > strMaxInmueble = rstMax.Fields("Ninmueble")
> > 'aumentamos en 1 el negocio
> > strMaxInmueble = CLng(strMaxInmueble) + 1
> > 'necesitamos concatenar los ceros a la izquierda
> > if len(strMaxInmueble) = 1 then
> > strMaxInmueble = "000" & strMaxInmueble
> > else
> > if len(strMaxInmueble) = 2 then
> > strMaxInmueble = "00" & strMaxInmueble
> > else
> > if len(strMaxInmueble) = 3 then
> > strMaxInmueble = "0" & strMaxInmueble
> > end if
> > end if
> > end if
> > 'concatenamos todo para obtener el número negocio final
> > strNumeroInmueble = mid(Trim(SessionIdRegional),1,2) &
strMaxInmueble
> > end if
> >
> > strSQL = ""
> > strSQL = "INSERT INTO tblBienes ( strNumeroInmueble, " & _
> > " strIdRegional, strNumeroNegocio, strIdTipoInmueble," & _
> > " bytGrupoInmueble, strEstadoBien, strCuentaConavi," & _
> > " dblValorConavi, strIdPerito, dblValorAvaluo, dblValorGastos," &

> > " strLocalizacion, strUrbanizacion, strMunicipio, strBarrio," & _
> > " strIdEstrato, lngArea, strMatriculaIn, strIdPiso, " & _
> > " strIdMuro, strIdTecho, strIdCocina, bytNumeroAlcobas, " &
varCampos
> &
> > " )" & _
> > " VALUES (" & strNumeroInmueble & ", " & _
> > " " & strIdRegional & ", " & strNumeroNegocio & ", '" &
> > strIdTipoInmueble & "'," & _
> > " '" & bytGrupoInmueble & "', " & strEstadoBien & ", " &
> > strCuentaConavi & ", " & _
> > " " & dblValorConavi & ", '" & strIdPerito & "', " &

&
> ",
> > " & dblValorGastos & ", " & _
> > " '" & strLocalizacion & "', '" & strUrbanizacion & "', '" &
> > strMunicipio & "', '" & strBarrio & "', " & _
> > " '" & strIdEstrato & "', " & lngArea & ", '" & strMatriculaIn &
"',
> '"
> > & strIdPiso & "', " & _
> > " '" & strIdMuro & "', '" & strIdTecho & "', '" & strIdCocina &

"
> &
> > bytNumeroAlcobas & ", " & varValores & ")"
> >
> > objConx.Execute(strSQL)
> >
> > 'Si el negocio tiene asociado un Bien y una Obligacion, entonces
> > ' se coloca el campo strEstadoNeg de la tabla tblNegocios en 2 > > > Contabilizado
> > strSQL = "SELECT tblNegocios.strNumeroNegocio,
tblNegocios.strEstadoNeg"
> &
> > _
> > "FROM (tblNegocios INNER JOIN tblBienes ON
> > tblNegocios.strNumeroNegocio" & _
> > " = tblBienes.strNumeroNegocio) INNER JOIN tblObligaciones ON
> > tblNegocios.strNumeroNegocio" & _
> > " = tblObligaciones.strNumeroNegocio" & _
> > " WHERE tblNegocios.strEstadoNeg = '" & strNumeroNegocio & "'"
> >
> >
> > objConx.Open strRutaConexion
> > rst2.Open strSQL, strRutaConexion
> > if rst2.EOF = false then
> > strSQL = "UPDATE tblNegocios SET tblNegocios.strEstadoNeg 2"
&
> _
> > " WHERE strNumeroNegocio = '" & strNumeroNegocio & "'"
> > objConx.Execute(strSQL)
> > end if
> >
> >
> > De antemano os agradezco
> >
> > leon
> >
> >
>
>

if rst2.EOF = false then 'Aqui preguntas si el rst2 no es fin de archivo.
¿Estas seguro de que rst2 esta creado?

dim strMaxInmueble

'se crean dos rs, rst = select a tlbBienes
'strMax = para obtener el maximo Inmueble
set rst = Server.CreateObject("ADODB.Recordset")

'Aqui Creas rst2 si no hay una linea identica a esta antes de comparar si

fin de archivo entonces ese es el error.
Como el error lo dice: "la operacion no esta permitida cuando el objeto

cerrado"
set rst2 = Server.CreateObject("ADODB.Recordset")


set rstMax = Server.CreateObject("ADODB.Recordset")

el error debe darte la linea exacta donde sucede, puedes verificar que

es. Para mi no es que la conexion este cerrada, sino que el recordset no
esta creado. Por eso debe de fallar al momento de comparar si es fin de
archivo

"leon" escribió en el mensaje
news:
> Hola Franco, eso es lo que me parece estraño, porque la conexion la

a
> lo ultimo cuando hace todo, es mas en el codigo ni la puse porque no lo
> creí interesante.
>
> Sigo en la busqueda de la solucion.
>
> Saludos.
>
> fausto.
>
>
> "Franco Figún" wrote in message
> news:
> > Me suena a que alomejor estas tratando de hacer la consultar o

> > datos, ya habiendo cerrado la conexion, o el recordset...
> >
> > FF
> > www.francofigun.com.ar
> > www.microsofties.com.ar
> > Yahoo MSN:
> > ICQ: 314408886
> >
> > "leon" escribió en el mensaje
> > news:
> > > saludos listeros.
> > >
> > > Estoy obteniendo este error cuando trato de correr el siguiente
codigo.
> > > "Operation is not allowed when the object is closed"
> > >
> > > Solo les voy a mostrar el pedazo donde me esta sacando el error, lo
> demas
> > > lo omití porque no es necesario, como cerrar la conexion y los
> recordset.
> > >
> > > las consultas corren y ejecutan bien.
> > > El error ocurre en esta linea:
> > > esta cinco lineas antes del final:
> > >
> > > "if rst2.EOF = false then"
> > >
> > >
> > >
> > > dim strMaxInmueble
> > >
> > > 'se crean dos rs, rst = select a tlbBienes
> > > ' strMax = para obtener el maximo Inmueble
> > > set rst = Server.CreateObject("ADODB.Recordset")
> > > set rst2 = Server.CreateObject("ADODB.Recordset")
> > > set rstMax = Server.CreateObject("ADODB.Recordset")
> > >
> > >
> > > 'Se busca el consecutivo para el negocio
> > > strSQL = "SELECT strNumeroInmueble AS Ninmueble" & _
> > > " FROM tblBienes"
> > >
> > > rst.Open strSQL, strRutaConexion
> > > if rst.EOF = true then
> > > strNumeroInmueble = mid(Trim(SessionIdRegional),1,2) &
"0001"
> > > else
> > > 'ahora obtenemos el máximo número del negocio
> > > strSQL = "SELECT
> > >
> >
>

> > > eble])))) AS Ninmueble" & _
> > > " FROM tblBienes"
> > >
> > > rstMax.Open strSQL, strRutaConexion
> > > strMaxInmueble = rstMax.Fields("Ninmueble")
> > > 'aumentamos en 1 el negocio
> > > strMaxInmueble = CLng(strMaxInmueble) + 1
> > > 'necesitamos concatenar los ceros a la izquierda
> > > if len(strMaxInmueble) = 1 then
> > > strMaxInmueble = "000" & strMaxInmueble
> > > else
> > > if len(strMaxInmueble) = 2 then
> > > strMaxInmueble = "00" & strMaxInmueble
> > > else
> > > if len(strMaxInmueble) = 3 then
> > > strMaxInmueble = "0" & strMaxInmueble
> > > end if
> > > end if
> > > end if
> > > 'concatenamos todo para obtener el número negocio final
> > > strNumeroInmueble = mid(Trim(SessionIdRegional),1,2) &
> strMaxInmueble
> > > end if
> > >
> > > strSQL = ""
> > > strSQL = "INSERT INTO tblBienes ( strNumeroInmueble, " & _
> > > " strIdRegional, strNumeroNegocio, strIdTipoInmueble," & _
> > > " bytGrupoInmueble, strEstadoBien, strCuentaConavi," & _
> > > " dblValorConavi, strIdPerito, dblValorAvaluo, dblValorGastos,"

_
> > > " strLocalizacion, strUrbanizacion, strMunicipio, strBarrio," &

> > > " strIdEstrato, lngArea, strMatriculaIn, strIdPiso, " & _
> > > " strIdMuro, strIdTecho, strIdCocina, bytNumeroAlcobas, " &
> varCampos
> > &
> > > " )" & _
> > > " VALUES (" & strNumeroInmueble & ", " & _
> > > " " & strIdRegional & ", " & strNumeroNegocio & ", '" &
> > > strIdTipoInmueble & "'," & _
> > > " '" & bytGrupoInmueble & "', " & strEstadoBien & ", " &
> > > strCuentaConavi & ", " & _
> > > " " & dblValorConavi & ", '" & strIdPerito & "', " &
dblValorAvaluo
> &
> > ",
> > > " & dblValorGastos & ", " & _
> > > " '" & strLocalizacion & "', '" & strUrbanizacion & "', '" &
> > > strMunicipio & "', '" & strBarrio & "', " & _
> > > " '" & strIdEstrato & "', " & lngArea & ", '" & strMatriculaIn

> "',
> > '"
> > > & strIdPiso & "', " & _
> > > " '" & strIdMuro & "', '" & strIdTecho & "', '" & strIdCocina &
"',
> "
> > &
> > > bytNumeroAlcobas & ", " & varValores & ")"
> > >
> > > objConx.Execute(strSQL)
> > >
> > > 'Si el negocio tiene asociado un Bien y una Obligacion, entonces
> > > ' se coloca el campo strEstadoNeg de la tabla tblNegocios en 2 > > > > Contabilizado
> > > strSQL = "SELECT tblNegocios.strNumeroNegocio,
> tblNegocios.strEstadoNeg"
> > &
> > > _
> > > "FROM (tblNegocios INNER JOIN tblBienes ON
> > > tblNegocios.strNumeroNegocio" & _
> > > " = tblBienes.strNumeroNegocio) INNER JOIN tblObligaciones ON
> > > tblNegocios.strNumeroNegocio" & _
> > > " = tblObligaciones.strNumeroNegocio" & _
> > > " WHERE tblNegocios.strEstadoNeg = '" & strNumeroNegocio & "'"
> > >
> > >
> > > objConx.Open strRutaConexion
> > > rst2.Open strSQL, strRutaConexion
> > > if rst2.EOF = false then
> > > strSQL = "UPDATE tblNegocios SET tblNegocios.strEstadoNeg
2"
> &
> > _
> > > " WHERE strNumeroNegocio = '" & strNumeroNegocio & "'"
> > > objConx.Execute(strSQL)
> > > end if
> > >
> > >
> > > De antemano os agradezco
> > >
> > > leon
> > >
> > >
> >
> >
>
>