<% 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 PageText.PAGETEXTID, PageText.PageName, PageText.Alias, PageText.Text FROM PageText WHERE (((PageText.PageName)='About'))" rst.open strsql,conn If rst.EOF = false then rst.Filter ="Alias='-MainText'" Txt = rst.Fields("Text") End if %>

<% Response.Write(Trim(Txt)) rst.Filter = "Alias like 'Bullet%'" %> <% cnt = 1 Do while rst.EOF = false If cnt Mod 2 = 1 then colour = Colour1 else colour = Colour2 End if Txt = rst.Fields("Text") Response.Write("") Rst.MoveNext cnt = cnt + 1 Loop %> " + trim(Txt) + " <% rst.MoveFirst rst.Filter = "Alias like 'offer%'" cnt = 1 Do while rst.EOF = false If cnt Mod 2 = 1 then colour = Colour1 else colour = Colour2 end if Txt = rst.Fields("Text") Response.Write("") Rst.MoveNext cnt = cnt + 1 Loop %> At Parents for Children we can offer : " + trim(Txt) + " To find out more about any of the services please contact us now.

<% rst.Close %>