Me podrian ayudar con este código "please".
Lo que debe hacer es insertar unos numeros que trae en forma de cadena, la misma viene de un formulario dinamico, se llama "puntos"
La estoy recojiendo con Request.Form("puntos").
El problema está en insertarlo en orden
Primero leo la tabla area, cuando estoy en el primer recorset leo la tabla turno, cuando estoy en la primera linea de turnos, ahora leo la tabla variable, de esta tabla voy a extraer el # de variable para que concuerde con el de la tabla MATRIX para actualizar el registro en esa tabla y asi sucesibamente.
El problema mas grande está en reventar la cadena ordenadamente para hacer esta actualizacion.
Les agradesco mucho cualquier tipo de ayuda o comentario por favor.
Allí escribo el codigo:
<% SSQL="Select narea from areas order by narea"
Set RSArea = Conn.Execute(SSQL)
n = 0
Do While Not RSArea.Eof
SSQL="Select nturno from turnos order by nturno"
Set RSturno = Conn.Execute(SSQL)
Do while not RSturno.Eof
IF n = 0 then
n = 0
ELSE
n = n + 1
END IF
SSQL="SELECT AREAS.descripcionarea, VARIABLES.NVARIABLE, VARIABLES.descripcionvariable FROM (AREAS INNER JOIN MATRIX ON AREAS.NAREA = MATRIX.NAREA) INNER JOIN VARIABLES ON (VARIABLES.NVARIABLE = MATRIX.NVARIABLE) AND (AREAS.NAREA = VARIABLES.NAREA) where nperiodo='" & session("Cperiodo") & "' and nlocal='" & session("Clocales") & "' and matrix.narea='" & RSArea("narea") & "' and matrix.nturno='" & RSturno("nturno") & "'"
Set RSV = Conn.Execute(SSQL)
Do While Not RSV.Eof
n= n + 1
'Aqui recojo,desgloso y actualizo los puntos
ID = Request("puntos")(n)
if ID = "" then
'ID = 0
else
SSQL="Update matrix Set ptsobtenido=" & ID & " where nvariable = '" & RSV("variables.nvariable") & "'"
Set RSUP = Conn.Execute(SSQL)
End IF
RSV.MoveNEXT
LOOP
RSturno.MoveNEXT
LOOP
RSArea.MoveNext
LOOP
%>
saludos
