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
	
	
%>
 
 
 Ayuda con funcion split
 Ayuda con funcion split 
