---
title: "Problem med paging från valt kategori"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/62807-problem-med-paging-från-valt-kategori"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Tik"
published: "2002-12-21T09:16:34.000Z"
updated: "2002-12-26T19:28:59.000Z"
replies: 12
views: 256
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/62807-problem-med-paging-från-valt-kategori"
---

# Problem med paging från valt kategori

## #1 — Tik, 2002-12-21T09:16Z

Koden ser så här ut:

\<% 
sql = "select \* from Annonser where 1 = 1 and accepterad = true"

if not Request.Form("annonstyp") = checked then
sql = sql & " and annonstyp LIKE '%" & Request.Form("annonstyp") & "%' " 
end if

if LEN(Request.Form("sok")) \> 0 then
sql = sql & " and Rubrik LIKE '%" & Request.Form("sok") & "%' " 
end if

if not Request.Form("kategori") = "0" then
sql = sql & " and kategori LIKE '%" & Request.Form("kategori") & "%' " 
end if

if not Request.Form("region") = "0" then
sql = sql & " and region LIKE '%" & Request.Form("region") & "%' " 
end if

sql = sql & " order by datum DESC "

Set recset = Server.Createobject("ADODB.Recordset")
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
Const perSida = 20
If Request.QueryString("page") = "" then 
page = 1 
Else 
page = Request.QueryString("page") 
End If

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida
recset.open SQL, "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.MapPath("Database/Annonser.mdb")&""
%\> 

\<%RecSet.MoveFirst 
RecSet.PageSize = perSida

TotalPages = RecSet.PageCount 
RecSet.AbsolutePage = page 

Count = 0 
Do While Not RecSet.EOF And Count \< RecSet.PageSize %\>
            \<td width="80" height="18"\>\<font size="2" face="Tahoma"\>&nbsp;\<%=left(recset("Datum"),10)%\>\</font\>\</td\>
            \<td width="44" height="18"\>\<font size="2" face="Tahoma"\>&nbsp;\<%=mid(recset("Datum"),12,5)%\>\</font\>\</td\>
            \<td width="21" height="18"\>\<%if not recset("bild") = "" then%\>\<font size="2" face="Tahoma"\>&nbsp;\<img src="Bilder/bild.gif"\>\<%end if%\>\</font\>\</td\>
            \<td width="234" height="18"\>\<font face="Tahoma"\>\<font size="2"\>&nbsp;\</font\>\<a href="javascript:Annons('visa_annons.asp?annonsid=\<%=recset("annonsid")%\>','\<%=recset("annonsid")%\>','scrollbars=yes,width=600,height=550,top=50')"\>\<font size="2"\>\<%=recset("Rubrik")%\>\</font\>\</a\>\</font\>\</td\>
            \<td width="54" height="18"\>\<font size="2" face="Tahoma"\>&nbsp;\<%if not recset("Pris") = "" then%\>\<%=recset("Pris")%\>&nbsp;kr\<%end if%\>\</font\>\</td\>
            \<td width="165" height="18"\>\<font size="2" face="Tahoma"\>&nbsp;\<b\>\<%=recset("kategori")%\>\</b\>\<br\>
            &nbsp;\<%=recset("region")%\>\</font\>\</td\>
            
          \</tr\>\<%
          Count = Count + 1 
          recset.movenext
            loop
            %\>
        \</table\>
  \<img border="0" src="Bilder/genom.gif" width="1" height="6"\>\<%If TotalPages \<\> 1 Then%\>
          \<tr\>
          \<b\>\<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="590" id="AutoNumber9"\>
          \<tr\>
            \<td width="100%" bgcolor="#FFFFFF"\>\<b\>\<font size="2" face="Tahoma" COLOR="#000000"\>&nbsp;Sida:\</font\>\<font size="1" face="Tahoma"\>
             \<% 
          If TotalPages \<\> 1 Then
          If (Int(page)) \<\> 1 Then
          %\>
                    \</font\> 
            \<font face="Tahoma" COLOR="#006699"\>
           \<a href="sok_annons_visa.asp?page=\<%=(Int(page)-1)%\>" onFocus="this.blur()"\>
           \<font size="1"\>« 
                    Bakåt\</font\>\</a\>\<font size="1"\> \| 
                    \<%Else%\>\<%End If%\>
                    \<% 
          For Pages = 1 To TotalPages 
          %\>
                    \<%If (Int(Pages)) = (Int(page)) Then%\> \<%=Pages%\> 
                    \<%Else%\>
                    \<a href="sok_annons_visa.asp?page=\<%=Pages%\>" onFocus="this.blur()"\>\<%=Pages%\>\</a\> 
                    \<%End If%\>
                    \<%Next%\>
                    \<%End If%\>
                    \<%
          If (Int(page)) \<\> (Int(TotalPages)) Then
          %\>
                    \|\<a onFocus="this.blur()" href="sok_annons_visa.asp?page=\<%=(Int(page)+1)%\>" COLOR="#FFFFFF"\> Framåt »\</a\> 
                    \<%Else%\>
                    \<% end if %\> \</font\>\</td\>
          \</tr\>
        \</table\>
        \<%end if%\>
  \<img border="0" src="Bilder/genom.gif" width="1" height="6"\>\<%else%\>\<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="590" id="AutoNumber10"\>
          \<tr\>
            \<td width="100%"\>\<center\>
            \<p\>\<b\>\<font face="Tahoma" \>Din sökning gav inga träffar\</font\>\</b\>\</p\>
            \</center\>\</td\>
          \</tr\>
        \</table\>
        \<%end if%\>

