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