Código:
Saludos 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
%>

