% OpenContentDB SQLStr = "SELECT PageID, LinkText FROM tblContent WHERE Active = 'Y' ORDER BY SortNumber" Set rsNav = ContentConn.Execute(SQLStr) SQLStr = "SELECT PageID, LinkText FROM tblContent WHERE Active = 'Y' ORDER BY SortNumber" Set rsFtNav = ContentConn.Execute(SQLStr) OpenLinksExDB SQLStr = "SELECT LinkText, LinkURL, LinkImage, ImgH, ImgW FROM tblLinks WHERE Active = 'Y'" Set rsExNav = LinksExConn.Execute(SQLStr) Dim CMD CMD = Request.QueryString("CMD") If CMD = "Desc" Then Dim CourseID CourseID = Request.QueryString("CourseID") OpenCoursesDB SQLStr = "SELECT CourseID, CourseTitle, CourseFee, Awards, Description, Who, Materials, Notes FROM tblCourses WHERE CourseID =" & CourseID Set rsCourses = CoursesConn.Execute(SQLStr) Else OpenCoursesDB SQLStr = "SELECT CourseID, CourseTitle FROM tblCourses WHERE Active = 'Y' ORDER BY CourseTitle" Set rsCourses = CoursesConn.Execute(SQLStr) End If %>
![]() |
| Training Courses |
|
Training Training Schedule <% If rsNav.EOF Then%> <% Else Do While NOT rsNav.EOF%> "><%=rsNav("LinkText")%> <% rsNav.MoveNext Loop End If%> Contact |
<%If CMD = "Desc" Then%>
<%=rsCourses("CourseTitle")%> Course Fee: Awards Given: Description: Who Should Attend: Materials Provided: Notes: Click Here to Check the Training Schedule for
this Course The International ISO Group offers customized, public and in-house courses on all aspects of ISO 9000 and QS-9000 quality systems. We provide hands-on, interactive courses and present real life examples making sure that students understand what needs to be done. IIG markets training materials and trainer assistance for these classes as well, should you or a corporation wants to perform the training themselves. Click Here for General Information About
IIG Courses Course List <%If rsCourses.EOF Then%><%Else Do While NOT rsCourses.EOF%> <%=rsCourses("CourseTitle")%> |
||
|
<%If rsExNav.EOF Then%>
<%
Else
Do While NOT rsExNav.EOF
If rsExNav("LinkImage") = "NA" Then%>
" target="_blank"><%=rsExNav("LinkText")%>
<%
Else%>
" target="_blank"> |
|||