---
title: "Göra om paging..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/106374-göra-om-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Karlsson"
published: "2004-06-28T21:35:06.000Z"
updated: "2004-06-30T08:18:48.000Z"
replies: 6
views: 312
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/106374-göra-om-paging"
---

# Göra om paging...

## #1 — Karlsson, 2004-06-28T21:35Z

Hejsan
Använder en paging som funkar, nu vill jag byta ut texterna Föregående, Nästa, Sida osv beroende vilket språk man valt. Det har jag tänkt använda Request.Querystring till. Antar att det är ett fnuttproblem... 
Så här ser originalet ut (visar en snutt bara)

```
    <%
'## -- skriver ut sidnavigeringen --
'## -- skriv ut föregående sida --
Sub PrevPage(ByVal WichPage)
	Dim strScriptName
	strScriptName = Request.ServerVariables("SCRIPT_NAME")

	'## -- skriv ut en länk till föregående sida --
	If CInt(WichPage) > 1 Then
		Response.Write "<p style='text-align: center'>" & "<A href='" & strScriptName & "?" & _
			"page=" & WichPage - 1 & "' style='text-decoration: none'><< Föregående</A> "
	Else
		Response.Write "<p style='text-align: center'>" & "<< Föregående "
	End If
End Sub
```

Jag sätter sen variabler;

```
lang = Request.QueryString("lang")
If lang = "se" Then
forra = "Föregående"
nasta = "Nästa"
Else If lang = "de" Then
forra = "Voriges"
nasta = "Nächtes"
End If
End If
```

Hur byter jag nu ut texten "Föregående" resp. "Nästa" mot mina variabler? Har provat följande:

```
'## -- skriver ut sidnavigeringen --
'## -- skriv ut föregående sida --
Sub PrevPage(ByVal WichPage)
	Dim strScriptName
	strScriptName = Request.ServerVariables("SCRIPT_NAME")

	'## -- skriv ut en länk till föregående sida --
	If CInt(WichPage) > 1 Then
		Response.Write "<p style='text-align: center'>" & "<A href='" & strScriptName & "?" & _
			page"=" & WichPage - 1 & "' style='text-decoration: none'><< "&forra& "</A> "
	Else
		Response.Write "<p style='text-align: center'>" & "<< "&forra
	End If
End Sub
```

Får följande felmeddelande:
Sun ONE ASP VBScript compilation (0x800A03F2)
Expected identifier
/gastbok3.asp, line 94, column 1
Linje 94:
Sub PrevPage(ByVal WichPage)

/Karlsson, tacksam för svar!

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

## #2 — solbulle, 2004-06-29T00:40Z

Du har glömt en "

```
'## -- skriver ut sidnavigeringen --
'## -- skriv ut föregående sida --
Sub PrevPage(ByVal WichPage)
	Dim strScriptName
	strScriptName = Request.ServerVariables("SCRIPT_NAME")

	'## -- skriv ut en länk till föregående sida --
	If CInt(WichPage) > 1 Then
		Response.Write "<p style='text-align: center'><A href='" & strScriptName & "?" & _
			"page"=" & WichPage - 1 & "' style='text-decoration: none'><< "&forra& "</A> "
	Else
		Response.Write "<p style='text-align: center'><< "&forra
	End If
End Sub
```

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

## #3 — Observer, 2004-06-29T07:43Z

Re: Göra om paging...

