<% 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+120) L=Int(740*Rnd+10) Z=Rs.PageSize-I Response.Write "" Rs.MoveNext Next Rs.Close Set Rs=Nothing Conn.Close Set Conn=Nothing %>