hola, luego de revisar el codigo, me doy cuenta de que no has seguido las reglas basicas de la programacion
1. Crear tu algoritmo
Segun tu primer post puedo deducir lo siguiente comentando sobre las lineas involucradas:
Código ASP:
Ver original<%
dim ObRS, sql
set Oconn = server.createobject("ADODB.connection")
Oconn.open "BD_SPIO"
set obrs=Server.CreateObject("ADODB.RecordSet")
'seleccionamos todos los registros de la tabla celula sin algun tipo de ordenacion
sql="select * from celula"
'ejecutamos la sentencia contra la base de datos
set ObRS= oconn.Execute(SQL)
'si la variable td_cedula = a orbs.... no hay coleccion field ("C_celula") ademas haces
'concatenacion, que yo sepa se hace con el operador AND
if td_celula=obrs("C_celula") & td_equipo=obrs("c_equipo") & td_descripcion=("descripcion") then
'las variables(?) coinciden con los campos, procedemos
'nos movemos al siguiente registro
obrs.movenext
else
'si no coinciden asignamos a los campos los request.form
obrs("c_celula") = Request.form("td_celula")
obrs("c_equipo") = Request.form("td_equipo")
obRS("descripcion") = Request.form("td_descripcion")
'actualizamos y nos movemos al siguiente
obrs.update
obrs.movenext
obrs.Close()
end if
Set obrs = nothing
%>
Como puedes ver, no se entiende lo que quieres hacer, tu codigo es muy confuso, y dado que el que se confunde tambien es el interprete ASP, te salen esos errores raros.