|
|
|
<%set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from document order by id desc"
rs.open sql,conn,1,2
%>
<% If rs.EOF And rs.BOF Then %>
<% End If %>
<% do while not rs.eof%>
<% rs.movenext
loop
rs.close %> |
|
|
|
|
|
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 8 * from photo order by id desc"
rs.open sql,conn,1,2
%>
<%
i=1
Do while Not Rs.eof
if i>4 then
response.Write " "
i=1
end if
%>
|
<%
RowCount = RowCount - 1
Rs.MoveNext
i=i+1
Loop
if i<>1 then
for j=1 to 4-i
response.Write(" | ")
next
end if
%>
|
|
|
|
|
|
|