Problemas con un update

[Neuron_376]

Bueno, intenta tambien algo asi:

on error resume next

'EN ALGUN LUGAR TIENES ALGO COMO:
rs = CreateObjetc("ADO....")

'Bueno, esa linea quitala, comentala o algo, es decir, que no se ejecute.

Sql = "UPDATE dbo.BD_CAL_IGH SET IGH_rem = " & Cstr(CDbl(IGH_rem)) & ", IGH_costo = " & Cstr(CDbl(IGH_costo)) & " WHERE (PERIODO = "& Cstr(PERIODO) & ") AND (TAMANO_VENTA = " & Cstr(TAMANO_VENTA) & ") AND (CATEGORIA = '" & Cstr(CATEGORIA) & "') AND (DIVISION = " & Cstr(DIVISION) &") AND (GRUPO = " & Cstr(GRUPO) & ") AND (ESTRATO = " & Cstr(ESTRATO) & ")"

response.write Sql&"<br><br>"

set Rs = conexionBD.Execute(Sql)

if conexionBD.Errors.Count > 0 then

Response.write conexionBD.Errors(0).Description

else

Response.write "Al parecer no hubo errores"

end if

Response.End()

Con esto estas asegurandote de que todos tus CDBL se agreguen a la cadena de SQL como eso, como cadenas, lo cual previene errores de concatenacion de cadenas, al usar set en lugar de un recordset con open, evitaras problemas con el MDAC, y bueno, pues lo demas es para poder ver el error del database detallado.

Tal vez te sirva..

Suerte!!