Ver Mensaje Individual
  #4 (permalink)  
Antiguo 29/03/2011, 13:07
Avatar de Julcar
Julcar
 
Fecha de Ingreso: noviembre-2007
Ubicación: C:\inetpub\wwwroot\Guayaquil
Mensajes: 1.507
Antigüedad: 16 años, 5 meses
Puntos: 54
Respuesta: Problema al actualizar datos

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
  1. <&#37;
  2. dim ObRS, sql
  3. set Oconn = server.createobject("ADODB.connection")
  4. Oconn.open "BD_SPIO"
  5. set obrs=Server.CreateObject("ADODB.RecordSet")
  6.  
  7. 'seleccionamos todos los registros de la tabla celula sin algun tipo de ordenacion
  8. sql="select * from celula"
  9.  
  10. 'ejecutamos la sentencia contra la base de datos
  11. set ObRS= oconn.Execute(SQL)
  12.  
  13. 'si la variable td_cedula = a orbs.... no hay coleccion field ("C_celula") ademas haces
  14. 'concatenacion, que yo sepa se hace con el operador AND
  15. if td_celula=obrs("C_celula") & td_equipo=obrs("c_equipo") & td_descripcion=("descripcion") then
  16. 'las variables(?) coinciden con los campos, procedemos
  17.  
  18. 'nos movemos al siguiente registro
  19. obrs.movenext
  20.  
  21. else
  22. 'si no coinciden asignamos a los campos los request.form
  23.  
  24. obrs("c_celula") = Request.form("td_celula")
  25. obrs("c_equipo") = Request.form("td_equipo")
  26. obRS("descripcion") = Request.form("td_descripcion")
  27.  
  28. 'actualizamos y nos movemos al siguiente
  29. obrs.update
  30. obrs.movenext
  31. obrs.Close()
  32. end if
  33. Set obrs = nothing
  34. %>

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.
__________________
Linux no es el único S.O. libre, conoce a ReactOS el Windows Libre!
"Si mis respuestas te dan la calma, espárceme un poco de karma"