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
%>