GB

\\<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ="& Server.MapPath("look.mdb")&";pwd=missplace" IF Request.Querystring("action") = "delete" Then SQL = "DELETE \* FROM iplogg WHERE ID=" & Request.Querystring("id") Connect.Execute(SQL) Response.Redirect "iplogg.asp" ELSE SQL = "SELECT \* From iplogg ORDER BY tid DESC" Set RecSet = Connect.Execute(SQL) %\>\\check:\ \ \

\ \ \

\\\Name:\\\\ \

\\\Ip:\\\\ \

\\\Status:\\\\ \

\\\Tid:\\\\ \ \<% X=0 DO UNTIL RecSet.EOF OR X=30 %\> \ \

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

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

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

\\<%=RecSet("tid")%\> \\ \ \<% X=X+1 RecSet.MOVENEXT LOOP RecSet.CLOSE Connect.CLOSE Set RecSet = nothing Set Connect = nothing %\> \ \ \<% END IF %\> \________________________________________________\_ Permalänk: https://www.webforum.nu/p/89526 ## #2 — Biasse, 2003-11-03T12:58Z Måste väl vara knäpp??? Har gått igenom denna topic men kommer inte rätt: Permalänk: https://www.webforum.nu/p/1197006 ## #3 — Sebbe, 2003-11-03T13:17Z ``` GB

<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("look.mdb")&";pwd=missplace" IF Request.Querystring("action") = "delete" Then SQL = "DELETE * FROM iplogg WHERE ID=" & Request.Querystring("id") Connect.Execute(SQL) Response.Redirect "iplogg.asp" ELSE SQL = "SELECT * From iplogg ORDER BY tid DESC" Set RecSet = Server.CreateObject("ADODB.Recordset") RecSet.Open SQL, Connect, 1, 3 RecSet.PageSize = 40 %>check:

<% 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 %> <% 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 %>

Name:	Ip:	Status:	Tid:
<%=RecSet("username")%>	<%=RecSet("ip")%>	<%=RecSet("loginstatus")%>	<%=RecSet("tid")%>

<% END IF %> ``` Permalänk: https://www.webforum.nu/p/1197016 ## #4 — Biasse, 2003-11-03T13:38Z Den är helt klockren :-) Tackar, Tackar mvh Biasse Permalänk: https://www.webforum.nu/p/1197026 --- Tråden på webben: https://www.webforum.nu/amne/asp/89526-paging