<%Title=Trim(request("Title")) Set rs = Server.CreateObject("ADODB.Recordset") sql="select Content from Aboutus where Title='"&Title&"'" rs.open sql,conn,1,3 title=rs("title") SiteContent=rs("content") %>
 
<% Set rslist = Server.CreateObject("ADODB.Recordset") sql="select Title from Aboutus order by Aboutusorder" rslist.open sql,conn,1,3 do while not rslist.eof %> <%rslist.movenext loop%>
<% call ShowFriendLinks(2,6,6,3) %>
 
 
<%=Title%>  
     
<%=rs("Content")%>
 
 
<%rs.close set rs=nothing rslist.close set rslist=nothing %>