<% 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 %> <% = Session("title")%> /styles/pfc.css" type="text/css" />
Carers Carers
<% Response.Write(rst.Fields ("Text"))%>