--- title: "paging" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/14277-paging" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "hacktheplanet" published: "2002-02-07T20:21:00.000Z" updated: "2002-02-08T09:14:00.000Z" replies: 5 views: 168 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/14277-paging" --- # paging ## #1 — hacktheplanet, 2002-02-07T20:21Z hur fixar jag det hära?? ``` <% mypage = Request("sida") If mypage = "" then mypage = 1 End If mypagesize = 36 Set db = Server.CreateObject("ADODB.Connection") db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("Database/grupper.mdb") SQL = "SELECT * FROM inlagg WHERE Rum LIKE '"& request.querystring("rum") &"' ORDER BY Datum DESC" Set rs = db.Execute(SQL) SQL = "SELECT * FROM rum_rum WHERE Namn LIKE '"& request.querystring("rum") &"'" Set rs2 = db.Execute(SQL) SQL = "SELECT * FROM medlemmar WHERE Namn LIKE '"& session("username") &"' AND Rum LIKE '"&request.querystring("rum")&"'" Set rs3 = db.Execute(SQL) rs.cursorlocation = 3 rs.cachesize = 5 %> ``` Permalänk: https://www.webforum.nu/p/14277 ## #2 — hacktheplanet, 2002-02-07T23:12Z nån x( Permalänk: https://www.webforum.nu/p/309764 ## #3 — Vide, 2002-02-07T23:55Z Utgå ifrån denna artikeln helt enkelt: Permalänk: https://www.webforum.nu/p/309765 ## #4 — hacktheplanet, 2002-02-08T09:00Z jag vill helst använda mig utav: ``` <% If maxcount <> 0 then pad = "0" scriptname = request.Servervariables("script_name") for counter = 1 to maxcount If counter >= 10 then pad = "" End If ref = "" & pad & counter & " " response.write ref & " " Next End If %> ``` Permalänk: https://www.webforum.nu/p/309766 ## #5 — Vide, 2002-02-08T09:04Z Gör det då!? Permalänk: https://www.webforum.nu/p/309767 ## #6 — hacktheplanet, 2002-02-08T09:14Z det blir mycket kod men snälla kan nån hjälpa mig :( ``` <% on error resume next mypage = Request("sida") If mypage = "" then mypage = 1 End If mypagesize = 31 Set db = Server.CreateObject("ADODB.Connection") db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("Database/grupper.mdb") SQL = "SELECT * FROM inlagg WHERE Rum LIKE '"& request.querystring("rum") &"' ORDER BY Datum DESC" Set rs = db.Execute(SQL) SQL = "SELECT * FROM rum_rum WHERE Namn LIKE '"& request.querystring("rum") &"'" Set rs2 = db.Execute(SQL) SQL = "SELECT * FROM medlemmar WHERE Namn LIKE '"& session("username") &"' AND Rum LIKE '"&request.querystring("rum")&"'" Set rs3 = db.Execute(SQL) %>

<% IF NOT (RS.EOF) THEN %>


	<%=request.querystring("rum")%>	"><%=request.querystring("moderator")%> <%=left(request.querystring("kon"),1)%>

<% rs.movefirst rs.pagesize = mypagesize maxcount = Cint(rs.pagecount) rs.absolutepage = mypage howmanyrecs = 0 howmanyfields = rs.fields.count -1 Do While Not RS.EOF AND howmanyrecs < rs.pagesize counter = counter + 1 If counter mod 2 = 0 then color = "#FFFFFF" Else color = "#F0F0F0" End If %> <% RS.Movenext howmanyrecs = howmanyrecs + 1 Loop RS.Close %> <% ELSE %>

<%if rs("VIP") = "Ja" then%>

<%=rs( är VIP medlem!" width="11" height="10"><%else%><%end if%>"><%=Rs("av")%> <%=left(rs("kon"),1)%> <% newage = DateDiff ("d", rs("alder"), Now) newage = newage - (newage Mod 365) newage = newage / 365 response.write(newage)%> från <%=rs("stad")%> - <%postDate = cdate(rs("datum")) days = datediff("d",postDate,now()) if days = 0 then response.write "idag "& "" & FormatDateTime(postDate,3) elseif days = 1 then response.write "igår "& "" & FormatDateTime(postDate,3) else response.write postDate end if%>
<%=rs("Text")%>

<%End if%>

Tyvärr denna grupp är tom!<%=rs("av")%>


	<% If maxcount <> 0 then pad = "0" scriptname = request.Servervariables("script_name") for counter = 1 to maxcount If counter >= 10 then pad = "" End If ref = "" & pad & counter & " " response.write ref & " " Next End If %>

``` Permalänk: https://www.webforum.nu/p/309768 --- Tråden på webben: https://www.webforum.nu/amne/asp/14277-paging