<?xml version="1.0" encoding="gb2312" ?>
<portfolio>
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from photo"
rs.open sql,conn,1,3
Response.Buffer = flase
rs.MoveLast
t=0		
Do While Not rs.BOF
t=t+1
  If rs(4) =1 Then
    txt1="地点："
    txt2="拍摄日期："
    else
    txt1="来源："
    txt2="上传日期："
End If  
%>
<p img="<%=rs(2)%>"  site="<%=txt1%><%=rs(5)%>"  data="<%=txt2%><%=rs(3)%>"></p>
<%
If t =30 Then
exit do  
End If  
rs.MovePrevious	
loop
rs.close
set rs=nothing
%>
</portfolio>