---
title: "Problem med annons script"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/89482-problem-med-annons-script"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Denniss"
published: "2003-11-02T16:26:24.000Z"
updated: "2003-11-02T17:33:47.000Z"
replies: 1
views: 219
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/89482-problem-med-annons-script"
---

# Problem med annons script

## #1 — Denniss, 2003-11-02T16:26Z

Hej!

Jag behöver hjälp med asp koden i annons script.

Problemet: När jag skriver tex volvo får jag fram alla annonser med volvo tex 2 sidor har jag.Men när jag ska bläddra till sidan 2 hamnar jag på alla annonser.

Koden:

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

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

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

If Request.QueryString("queryKat") \<\> "" Then
		sql = sql & " and kategori LIKE '%" & Request.QueryString("queryKat") & "%' "
		queryKat = Request.QueryString("queryKat")
	Else
		if not Request.Form("kategori") = "0" then 
			sql = sql & " and kategori LIKE '%" & Request.Form("kategori") & "%' " 
			queryKat =  Request.Form("kategori")
		end if 
	End If

If Request.QueryString("queryReg") \<\> "" Then
		sql = sql & " and region LIKE '%" & Request.QueryString("queryReg") & "%' "
		queryReg = Request.QueryString("queryReg")
	Else
	
	if not Request.Form("region") = "0" then 
		sql = sql & " and region LIKE '%" & Request.Form("region") & "%' "
               queryReg =  Request.Form("region")
end if 
	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("Annonser.mdb")&""
%\> 

Paging kod:

\<a href="sok_annons_visa.asp?querykat=\<%=querykat%\>&page=\<%=(Int(page)-1)%\>&queryreg=\<%=queryreg%\>&page=\<%=(Int(page)-1)%\>" onFocus="this.blur()"\>\<font size="1"\>« Föregående sida\</font\>\</a\>\<font size="1"\> \| 
                    \<%Else%\>\<%End If%\>
                    \<% 
          For Pages = 1 To TotalPages 
          %\>
                    \<%If (Int(Pages)) = (Int(page)) Then%\> \<%=Pages%\> 
                    \<%Else%\>
                    \<a href="sokannons.asp?querykat=\<%=querykat%\>&page=\<%=Pages%\>&queryreg=\<%=queryreg%\>&page=\<%=Pages%\>" onFocus="this.blur()"\>\<%=Pages%\>\</a\> 
                    \<%End If%\>
                    \<%Next%\>
                    \<%End If%\>
                    \<%
          If (Int(page)) \<\> (Int(TotalPages)) Then
          %\>
                    \| \<a href="sokannons.asp?querykat=\<%=querykat%\>&page=\<%=(Int(page)+1)%\>&queryreg=\<%=queryreg%\>&page=\<%=(Int(page)+1)%\>" onFocus="this.blur()"\>\<font size="1"\>Nästa sida »\</font\>\</a\>

Någon som kan detta ?

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

## #2 — solbulle, 2003-11-02T17:33Z

Du måste ju ta med dig de sökkriterier du först postat till din sida o byggt upp din sqlfråga med till din nästa sida där du kör frågan igen.
Se till att lägg till den datan i din länk till nästa sida.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/89482-problem-med-annons-script