Insertar while para checkbox

Eric Gonzalez · #1 (**permalink**) 09/05/2007, 09:25

Que tal amigos com estan?? El motivo de nuevo con mi molestia e debido que tego un conflicto, tengo una pagina la cualme muestra infrmacion de un usuario,y en cada renglon tiene un checbox paraque yo pueda elegir al usuario yponerle estatus de eliminiado o activo, el problema que tengo es que si escojo mas de 2 usuarios me manda un error, de que se juntan las sentencias.........quisiera ver que me recomiendan, algun ciclo while, split??? les pongo el codigo de mis pagina de los usuris qu me jala de una base e datos y la otra pagina que es una pagina que trae los valores de la primera y con la DLL hace el Update....
Pagina 1:

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<script>

function Nuevo()
{
	//alert("aki");v
	parent.document.location.replace("usuarioNuevo.asp");
	
	
}

function Revalidar()
{
	{
	 document.estatus.txtstatus.value = 1
		//parent.document.location.replace("Usuariosguarda2.asp");
	}
	estatus.submit();
}
function Eliminar()
{
	{
	 document.estatus.txtstatus.value = 4
		//parent.document.location.replace("Usuariosguarda2.asp");
	}
	estatus.submit();
}
</script>


<%

<form  name="estatus" action="usuariosGuarda2.asp" method="post" class="Estilo19">

 <input name="txtstatus"  type="hidden" id="txtstatus" maxlength="30" ></td> 
			  <% 'Obtiene es estatus del usuario
			  
			
					  
				Set LoTckt = CreateObject("Tckt_Consultar.Cls_Consultar")
				set loResult=nothing
		
				LoTckt.IdCatalogo = "40"	
				
				'mvarIdClub
				LoTckt.IdClub = "Loreto"
				
				LoTckt.Consultar
				 
				If LoTckt.Resultado = "" Then
				

					set loResult=LoTckt.Recordset
					While not loResult.EOF
									
				'Response.Write "<td width='2%'></td>"
				
					'Response.Write "<Td  width='6%' bgcolor='#33A10F'> <div align='center' class='Estilo24'><span class='Estilo25'>  <A href=Detalle.asp?sOper=C&sidticket=" & loResultado("IdTicket")& ">"& loResultado("IdTicket") & "</a></span></div></td>"
				
					'Response.Write "<Td  width='6%' bgcolor='#33A10F' font color='#FFFFFF'> <div align='center' class='Estilo8'><span class='Estilo25'>"&loResultado("IdTicket")&"</span></div></td>"
				%>
 <td width="4%" class="Estilo19"><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>"%>

				<%
				
				Response.Write "</TR>" & vbcrlf
				loResult.MoveNext
			wend
						
				else	
					Response.Write("<script>alert('Error: " & LoTckt.Resultado & "')</script>")
				end if
				
			set loResult=nothing
			set LoTckt=nothing
				
%>

Código:

	dim sClaveUsuario
	dim sNombre 
	dim idPuesto
	dim idDepto
	dim sEmail
	dim idStatus
	
	'dim LoTckt 
	'dim loResultado

	sClaveUsuario  = request.Form("SClaveUsuario")
	idstatus = request.Form("txtstatus")
	
	'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.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
	
	
%>