---
title: "Dela upp fältinnehåll på flera sidor!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/57510-dela-upp-fältinnehåll-på-flera-sidor"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2002-10-30T16:59:40.000Z"
updated: "2002-12-16T12:51:25.000Z"
replies: 22
views: 645
page: 1
pages: 2
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/57510-dela-upp-fältinnehåll-på-flera-sidor"
---

# Dela upp fältinnehåll på flera sidor!

_Sida 1 av 2._

## #1 — Asa, 2002-10-30T16:59Z

Jag vill dela upp innehållet i ett PM fält ifrån en databas på flera sidor. Hur gör jag då? Ex 2000 tecken på en sida!

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

## #2 — Ekström, 2002-10-30T17:38Z

Använd Mid() för att dela upp, sen kan du ju använda en session eller querystringen för att skicka vidare till nästa sida hur många tecken du visat.

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

## #3 — icaaq, 2002-10-30T17:40Z

```
[red]

If Request.QueryString("page") = "" then
     Response.Write Left(objRS("pm"), 2000)
     page = 1
Else
     page = Cint(Request.QueryString("page")) --1
     Response.Write mid(objRS("pm"), (page*2000), ((page + 1) * 2000))
End If
If Len(objRS("pm")) > (page * 2000) then
     Response.write "<a href="&Request.ServerVaribles("SCRIPT_NAME")&"?page="&page&">fortsätt>></a>"
End If[/red]
```

Men jag skulle nog hitta på nått räkna ord script (har för mig att det finns nått sånt i script arkiet........

Och detta är ju helt otestat ;)
\<redigerat\>jag gjorde om detta lite......och detta är ju ännu mer otestat\</redigerat\>
mvh icaaq

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

## #4 — mozilla, 2002-10-30T17:42Z

edit: För sent :OO

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

## #5 — Ekström, 2002-10-30T17:46Z

```
--1
```

icaaq :) Nu är du fast i träsket mellan C# och ASP, VBScript va? :)

Menar du --1 så är det smartaste nog att skriva +1 istället :)

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

## #6 — icaaq, 2002-10-30T17:57Z

> **Ekström skrev:**
>
> ```
> --1
> ```
>
> icaaq :) Nu är du fast i träsket mellan C# och ASP, VBScript va? :)
> 
> Menar du --1 så är det smartaste nog att skriva +1 istället :)

Det funkar ju ;)

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

## #7 — Ekström, 2002-10-30T17:59Z

Det gör det, men om jag ska vara ärlig tror jag faktiskt inte det var riktigt meningen. :) Trodde inte det skulle fungera i varken C# eller ASP, men det funkade ju fint med dubbla negationer i ASP.

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

## #8 — @nders, 2002-10-30T18:01Z

Det är klart att det fungerar, men det är inte rätt. Vill man att saker och ting skall adderas, då använder man additionstecknet, plus. Det ser ut så här: +

Man skriver inte kod med armbågarna, bara för att man kan. ;)

Mvh,

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

## #9 — Ekström, 2002-10-30T18:06Z

Haha. :e

Jag har sagt det förr och säger det igen; icaaq är mästaren på hårdkodning!

(Nu har ju detta förstås inget med dagens bravader att göra, men han skriver alltid med armbågarna, som *Marsvin*et uttrycker det :) )

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

## #10 — LarsG, 2002-10-30T18:09Z

Det brukar vara problem med flera referenser till kolumner av typen PM i ett recordset. Det brukar vara bäst att plocka ut dom i en lokal variabel.
 

```
pm = objRS("pm")
If Request.QueryString("page") = "" then
     Response.Write Left(pm, 2000)
     page = 1
Else
     page = Cint(Request.QueryString("page")) --1
     Response.Write mid(pm, (page*2000), ((page + 1) * 2000))
End If
If Len(pm) > (page * 2000) then
     Response.write "<a href="&Request.ServerVaribles("SCRIPT_NAME")&"?page="&page&">fortsätt>></a>"
End If
```

\-- är bara för att tala om för VB att man vill göra aritmetik och inte strängkonkatenering.

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

## #11 — @nders, 2002-10-30T18:10Z

> **LarsG skrev:**
>
> \-- är bara för att tala om för VB att man vill göra aritmetik och inte strängkonkatenering.

Jo, men det är mer korrekt att se till att variablerna har rätt subtyper redan från början. IMHO. :)

Mvh,

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

## #12 — Asa, 2002-10-30T20:52Z

