When users are saving records the below error message appears.

What causes this to error out, since it doesn't seem to happen each time?

How can I go about correcting the Apex syntax with what I've provided?

Thanks in advance!

Error message: 
 

triggerUpdAssignedLead: execution of BeforeUpdate

caused by: System.Exception: Too many SOQL queries: 101

Class.LeadTrigger.AssignLeads: line 706, column 1
Class.LeadTrigger.LeadUpdate: line 231, column 1
Trigger.triggerLead: line 7, column 1

//Retrieve number of Assigned Leads to create
//Add for loop to avoid error if value not set in custom object, defaults to 0
        Double Number2Assign = 0;
        CustomParameters__c cp = [Select BG_Assigned_Leads__c, PR_Assigned_Leads__c From CustomParameters__c where name = 'Default'];

starting from line 230


System.Debug('leadsforAssignment: ' +  leadsforAssignment);
        AssignLeads(leadsforAssignment);

trigger triggerLead on Lead (after insert, before insert, before update, after update) {

    LeadTrigger lt = new LeadTrigger();
    if (Trigger.isInsert)
        lt.LeadInsertion(Trigger.New, Trigger.isBefore, Trigger.isAfter);
    else if (Trigger.isBefore)
        lt.LeadUpdate(Trigger.New, Trigger.old, Trigger.isBefore);
    
    if (Trigger.isAfter) {
      lt.ReassignALOnClosedLeads(Trigger.New, Trigger.old, null);
      lt.AddToCampaign(Trigger.New, Trigger.oldMap);
      lt.ProcessQuotingLeads(Trigger.New, Trigger.old);
    } else 
      lt.PopulateAmbassador(Trigger.New, Trigger.old);   
      
    
    // 10/22/2015 Ambassador enhancement Tia Xuan 
    if (Trigger.isBefore && Trigger.isUpdate){
      lt.CreateLastVisitTask(Trigger.new);
      lt.CopyHistoryLog(Trigger.new, Trigger.oldMap);   
    }
}