|
|
|
|
<%
Set db=Server.CreateObject("ADODB.Connection")
'
set rs=server.createObject("ADODB.Recordset")
if request("showall")="true" then
rs.open "select * from news ORDER by ID desc", db
else
rs.open "select * from news ORDER by ID desc LIMIT 7", db
end if
myCount=0
do while NOT rs.eof
myCount=myCount+1
%>
| —<%=replace(rs("title"),"þ","'")%> |
<%=replace(rs("news"),"þ","'")%>
Posted by <%=rs("author")%> on <%=rs("created")%>.
|
<%
rs.movenext
loop
rs.close
db.close
set db=nothing
%>
<% if request("showall")<>"true" then %>
<< Display Older Entries
<% else %>
Hide Older Entries >>
<% end if %>
|
|
|
|
|
