---
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/page2"
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: 2
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 2 av 2._

## #21 — Asa, 2002-10-31T07:01Z

Aha okej! Men då får jag vänta lite med det eller försöka klura själv. Återkommer vid fler frågor.

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

## #22 — Andreas S, 2002-12-16T12:15Z

Asa\>\> Hur gick(går) det?
Du skulle inte vilja offentliggöra den färdiga koden för funktionen? :e

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

## #23 — Asa, 2002-12-16T12:51Z

Jag har inte fått till det så som jag ville ha det. Är ju denna kod jag har efter den hjälp jag fått här.

```
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/databas.mdb")%>

<html>
<head>
<title>Test</title>
<link rel="stylesheet" href="stil.css" type="text/css">
</head>

<body>

<table width="450" border="0" align="center" cellpadding="3">
   <tr>
      <td>
<%Set objRS=Conn.Execute("Select * From test")

tecken = 1000

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, tecken)
Else
    if  textLength > (page-1) * tecken then
        Response.Write mid(pm, ((page-1)*tecken), tecken)
    else
        Response.write "Slut"
    end if
End If
    Response.write "<p>"
if  page > 1 then 
    Response.write "<a href=postdelning.asp?page="&page-1&">Föregående</a> &nbsp;"
end if

If   textLength > (page * tecken) then
     Response.write "<a href=postdelning.asp?page="&page+1&">Nästa</a>"
End If
    Response.write "<p>"
%>
      </td> 
   </tr>
</table>

</body>
</html>

<%Conn.Close
Set Conn = Nothing%>
```

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

---

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