Funkar inge bra :( Och sen vill jag ha \<\< tillbaka länk oxå!

<http://www.gruvsjo.com/demo/patrikJ/>

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

## #13 — LarsG, 2002-10-30T21:19Z

Vad händer? Fel, eller ?

Tillbakalänk

```
pm = objRS("pm")
If Request.QueryString("page") = "" then
     page = 1
Else
     page = Cint(Request.QueryString("page")) 
end if
textLength = len(pm)
if  textLength > (page-1) * 2000 then
    Response.Write mid(pm, (page-1)*2000, 2000))
else
    Response.write "Slut"
end if

if  page > 1 then 
    Response.write "<a href="&Request.ServerVaribles("SCRIPT_NAME")&"?page="&page-1&">Föregående>></a>"
end if

If   textLength > (page * 2000) then
     Response.write "<a href="&Request.ServerVaribles("SCRIPT_NAME")&"?page="&page+1&">Nästa>></a>"
End If
```

Jag ändrade lite också.

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

## #14 — Asa, 2002-10-30T21:28Z

Slut på programsats förväntas. 

Response.Write mid(pm, (page-1)\*2000, 2000))

Blev inge bättre fast jag tog bort )

Nu blev det detta fel

Ogiltigt proceduranrop eller argument.: 'mid'

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

## #15 — icaaq, 2002-10-30T21:31Z

```
[red]Response.Write mid(pm, ((page-1)*2000), 2000)[/red]
```

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

## #16 — Asa, 2002-10-30T21:33Z

Fortfarande

Ogiltigt proceduranrop eller argument.: 'mid'

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

## #17 — icaaq, 2002-10-30T21:56Z

```
[red]pm = objRS("pm")
If Request.QueryString("page") = "" OR Request.QueryString = 0 then
     page = 1
Else
     page = Cint(Request.QueryString("page")) 
end if
textLength = len(pm)
If (page-1) = 0 Then
    Response.Write Left(pm, 2000)
Else
    if  textLength > (page-1) * 2000 then
        Response.Write mid(pm, (page-1)*2000, 2000))
    else
        Response.write "Slut"
    end if
End If

if  page > 1 then 
    Response.write "<a href="&Request.ServerVaribles("SCRIPT_NAME")&"?page="&page-1&">Föregående>></a>"
end if

If   textLength > (page * 2000) then
     Response.write "<a href="&Request.ServerVaribles("SCRIPT_NAME")&"?page="&page+1&">Nästa>></a>"
End If[/red]
```

Så kanske....igen otestat

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

## #18 — Asa, 2002-10-30T23:02Z

Tackar men så här blev det för att funka men hur gör jag för att inte dela texten mitt i ett ord:

```
pm = Replace(objRS("texten"), vbCrLf, "<BR>")
If Request.QueryString("page") = "" then
     page = 1
Else
     page = Cint(Request.QueryString("page")) 
end if
textLength = len(pm)
If (page-1) = 0 Then
    Response.Write Left(pm, 2000)
Else
    if  textLength > (page-1) * 2000 then
        Response.Write mid(pm, ((page-1)*2000), 2000)
    else
        Response.write "Slut"
    end if
End If
    Response.write "<p>"
if  page > 1 then 
    Response.write "<a href=index.asp?page="&page-1&">Föregående</a> &nbsp;"
end if

If   textLength > (page * 2000) then
     Response.write "<a href=index.asp?page="&page+1&">Nästa</a>"
End If
```

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

## #19 — Viktor, 2002-10-30T23:07Z

Har inte läst hela topicen men tror jag kan svara :)

Sök efter närmaste punkt efter 2000 tecken och klipp av där den punkten är.

```
InStr(2000,pm,".")
```

Denna kod retunerar var punkten finns, självklart får du öka 2000 varje gång med det värdet som du fick gången innan osv, precis som du har gjort tidigare men lite mer dynamiskt.

/Viktor

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

## #20 — LarsG, 2002-10-30T23:28Z

Det är inte så enkelt.

I stället för att skicka pagenummer mellan sidaorna så måste du skicka offset. Dvs om du visar 1993 tecken på första sidan så måste du veta att du skall fortsätta på offset 1994 (eller 1995)  på nästa sida.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/57510-dela-upp-fältinnehåll-på-flera-sidor  
Nästa sida: https://www.webforum.nu/amne/asp/57510-dela-upp-fältinnehåll-på-flera-sidor/page2.md