<% Set DBConnection = Server.CreateObject("ADODB.Connection") DBConnection.Open "Training" strCon = "SELECT Title, DetailDesc, Duration, SingleFee, GroupFee, [Date], Location, Code, index, Full FROM tblCourse, tblRecord WHERE (Code = CourseCode) AND (Date > now()) ORDER BY Title, Date" Set rst = Server.CreateObject("ADODB.RecordSet") rst.Open strCon, DBConnection, 2, 2, 1 If Not rst.EOF Then Courses = rst.GetRows CourseCount = UBound(Courses, 2) Else CourseCount = -1 End If rst.Close Set rst = Nothing DBConnection.Close Set DBConnection = Nothing Function FormatMonth(M) If M = "1" Then FormatMonth = "Jan" ElseIf M = "2" Then FormatMonth = "Feb" ElseIf M = "3" Then FormatMonth = "Mar" ElseIf M = "4" Then FormatMonth = "Apr" ElseIf M = "5" Then FormatMonth = "May" ElseIf M = "6" Then FormatMonth = "Jun" ElseIf M = "7" Then FormatMonth = "Jul" ElseIf M = "8" Then FormatMonth = "Aug" ElseIf M = "9" Then FormatMonth = "Sep" ElseIf M = "10" Then FormatMonth = "Oct" ElseIf M = "11" Then FormatMonth = "Nov" Else FormatMonth = "Dec" End If End Function %> Training
Mailing List

Training

Inquire Online

<% if(StrComp(Request.QueryString("error"),"",0)=1) then Response.write ("

There is an error processing your request. Please check any specific error message below.

") end if %>

Step1: Choose your course

*Select a Course


*Select Month

Courses are subject to minimum enrolments.

Step2: Fill out your details

*First name

">

*Last name

">

*Phone

">

*Email

">

Company

">

*City

">

*Attendees

"> Group fee discounts for 3 or more persons from the same organisation.

  *How did you hear of this course?

Please enter the two words validation as it is shown below:

Allette Systems (Australia) • Level 2, 73 Union St, Pyrmont, NSW, 2009 • Ph +61 2 9660 8866 • Fax +61 2 9660 8869
Email • ABN 49 058 319 181