<%@LANGUAGE="VBSCRIPT"%> [an error occurred while processing this directive] <% 'Go and update the date table data to ensure all courses past today show as "completed" Server.Execute "TrainingUpdate.asp" Dim rsTraining__intSectionID, strSortBy,strSQL,strDate,strLocation,strCourses,strMyColor strMyColor="#ff0000" 'Sort color rsTraining__intSectionID = "1" 'Initial training table to show strDate="TrainingCourses.TrainingMonthID,TrainingCourses.DateStart" strLocation="TrainingLocation.location,TrainingCourses.TrainingMonthID,TrainingCourses.DateStart" strCourses="TrainingCourse.course,TrainingCourses.TrainingMonthID,TrainingCourses.DateStart,TrainingCourses.TrainingYear" If (Request.QueryString("TrainingSectionID") <> "") Then rsTraining__intSectionID = Request.QueryString("TrainingSectionID") strSortBy=strDate Else If (Request.QueryString("criteria") <> "") Then rsTraining__intSectionID = Request.QueryString("criteria") strSortBy=Request.QueryString("sortby") Else strSortBy=strDate End If If (Request.QueryString("section") <> "") Then rsTraining__intSectionID = Request.QueryString("section") End If End If strSQL="SELECT TrainingMonth.TrainingMonthID,TrainingMonth.CourseMonth, TrainingCourses.TrainingCoursesID,TrainingCourses.DateStart,TrainingCourses.TrainingTime, TrainingCourses.DateEnd, TrainingLocation.location,TrainingLocation.map, TrainingCourse.course, TrainingStatus.Status, TrainingSection.TrainingSection, TrainingCourse.definition, TrainingCourses.TrainingYear FROM TrainingStatus INNER JOIN (TrainingSection INNER JOIN (TrainingLocation INNER JOIN (TrainingCourse INNER JOIN (TrainingMonth INNER JOIN TrainingCourses ON TrainingMonth.TrainingMonthID = TrainingCourses.TrainingMonthID)"&_ " ON TrainingCourse.CourseID = TrainingCourses.courseID) ON TrainingLocation.LocationID = TrainingCourses.locationID) ON TrainingSection.TrainingSectionID = TrainingCourses.TrainingSectionID) ON TrainingStatus.StatusID = TrainingCourses.statusID WHERE TrainingStatus.StatusID Not Like 1 ORDER BY "&strSortBy set rsTraining = Server.CreateObject("ADODB.Recordset") rsTraining.ActiveConnection = MM_hanoun_STRING rsTraining.Source=strSQL rsTraining.CursorType = 3 rsTraining.CursorLocation = 2 rsTraining.LockType = 1 rsTraining.Open() rsTraining_numRows = 0 Dim Repeat1__numRows,Repeat2__numRows Repeat1__numRows = -1 Repeat2__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsTraining_numRows = rsTraining_numRows + Repeat1__numRows %> Training schedule
Products Training Support About Us Site Map Contact Us

Training Schedule

<% While ((Repeat1__numRows <> 0) AND (NOT rsTraining.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsTraining.MoveNext() Wend %>

Education and Training Schedule

bgcolor="<%=strMyColor%><%End If%>"> <%If strSortBy=strDate Then%>

Date

<%Else%>

Date

<%End If%>

Time

bgcolor="<%=strMyColor%><%End If%>"> <%If strSortBy=strLocation Then%>

Location

<%Else%>

Location

<%End If%>
bgcolor="<%=strMyColor%><%End If%>"> <%If strSortBy=strCourses Then%>

Courses

<%Else%>

Course

<%End If%>

Status

= Map of Location   calendarGet Calendar

<% Response.Write rsTraining("CourseMonth")&" "&rsTraining("DateStart") If rsTraining("DateEnd") <> "" Then Response.Write " - " If rsTraining("DateEnd") < rsTraining("DateStart") Then Dim strMonth strMonth=LCase(rsTraining("CourseMonth")) Select Case strMonth Case "january" Response.Write "February " Case "february" Response.Write "March " Case "march" Response.Write "April " Case "april" Response.Write "May " Case "may" Response.Write "June " Case "june" Response.Write "July " Case "july" Response.Write "August " Case "august" Response.Write "September " Case "september" Response.Write "October " Case "october" Response.Write "November " Case "november" Response.Write "December " Case "december" Response.Write "January " End Select End If Response.Write rsTraining("DateEnd")&" "&rsTraining("TrainingYear") End If %>

 <%=rsTraining("TrainingTime")%>

<%=(rsTraining.Fields.Item("location").Value)%>   " title="Find a map of this location" target="_blank">

<%=(rsTraining.Fields.Item("course").Value)%>
',450,300)" title="Click here to see a definition of this course."> Definition <%If rsTraining("Status")="Open" Then%> | &location=<%=Server.UrlEncode((rsTraining.Fields.Item("location").Value))%>&date=<%=(rsTraining.Fields.Item("CourseMonth").Value)%>%20<%=(rsTraining.Fields.Item("DateStart").Value)%>" title="Click here to register for this course."> Register <%End If%>

<%=(rsTraining.Fields.Item("Status").Value)%>

<% rsTraining.Close() Set rsTraining = Nothing %>