%
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
ID= Request.QueryString("ID")
if len(trim(ID))>0 then
strSQL ="SELECT PageText.PAGETEXTID, PageText.PageName, PageText.Alias, PageText.Text FROM PageText WHERE (((PageText.PageName)='Social_Workers')) and PageTextId = " & ID
rst.open strSQL,conn,1,3
end if
%>