|
Attend one of the following Microsoft Windows Vista courses
between November 5th and April 25th 2008 and receive a FREE copy of
Microsoft Office 2007 Enterprise Edition.
Course
5115 - Installing and Configuring the Windows Vista Operating System
Course
5119 - Supporting the Microsoft Windows Vista Operating System and
Applications
For available dates and to register online click the course
number above.
For additional information please contact one of our
education consultants:
<% strSQL = "Select * from CourseInfo where CourseNotes='Promo1' " & _
" AND CourseOnline = yes " & _
" ORDER BY CourseID"
objRS.Open strSQL, Application("Conn")
strSQL = "Select * from CourseCat where CourseCatID=1"
objRS2.Open strSQL, Application ("Conn")
Response.Write ""
if objRS.EOF = true and objRS.BOF = true then
Response.Write ""
Response.Write "| No Records Found | "
Response.Write " "
end if
x = 0
do while objRS.EOF <> true
Set objRS1 = Server.CreateObject("ADODB.Recordset")
strSQL = "Select StartDate from Schedule where CourseID='" & objRS("CourseID") & "' order by startdate"
objRS1.Open strSQL, Application("conn")
strDates = ""
y = 0
if objRS1.EOF <> true then
do while objRS1.EOF <> true
if objRS1("StartDate") > Now( ) then
newDate = FormatDateTime( objRS1("StartDate"), vbLongDate )
posComma = instr(1,newDate,",")
newDate = Right(newDate,len(newDate) - posComma - 1 )
posComma = instr(1,newDate,",")
newDate = Left(newDate, posComma-1)
if y = 0 then
strDates = strDates & newDate
else
strDates = strDates & ", " & newDate
end if
y = y + 1
end if
objRS1.MoveNext
loop
else
strDates = "Please call for dates"
end if
objRS1.Close
if x mod 2 = 1 then
Response.Write ""
Response.Write "| " & objRS("CourseID") & " | "
Response.Write "" & objRS("CourseName") & " | "
Response.Write "" & objRS("CourseDays") & " | "
Response.Write "" & strDates & " | "
Response.Write "" & "$" & objRS("CoursePrice") & " | "
Response.Write "Outline | "
Response.Write "Request Info | "
Response.Write " "
else
Response.Write ""
Response.Write "| " & objRS("CourseID") & " | "
Response.Write "" & objRS("CourseName") & " | "
Response.Write "" & objRS("CourseDays") & " | "
Response.Write "" & strDates & " | "
Response.Write "" & "$" & objRS("CoursePrice") & " | "
Response.Write "Outline | "
Response.Write "Request Info | "
Response.Write " "
end if
x = x + 1
objRS.MoveNext
loop
objRS.Close
objRS2.Close
%>
By email:
sales@ctesolutions.com
By phone: (613) 798-5353 or +1 (866) 635-5353
Terms:
- This offer is valid while supply lasts or until April 25th 2008
- Courses are subject to availability
- CTE Solutions reserves the right to cancel courses
|