> **Karlsson skrev:**
>
> Hur byter jag nu ut texten "Föregående" resp. "Nästa" mot mina variabler? Har provat följande:
>
>
> ```
> '## -- skriver ut sidnavigeringen --
> '## -- skriv ut föregående sida --
> Sub PrevPage(ByVal WichPage)
> 	Dim strScriptName
> 	strScriptName = Request.ServerVariables("SCRIPT_NAME")
> 
> 	'## -- skriv ut en länk till föregående sida --
> 	If CInt(WichPage) > 1 Then
> 		Response.Write "<p style='text-align: center'>" & "<A href='" & strScriptName & "?" & _
> 			page"=" & WichPage - 1 & "' style='text-decoration: none'><< "&forra& "</A> "
> 	Else
> 		Response.Write "<p style='text-align: center'>" & "<< "&forra
> 	End If
> End Sub
> ```
>
> 
> Får följande felmeddelande:
> Sun ONE ASP VBScript compilation (0x800A03F2)
> Expected identifier
> /gastbok3.asp, line 94, column 1
> Linje 94:
> Sub PrevPage(ByVal WichPage)
> 
> /Karlsson, tacksam för svar!

Du har fått till en " för mycket... efter page..

Response.Write "\<p style='text-align: center'\>" & "\<A href='" & strScriptName & "?" & \_
**"page="** & WichPage - 1 & "' style='text-decoration: none'\>\<\< "&forra& "\</A\> "

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

## #4 — Karlsson, 2004-06-29T16:00Z

Hej igen!
Nu klagar sidan på att:

'nasta' is undefined
/gastbok_77.asp, line 112

Det funkar bra så länge jag bara använder "forra"...

```
	Dim forra
	Dim nasta
	Dim sidan

	If lang = "se" Then
	forra = "Föregående"
	nasta = "Nästa"
	sidan = "Sida"
	Else If lang = "uk" Then
	forra = "Previous"
	nasta = "Next"
	sidan = "Page"
	Else If lang = "de" Then
	forra = "Voriges"
	nasta = "Nächtes"
	sidan = "Zeite"
	End if
	End If
	End If
	'****************************************************************
	'********VARIABLERNA DIMMADE OCH KLARA FÖR ANV.******************
	'****************************************************************
	
	'## -- skriv ut en länk till föregående sida --
	If CInt(WichPage) > 1 Then
		Response.Write "<p style='text-align: center'>" & "<A href='" & strScriptName & "?" & _
			"page=" & WichPage - 1 & "' style='text-decoration: none'><< "&forra& "</A> "
	Else
		Response.Write "<p style='text-align: center'>" & "<< "&forra
	End If
End Sub

'## -- skriv ut nästa sida --
Sub NextPage(ByVal HowManyPages, ByVal WichPage)
	Dim strScriptName
	strScriptName = Request.ServerVariables("SCRIPT_NAME")
	
	'## -- skriv ut en länk till nästa sida --

	If CInt(WichPage) < CInt(HowManyPages) Then
		Response.Write "<A href='" & strScriptName & "?" & _
			"page=" & WichPage + 1 & "' style='text-decoration: none'>"& nasta & " >></A>" & "<p style='text-align: center'>"
	Else
		Response.Write nasta &" >>" & "<p style='text-align: center'>"
	End If
End Sub
```

Tack på förhand!

/Karlsson

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

## #5 — Karlsson, 2004-06-29T19:40Z

Här får jag rycka in och svara på min egen fråga! 
Kunde naturligtvis inte dimma variabeln utanför sub:en så när jag flyttade in det innanför så funkade det!

Så det kan gå...

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

## #6 — PatrikB, 2004-06-29T21:44Z

En liten petitess.

Skippas If Else ElseIf och allt vad som har med If-satsen när du väljer språk.

Kör en select case istället, betydligt "snyggare":

```
lang = Request.QueryString("lang")

Select Case LCase(lang)

	Case "uk"
		forra = "Previous"
		nasta = "Next"
		sidan = "Page"

	Case "de"
		forra = "Voriges"
		nasta = "Nächtes"
		sidan = "Zeite"

	Case Else
		forra = "Föregående"
		nasta = "Nästa"
		sidan = "Sida"

End Select
```

cya,
/PatrikB

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

## #7 — Karlsson, 2004-06-30T08:18Z

Så fiffigt!
Tack för det, du har rätt, det ser betydligt trevligare ut!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/106374-göra-om-paging