\ ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("/db/admin.mdb")&";pwd=xxxxxxxx" IF Request.Querystring("action") = "delete" Then SQL = "DELETE FROM iplogg WHERE tid NOT IN (SELECT top 500 tid FROM iplogg ORDER BY tid DESC)" Connect.Execute(SQL) Response.Redirect "iplogg.asp" ELSE SQL = "SELECT * From iplogg ORDER BY tid DESC" oldAction=Request.Querystring("action") Set RecSet = Server.CreateObject("ADODB.Recordset") RecSet.Open SQL, Connect, 1, 3 RecSet.PageSize = 30 %> ``` \\Check IP:\ \ \

\ \ \

\\\Name:\\\\ \

\\\Ip:\\\\ \

\\\Status:\\\\ \

\\\Tid:\\\\ \ ``` <% X=0 If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then intPage = 1 Else intPage = CInt(Request.QueryString("page")) End If RecSet.AbsolutePage = intPage DO UNTIL RecSet.EOF OR X = RecSet.PageSize %> ``` \ \

\ ``` <%=RecSet("username")%> ``` \\ \

\ ``` <%=RecSet("ip")%> ``` \\ \

\ \

``` <%=RecSet("loginstatus")%> ``` \\ \

\ ``` <%=RecSet("tid")%> ``` \\ \ ``` <% X=X+1 RecSet.MOVENEXT LOOP If RecSet.PageCount > 1 Then For i = 1 To RecSet.PageCount If i <> intPage Then Response.Write("" & i &" ") Else Response.Write("[" & i & "] ") End If Next End If RecSet.CLOSE Connect.CLOSE Set RecSet = nothing Set Connect = nothing %> ``` \ \Spara de 500 senaste, radera resten. \ \ ``` <% END IF %> ``` Permalänk: https://www.webforum.nu/p/94837 ## #2 — Biasse, 2004-01-15T17:24Z Ingen... line 23 är connect strängen och kollumen tid finns i databasen. Att läsa posterna är inga problem. Permalänk: https://www.webforum.nu/p/1252813 ## #3 — LarsG, 2004-01-15T21:02Z Jag sökte på Google med "not found in any record" och där fanns diverse länkar. I en av dem stod det att detta kunde bero på att databasen var korrupt och man skulle göra repair. Flyttas från ASP Permalänk: https://www.webforum.nu/p/1253009 --- Tråden på webben: https://www.webforum.nu/amne/databaser-sql/94837-radera-allt-utom-500-sista