---
title: "Mer än ett recordset"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6718-mer-än-ett-recordset"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "emil"
published: "2000-09-28T09:56:00.000Z"
updated: "2000-09-28T09:56:00.000Z"
replies: 0
views: 150
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/6718-mer-än-ett-recordset"
---

# Mer än ett recordset

## #1 — emil, 2000-09-28T09:56Z

Läste faqen och gjorde ett recordset utefter förklaringarna där.

Problemet är nu att jag använder recordsetet på min förstasida till nyheter, ( visar 3 senaste nyheterna med möjlighet att klicka sig vidare till mer ). Men vill samtidigt visa 3 senaste sportresultaten med möjlighet att klicka sig vidare och se fler resultat.

Hur gör man så att när man klickar på "Sida 2" så att inte både Nyheterna och resultaten hoppar till sida 2?

Hoppas nån förstår och kan hjälpa =)
tack på förhand mvh emil

koden för nyheterna:

\<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 3

SQL = "Select \* From Nyhet ORDER BY id DESC"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("sevenet.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
   Response.write "Där fanns det ju inget... " & sok
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs \< rstemp.pagesize
   counter = counter + 1

   Response.write "\<tr bgcolor='" & e9e9e9 &"'\>\<td \>\<b\>" & RStemp("Rubrik") & "\</td\>\</tr\>"
   Response.write "\<tr bgcolor='" & color & "'\>\<td bgcolor=FFFFFF\>" & RStemp("Av") & "\</td\>\</tr\>"
   Response.write "\<tr bgcolor='" & color & "'\>\<td\>" & RStemp("Datum") & "\</td\>\</tr\>"
   Response.write "\<tr bgcolor='" & color & "'\>\<td bgcolor=FFFFFF\>" & RStemp("Text") & "\</td\>\</tr\>"
   Response.write "\<tr bgcolor='" & color & "'\>\<td bgcolor=\>" & RStemp("br") & "\</td\>\</tr\>"

   rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rstemp.close
   Set rstemp = nothing
   %\>
   \<tr\>\<td width="406"\>\<hr\>\</td\>\</tr\>
   \<tr\>\<td width="406"\>
   \<%
   If maxcount \<\> 0 then
   response.write " Sida " & mypage & " av totalt " & maxcount & " sidor med nyheter. \<br\>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter \>= 3 then
      pad = ""
   End If
   ref = "\<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'\>" & pad & counter & "\</a\> "
   response.write ref & " "
   if counter mod 3 = 0 then
      response.write "\<br\>"
   End If
   Next
   End If
End If
%\>

Permalänk: https://www.webforum.nu/p/6718

---

Tråden på webben: https://www.webforum.nu/amne/asp/6718-mer-än-ett-recordset