oks, aqui va:
<%'-------------------------------------------- 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
CmUpdSer =Nohing
'---------------------------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
While(I<=Max)
CmTareas.Parameters.Append CmTareas.CreateParameter("Puesto", 4,1,100)
CmTareas.Parameters.Append CmTareas.CreateParameter("Descripcion",200,1,50)
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&" ")
Cabe aclarar que el error antes mencionado es de la linea 50, donde ejecuto el insert
Gracias por tu atención!!!!
