<% Set DBConnection = Server.CreateObject("ADODB.Connection") dbConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=D:\www\allette\courses\database\Training.mdb" & ";Uid=;Pwd=" DBConnection.Open dbConnectionString 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

Scheduled Courses

<% 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 %>
<% For i = 0 To CourseCount Title = Courses(0,i) Desc = Courses(1,i) Duration = Courses(2,i) SingleFee = Courses(3,i) GroupFee = Courses(4,i) StartDate = Courses(5,i) Location = Courses(6,i) Index = Courses(8,i) Full = Courses(9,i) If i = 0 Then PreviousTitle = Courses(0,i) Else PreviousTitle = Courses(0,i-1) End If ' SW, 1 May 2002: To accomodate unset date for a course, use "1/1/2050" to be key date to output ' "Call for dates" text instead of the actual course date if StartDate = "1/1/2050" then DurationStr = "Call for dates" else If Duration =0.5 Then EndDate=StartDate Else EndDate = DateAdd("D", Round(Duration)-1, StartDate) End If If EndDate <> StartDate Then If Month(StartDate)= Month(EndDate) Then DurationStr = FormatMonth(Month(StartDate)) & " " & Day(StartDate) & " - " & Day(EndDate) Else DurationStr = FormatMonth(Month(StartDate)) & " " & Day(StartDate) & " - " & FormatMonth(Month(EndDate)) & " " & Day(EndDate) End If Else DurationStr = FormatMonth(Month(StartDate)) & " " & Day(StartDate) End If End If If (PreviousTitle <> Title) Or (i=0) Then Response.write "" Response.write "" _ & "" If GroupFee=Null Then Response.Write "" Else Response.Write "" End If Else Response.Write "" _ & "" _ & "" End If Response.Write "" _ & "" _ & "" Response.Write "" end if Next %>

Course Title

Single Fee

Group Fee

Date

City

 

per person

   

" & Title & "
(" & Duration & " Day)

$"& SingleFee & "

 N/A

$"& GroupFee & "

   

"&DurationStr&"

" & Location & "

" if (Full<>0) then Response.Write "Full" _ & "

All course fees quoted are exclusive of GST and are subject to minimum enrolments.

If you do not see a course listed you are wanting to attend, please inquire.

 

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