Jeg skal i mit administrationssystem lave et udtræk over de sidste 10 besøgende(IP nummer).
Det laver jeg ved: ----------------------------------------------------------------- i = 1 Set rs_last_10_visitors = Server.CreateObject("ADODB.RecordSet") rs_last_10_visitors.open "Select distinct IP from [Statistics] Where Site_Id = " & Site_Id , Conn,1,3 Do while not i = 10 AND NOT rs_last_10_visitors.EOF -----------------------------------------------------------------
Det virker fint!
Jeg vil gerne have bygget ind, at den sorterer dem efter feltet Stat_Date, og at jeg kan udskrive resten af felterne.
i = 1 Set rs_last_10_visitors = Server.CreateObject("ADODB.RecordSet") rs_last_10_visitors.open "Select distinct(IP), * from [Statistics] Where Site_Id = " & Site_Id & " ORDER BY Stat_Date", Conn,1,3 Do while not i = 10 AND NOT rs_last_10_visitors.EOF
i = 1 Set rs_last_10_visitors = Server.CreateObject("ADODB.RecordSet") rs_last_10_visitors.open "Select distinct IP from [Statistics] Where Site_Id = " & Site_Id & " order by stat_date" , Conn,1,3 Do while not i = 10 AND NOT rs_last_10_visitors.EOF
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
