<% Dim id,Sql,Rs,I,T,L,Z id=request("id") Call Header(id) %>
<% If id="" Then Sql="Select * From LOVE Order By ID DESC" Else Sql="Select * From LOVE Where ID<="&CLng(id)&" Order By ID DESC" End If Set Rs=Conn.Execute(Sql) Rs.PageSize=PAGE_SIZE Randomize For I=1 To Rs.PageSize If Rs.Eof Then Exit For T=Int(380*Rnd+350) L=Int(740*Rnd+10) Z=Rs.PageSize-I Response.Write "

?"&Rs("ID")&"

"&Rs("Pick")&"
"&Rs("Info")&"

"&Rs("Send")&"

"&Rs("PostDate")&"

" Rs.MoveNext Next Rs.Close Set Rs=Nothing Conn.Close Set Conn=Nothing %>
<% Call Footer() %>