Upcoming Courses

<% Set oConn=Server.CreateObject("ADODB.Connection") Set oRS=Server.CreateObject("ADODB.Recordset") oConn.Open gblConnectString oRS.Open "SELECT * FROM tblCourses WHERE [strCourseStatus]='U'ORDER BY [dteCourseDate] DESC", oConn Do While not(oRS.EOF) %>
Title: <%Response.Write oRS("strCourseTitle")%>
Date: <%Response.Write oRS("dteCourseDate")%> Time: <%Response.Write oRS("dteCourseTime")%> Duration: <%Response.Write oRS("intCourseDuration")%> day(s)
Location: <%Response.Write oRS("strCourseLocation")%>
Agenda: <%Response.Write oRS("memCourseAgenda")%>

<%oRS.MoveNext Loop %>

Courses Held

<% Set oConn=Server.CreateObject("ADODB.Connection") Set oRS=Server.CreateObject("ADODB.Recordset") oConn.Open gblConnectString oRS.Open "SELECT * FROM tblCourses WHERE [strCourseStatus]='H' ORDER BY [dteCourseDate] DESC", oConn Do While not(oRS.EOF) %>
Title: <%Response.Write oRS("strCourseTitle")%>
Date: <%Response.Write oRS("dteCourseDate")%> Time: <%Response.Write oRS("dteCourseTime")%> Duration: <%Response.Write oRS("intCourseDuration")%> day(s)
Location: <%Response.Write oRS("strCourseLocation")%>
Agenda: <%Response.Write oRS("memCourseAgenda")%>

<%oRS.MoveNext Loop %>

Accreditation

COCA is working towards the gaining of accreditation of a Diploma in Drug Addiction ...