esta es parte de la pagina donde se le asigna el ckeckbox
Código:
<input name="SClaveUsuario" type="checkbox" value="<%=loResult("SClaveUsuario")%>" > <% Response.Write "<Td width='17%'> <div align='center' class='Estilo24'><span class='Estilo25'> "&loResult("SClaveUsuario")&"</span></div></td>" Response.Write "<Td width='16%'> <div align='center' class='Estilo24'><span class='Estilo25'> "&loResult("sNombre")&"</span></div></td>" Response.Write "<Td width='21%'> <div align='center' class='Estilo24'><span class='Estilo25'> "&loResult("sEmail")&"</span></div></td>" Response.Write "<Td width='17%'> <div align='center' class='Estilo24'><span class='Estilo25'> "&loResult("Puesto")&"</span></div></td>" Response.Write "<Td width='16%'> <div align='center' class='Estilo24'><span class='Estilo25'> "&loResult("Depto")&"</span></div></td>" Response.Write "<Td width='9%'> <div align='center' class='Estilo24' ><span class='Estilo25'> "&loResult("status")&"</span></div></td>"%> <%
y esta es dond procesa la informacion para guardarla
Código:
<% 'Pagina para guardar usuarios ingresados por gerentes en un tabla temporal 'que será procesada mensualmente por un DTS 'option explicit dim sClaveUsuario dim sNombre dim idPuesto dim idDepto dim sEmail dim idStatus dim miCadena dim miArray sClaveUsuario = request.Form("SClaveUsuario") idstatus = request.Form("txtstatus") 'sClaveUsuario = split (sClaveUsuario , ",", 1) 'response.Write(sClaveUsuario) 'response.Write("status= "& idstatus) 'response.End() Set LoTckt = CreateObject("Tckt_Consultar.Cls_Consultar") set loResultado=nothing 'Esta es la sentencia de insersión a la base de datos LoTckt.IdCatalogo =41 'LoTckt.Status = 1 'LoTckt.status = 4 LoTckt.IdUsuario = sClaveUsuario LoTckt.Status = idstatus LoTckt.Consultar If LoTckt.Resultado = "" Then Response.Write("<script>alert('Usuario actualizado con éxito'); ") Response.Write("document.location='usuarios1.asp'") Response.Write("</script>") 'Response.Redirect("seguimiento.asp") else Response.Write("<script>alert('Error: " & LoTckt.Resultado & "')</script>") end if %>