<% dim rst, strSQL, Txt, cnt, Colour 'Create the Recordset object set Rst = server.CreateObject("ADOR.Recordset") 'Open the connection to the database 'Conn.Open strCon strSQL ="SELECT Training.TRAININGID, Training.Title FROM Training WHERE Training.Active=True" rst.open strsql,conn If rst.EOF = false then 'rst.Filter = "Alias like 'Bullet%'" End if %>
.
") Rst.MoveNext cnt = cnt + 1 Loop %>
Training
A regular programme of training is offered.

Training topics include:
<% cnt=1 Do while rst.EOF = false If cnt Mod 2 = 1 then colour = Colour1 else colour = Colour2 end if Txt = rst.Fields("Title") Response.Write("
" + trim(Txt) + "
The overall aim of many of our courses is to help participants to explore feelings around the experience of the child in placement and aspects of the fostering task.
 
<% rst.Close %>