<% Dim Sql Sql="Select * From [KuKoo_LoveWallPosts] Order By KuKoo_WishID DESC" Dim Rs Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.PageSize=Kukoo_IndexNum Rs.CacheSize=Rs.PageSize Rs.Open Sql,Conn,1,1 Dim Page If Request("Page")="" Then Page=1 Else Page=Clng(Request("Page")) End If If Not(Rs.Eof And Rs.Bof) Then Rs.AbsolutePage=Page End If Dim PageCount,RecordCount PageCount=Rs.PageCount RecordCount=rs.recordcount Dim I,T,L,Z For I=1 To Rs.PageSize If Rs.Eof Then Exit For End If Randomize T = Int(400*Rnd+25) L = Int(700*Rnd+10) Z = Int(50*Rnd+2) QQ=Rs("KuKoo_SenderQQ") if Trim(QQ) <> "" and QQ <> 0 then QQ="QQ:"&QQ&"" else QQ="" end if response.write "" Rs.MoveNext Next RS.Close Set RS=Nothing Conn.Close Set Conn=Nothing %>