<% 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_Adoption'))" rst.open strsql,conn If rst.EOF = false then rst.Filter ="Alias='-Title'" Txt = rst.Fields("Text") End if %>
.
Conferences
 
Adoption

Family Pic <% Response.Write(Trim(Txt)) rst.Filter = "Alias like '-MainText'" %>

<% Txt = rst.Fields("Text") Response.Write(Trim(Txt)) rst.Filter = "Alias like 'Bullet%'" %>
Parents for Children is open to a wide range of people:
<% 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 'Adoption Process%'" 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 %>
    Adoption Process :
    " + trim(Txt) + "
    		 
    <% rst.Close %>