Och jag vill att när man väljer en viss kategori ska det gå att bläddra mellan sidor och titta på ENDAST annonser i denna kategori.

Vad som skal ändras/läggas till ?

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

## #2 — Ekström, 2002-12-21T11:38Z

Vad får du för felmeddelande då?

Ta bort 1 = 1 i SQL-satsen

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

## #3 — Tik, 2002-12-21T12:20Z

inget.Utan den bläddrar annonser från alla kategorier.Inte från den utvalda tex bilar.

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

## #4 — Tik, 2002-12-21T12:53Z

Jag tog bort men det hjälper inte.

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

## #5 — solbulle, 2002-12-21T13:07Z

Är alla dina formulärfält textfält? Annars om en del av dom är selectlistor är det onödigt att ha med "Like" i sqlfrågan.

Typ:

```
if not Request.Form("kategori") = "0" then 
sql = sql & " and kategori  ='" & Request.Form("kategori") & "' " 
end if
```

Är det text eller tal i databasfälten?

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

## #6 — Tik, 2002-12-21T13:56Z

Vad skulle jag i så fall skriva ? Ta bort dem ?

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

## #7 — Tik, 2002-12-21T14:29Z

Funkar ej utan LIKE.

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

## #8 — Tik, 2002-12-21T17:10Z

Någon som kan detta ?

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

## #9 — Tik, 2002-12-22T09:16Z

Vad är det jag skall ändra ?

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

## #10 — solbulle, 2002-12-22T10:31Z

Fungerar alltså det hela när du postat formuläret och du kommer till sidan för första gången?
Om det är så och det inte fungerar när du går vidare är det **nog** för att din sqlfråga blir fel på nästa sida. - Du får inte med dig dina värden från formuläret då.
Jag skulle tro att du måste fixa länken till nästa sida.

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

## #11 — Tik, 2002-12-22T20:49Z

Nästa sida är:

sok_annons_visa.asp

Vad skall jag ändra/fixa ?Den ser likadant ut som koden hjag skrev här på sidan.

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

## #12 — Tik, 2002-12-24T15:53Z

Någon som kan och vill fixa detta ?

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

## #13 — Tik, 2002-12-26T19:28Z

Jo som Solbulle säger:

"felet är vad jag förstår att när du klickar på länken till nästa sida kör ditt script din sql-fråga igen och då har du inte med dig informationen att det bara ska vara en viss kategori. 
Du måste ändra dina länkar i din paging så att de fakta som ursprungligen kommer från formuläret kommer med i länkarna. "

Men min fråga: vad är det som skall ändras ? vad skall jag skriva ?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/62807-problem-med-paging-från-valt-kategori