---
title: "Paging vs. två sessions?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12892-paging-vs-två-sessions"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Hallgren"
published: "2001-11-24T15:42:00.000Z"
updated: "2001-11-28T15:28:00.000Z"
replies: 7
views: 266
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/12892-paging-vs-två-sessions"
---

# Paging vs. två sessions?

## #1 — Hallgren, 2001-11-24T15:42Z

Mmmm, nu har jag suttit ett tag och kan inte hitta någon lösning till mitt lilla problem.

Sitter med vides paging till en sök funktion och har nu lag in en koll på om man har skrivit in ett sökord eller inte. Använder mig av en session för att skriva ut en text.

Felet är att paging funktionen slutar att funka. Den radar upp alla poster. :(

```
---sida 1---
<html>
<head>
	<title>.sök</title>
</head>
<body>
<%
if session("mess") = "" then
response.write "tom" 
else
response.write session("mess")
end if
%>
<table>
	<tr>
		<td>
		<form method="post" action="fieldcheck.asp">
		<input type="text" name="sokord">
		<p>
		<input type="submit" value=".sök">
		</form>
		</td>
	</tr>
</table>
</body>
</html>
```

```
---sida 2---
<%
if not trim(request.form("sokord")) = "" then
response.redirect "sokexe.asp"
else
session("mess") = "text" 
response.redirect "sok.asp"
end if
%>
```

```
---sida 3--
<%
if request.form("sokord") = "" then
word = session("sokord")
else
word = request.form("sokord")
session("sokord") = word
end if

Dim Connect 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={MYSQL};server=localhost;db=webshop;uid=;pwd=;"

resultat = "SELECT count(*) FROM varor WHERE vara LIKE '" & word & "%'" 

strSQL = "SELECT * FROM varor WHERE vara LIKE '" & word & "%'"

Set objRs = Server.Createobject("Adodb.Recordset")
Set rs = Connect.execute(resultat)

'paging

intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
  .cursorlocation = 3 
  .open strSQL,connect
  .pagesize = 2 
  .absolutepage = intPageId 
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0

do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents & "<a href ='?katid=" & objrs("artnr") & "'>" & objRs("vara") & "</a>" & "<br>"
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next

response.write "Din sökning gav " & rs(0) & " träffar." & "<p>"

response.write strNavigation & "<p>"
response.write strContents
%>
```

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

## #2 — @nders, 2001-11-24T15:48Z

Postar du någonting till sida 3?

Jag ser inte att du måste ha sida 2, den känns lite onödig. Om du inte har mer kod där vill säga.

Var sätter du session("sokord")?

Mvh,

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

## #3 — Hallgren, 2001-11-24T15:53Z

Om jag kan ha sida 2's funktion på sida 3 så blir jag ju glad med har inte lyckats med det än... :l

```
if request.form("sokord") = "" then
word = session("sokord")
else
word = request.form("sokord")
session("sokord") = word
end if
```

...där? Mmm, blir det fel då jag har en sida imellan?

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

## #4 — @nders, 2001-11-24T16:02Z

Det resulterar ju i alla fall i att ingenting postas till sida 3.

Jag gissar lite här: sida1 är sok.asp och sida3 är sokexe.asp?

Vad ska du använda session("sokord") till?

Vet inte om jag förstått precis vad du gör, men prova denna kod:

```
<%

if request.form("sokord") = "" then
word = session("sokord")
session("mess") = "text" 
response.redirect "sok.asp"
else
word = request.form("sokord")
session("sokord") = word
end if
Dim Connect 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={MYSQL};server=localhost;db=webshop;uid=;pwd=;"

resultat = "SELECT count(*) FROM varor WHERE vara LIKE '" & word & "%'" 

strSQL = "SELECT * FROM varor WHERE vara LIKE '" & word & "%'"

Set objRs = Server.Createobject("Adodb.Recordset")
Set rs = Connect.execute(resultat)

'paging

intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
.cursorlocation = 3 
.open strSQL,connect
.pagesize = 2 
.absolutepage = intPageId 
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0

do while not objRs.eof and intCurrentPost < objRs.pagesize
strContents = strContents & "<a href ='?katid=" & objrs("artnr") & "'>" & objRs("vara") & "</a>" & "<br>"
intCurrentPost = intCurrentPost + 1
objRs.movenext
loop

for i = 1 to objRs.pagecount
strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next

response.write "Din sökning gav " & rs(0) & " träffar." & "<p>"

response.write strNavigation & "<p>"
response.write strContents
%>
```

Och låt då också sok.asp posta direkt till sokexe.asp.

Mvh,

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

## #5 — Hallgren, 2001-11-24T16:18Z

Tror allt det funkar. :)

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

