Para los que ya leyeron este mensaje. Por peticiones de DUDO lo he editado porque no se entendia muy bién.
Yo tengo dos Archivos uno es Resgistrar_Puntos2.asp y el otro es Registrar_Puntos3.asp.
El primero funciona bien que se encarga de enviar los puntos y nombre de empleado a los cuales se le hicieron unas evaluaciones, estas evaluciones son en base a preguntas.
Cada pregunta se repite dependiendo del turno, local, area y supermercado en donde seestá aplicando.
Los texbox en donde se captura los puntos y nombre de empleado son dinámicos, envia dos cadena a el segundo archivo al recojerlo vienen juntos, aquí es en donde voy ha hacer el update insertando esos dos campos en el registro correspondiente. A esto me refiero que debo itroducir ese punto y nombre de empleado en el registro que corresponde a esa pregunta (npregunta), de ese turno (nturno), de ese departamento (narea). Lo que está () son los códigos de los campos.
Cómo hago para tomar lo que me envia los texbox puntos y lo que me evia el texbox empleado y ACTUALIZAR ESO EN MI BASE DE DATOS (con esas condiciones (en donse se aplicó la pregunta))
Alli pongo el código para ver si me ayudan, se los voy a agradecer enormenmente.
Recibir_Puntos.asp
<%
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\tesisanibal\db\calidad.mdb"))
%>
<center>
<FORM METHOD="POST" ACTION="Registrar_Puntos3.asp">
<table>
<% SSQL="Select narea, descripcionarea from areas order by narea"
Set RSArea = Conn.Execute(SSQL)
Do While Not RSArea.Eof %>
<tr>
<td><B><Font Face="Arial" size="2" color="#FF0000"><%=RSarea("descripcionarea")%></Font></B></td>
<td> </td>
<td><Font Face="Arial" size="2" color="#FF0000">Pts.Obt </Font></td>
<td><Font Face="Arial" size="2" color="#FF0000">Empleado </Font></td>
<td><Font Face="Arial" size="2" color="#FF0000">Cod. </Font></td>
<td><Font Face="Arial" size="2" color="#FF0000">Descripción </Font></td>
</tr>
<% SSQL="Select nturno, descripcionturno from turnos order by nturno"
Set RSturno = Conn.Execute(SSQL)
Do while not RSturno.Eof
%>
<tr>
<td> </td>
<td><font face="Arial" color="#0000ff" size="2"><%=RSturno("descripcionturno")%></Font></td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<% 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
%>
<tr>
<td> </td>
<td> </td>
<td><input type="TexBox" name="Puntos" size="3"></td>
<td><input type="TexBox" name="empleado"></td>
<td><Font Face="Arial" size="2"><%=RSV("nvariable")%></Font></td>
<td><Font Face="Arial" size="2"><%=RSV("descripcionvariable")%></Font></td>
</tr>
<%
RSV.MoveNEXT
LOOP
RSturno.MoveNEXT
LOOP
RSArea.MoveNext
LOOP
%>
</table>
<br><br>
<INPUT TYPE="SUBMIT" VALUE="Aceptar">
</FORM>
Recibir_Puntos3.asp
<%
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\tesisanibal\db\calidad.mdb"))
%>
X = "A3"
<%
For i = 1 to Request("puntos").count
ID = Request("puntos")(i)
SSQL="aquie es donde debo actualizar
Set RS= Conn.Execute(SSQL)
Next
%>
El segundo archivo no es muy complejo, pero necesita una lógica, waoo, enorme.En realidad no está haciendo nada, pero alli coloqué como creía que podía ser.
les agradesco cualquier ayuda
Saludos
