Cierre de conexión

[verinchi]

NOP, En realidad ya funcionó, el tema fue que cuando comenzó con los errores lo probé varias veces con el mismo dato y de ultima rebotaba por integridad referencial de la base de datos.
Ahora ya vamos funcionando!!!!!
No le cambié practicamente nada fijate:
<%'-------------------------------------------- DEFINICION DE VARIABLES ---------------------
dim max, obser, I, Numero
Dim Cli, Suc
dim puesto()
dim desc()
'-----------------------------------ASIGNACIÓN DE VARIABLES------------------------------------
I=0
If (Request.Form("OBSERV")<>"") Then obser=Request.Form("OBSERV") End if
If (Request.Form("Cantidad")<>"") Then max= Cint(Request.Form("Cantidad")) end if
If (Request.Form("Cliente")<>"") Then Cli=Request.Form("Cliente") End If
If(Request.Form("Sucu")<>"") Then Suc=Request.Form("Sucu") End if
If(Request.Form("Nume")<>"") Then Numero=Request.Form("Nume") End If

'---------------------REDIMENSIONADO DE VECTORES-------------------------------------
Redim puesto(max)
Redim desc(max)

'----------------------CARGA DE VECTORES------------------------------------
While I<=max
If (Request.Form("Puesto"&I+1)<>"" ) Then puesto(I)=Request.Form("Puesto"&I+1) end if
if (Request.Form("DESC"&I+1)<>"") Then desc(I)=Request.Form("DESC"&I+1) end if
I=I+1
Wend
I=0

'------------------------ARMADO DE UPDATE-------------------------------------
Set CmUpdSer = Server.CreateObject("ADODB.Command")
CmUpdSer.ActiveConnection=MM_INFO_SQL_STRING
CmUpdSer.CommandText="UPDATE SERVICIOSITU SET OBSERVACIONES='"&obser&"' WHERE IDINFORME="&Numero&" "
CmUpdSer.CommandType=1
CmUpdSer.Prepared=True
CmUpdSer.Execute


'---------------------------ARMADO DE INSERT A TAREAS------------------------------
Set CmTareas=Server.CreateObject("ADODB.Command")
CmTareas.ActiveConnection=MM_INFO_SQL_STRING
CmTareas.CommandText="INSERT INTO TAREASITU (C_INFORME, C_EQUIPO, TAREA) VALUES ("&Numero&",?,?)"
CmTareas.CommandType=1
CmTareas.Prepared=True

CmTareas.Parameters.Append CmTareas.CreateParameter("Puesto", 4,1,100)
CmTareas.Parameters.Append CmTareas.CreateParameter("Descripcion",200,1,50)
While(Puesto(I)<>"")
CmTareas("Puesto") = puesto(I)
CmTareas("Descripcion")=desc(I)
'---------------EJECUCION DEL COMANDO TAREAS---------------------------------
CmTareas.Execute
I=I+1
Wend

'-------------------------- REDIRECCIONA CONDICIONALMENTE --------------------

Response.Redirect ("../servicios/componentes.asp?Informe="&Numero&" ")

Fijate que a Numero lo tomo en la primer toma de variables del formulario anterior, y lo toma.