## #6 — Hallgren, 2001-11-28T14:53Z

Efter ha lagt ner lite tid på annat så är jag tillbaka till min sökfunktion och till min förvåning så funkade det inte...mm..borde ha kollat igenom den lite mer noggrant. :l

Problem:
Söker och får upp resultatet men är jag skall kolla på nästa sida så kommer jag tillbaka till sok.asp som där klagar över att jag inte har skrivit in något ord i sök rutan och så ska det ju inte var. 

```
<%
if request.form("sokord") = "" then
word = session("sokord")
session("mess") = "fyll i ett ord"
response.redirect "sok.asp"
else
word = request.form("sokord")
session("sokord") = word
end if
Dim Connect 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={MYSQL};server=localhost;db=webshop;uid=;pwd=;"

resultat = "SELECT count(*) FROM varor WHERE vara LIKE '" & word & "%'" 

strSQL = "SELECT * FROM varor WHERE vara LIKE '" & word & "%'"

Set objRs = Server.Createobject("Adodb.Recordset")
Set rs = Connect.execute(resultat)

'paging

intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
.cursorlocation = 3 
.open strSQL,connect
.pagesize = 2 
.absolutepage = intPageId 
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0

do while not objRs.eof and intCurrentPost < objRs.pagesize
strContents = strContents & "<a href ='?katid=" & objrs("artnr") & "'>" & objRs("vara") & "</a>" & "<br>"
intCurrentPost = intCurrentPost + 1
objRs.movenext
loop

for i = 1 to objRs.pagecount
strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next

response.write "Din sökning gav " & rs(0) & " träffar." & "<p>"

response.write strNavigation & "<p>"
response.write strContents
%>
```

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

## #7 — LarsG, 2001-11-28T15:10Z

```
<%
if request.form("sokord") = "" then
word = session("sokord")
[b]
if word = "" then
   session("mess") = "fyll i ett ord"
   response.redirect "sok.asp"
end if
[/b]
else
word = request.form("sokord")
session("sokord") = word
end if
Dim Connect 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={MYSQL};server=localhost;db=webshop;uid=;pwd=;"
resultat = "SELECT count(*) FROM varor WHERE vara LIKE '" & word & "%'" 

strSQL = "SELECT * FROM varor WHERE vara LIKE '" & word & "%'"

Set objRs = Server.Createobject("Adodb.Recordset")
Set rs = Connect.execute(resultat)

'paging

intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
.cursorlocation = 3 
.open strSQL,connect
.pagesize = 2 
.absolutepage = intPageId 
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0

do while not objRs.eof and intCurrentPost < objRs.pagesize
strContents = strContents & "<a href ='?katid=" & objrs("artnr") & "'>" & objRs("vara") & "</a>" & "<br>"
intCurrentPost = intCurrentPost + 1
objRs.movenext
loop

for i = 1 to objRs.pagecount
strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next

response.write "Din sökning gav " & rs(0) & " träffar." & "<p>"

response.write strNavigation & "<p>"
response.write strContents
%>
```

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

## #8 — Hallgren, 2001-11-28T15:28Z

Först så måste jag ha in en funktion i 
.eof så att det kommer upp en text om den inte hittar något i db. Felmedelanden är ju inte en höjdare att få. ;) sen så jävlas mina sessions. Då den kommer ihåg förra resultatet så kan man söka utan att skriva in någon om man går tillbaka efter första söknigen.

Mmmm, känns som om jag krånglar till det med den här sökfunktionen. :( 

Någon som har en bättre lösning?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12892-paging-vs-två-sessions