<% arrayclasstype = Getclasstype() Function Getclasstype() Dim objCmd Dim objConn Dim objParam Dim RecordsAffected Dim tmpRS, rsConn Set objConn = OpenConnection Set objCmd = Server.CreateObject("ADODB.Command") Set objCmd.ActiveConnection = objConn objCmd.CommandText = "GetClassTypes" Set tmpRS = objCmd.Execute(RecordsAffected,,adCmdStoredProc) If tmpRS.BOF OR tmpRS.EOF Then Getclasstype = EMPTY Else Getclasstype = tmpRS.GetRows() End If Set objCmd = Nothing Set objConn = Nothing Set tmpRS = Nothing End Function Function GetClasses(in_ClassType) Dim objCmd Dim objConn Dim objParam Dim RecordsAffected Dim tmpRS, rsConn Set objConn = OpenConnection Set objCmd = Server.CreateObject("ADODB.Command") Set objCmd.ActiveConnection = objConn objCmd.CommandText = "GetClassesbyClassType" lngDirection = adParamInput lngType = adInteger strName = "ClassType" varValue = CLng(in_ClassType) Set objParam = objCmd.CreateParameter(strname, lngType, lngDirection, ,varValue) objCmd.Parameters.Append objParam Set objParam = nothing Set tmpRS = objCmd.Execute(RecordsAffected,,adCmdStoredProc) If tmpRS.BOF OR tmpRS.EOF Then GetClasses = EMPTY Else GetClasses = tmpRS.GetRows() End If Set objCmd = Nothing Set objConn = Nothing Set tmpRS = Nothing End Function %>

  Instructor Level Firearms Training

At The Trainer’s Group we are dedicated to professionalism in training, but we are all about enjoying the experience of learning.

If you want to learn, we want to train!

The Trainers Group is honored to be the PREFERRED TRAINERS for Fossil Pointe Sporting Grounds

 Why the Trainer's Group

We are Trainers, and trainers of Trainers. As NRA Training Counselors, we certify Instructors. Our approach to Instructor Certification is unique and informed. We will enjoy learning together in a safe and challenging environment. As Trainers of students, we “aim” to take you from wherever you are at in the art (skill) of shooting to wherever you want to go. We have over 30 moldable course offerings that can be tailored to you, or your group. Some classes are best in group settings, others are best in a one on one environment. Our instructors are dynamic and talented. We promise you will not be bored in our classes. Our goal is to accomplish YOUR goal.

 Classes We Teach

<% if not isempty(arrayclasstype) then %> <% for x = 0 to ubound(arrayclasstype,2) %> <%=arrayclasstype(1,x)%>
<% ClassType = arrayclasstype(0,x)%> <% arrayclasses = GetClasses(ClassType) %> <% if not isempty(arrayclasses) then %> <% for y = 0 to ubound(arrayclasses,2) %> <% next %> <% else %>

No Current Classes

<% end if %>
<% next %> <% end if %>