Aha okej! Men då får jag vänta lite med det eller försöka klura själv. Återkommer vid fler frågor.
Dela upp fältinnehåll på flera sidor!
22 svar · 645 visningar · startad av Asa · sida 2 av 2
Trådstarten, av Asa
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!
Läs hela trådstarten →Asa>> Hur gick(går) det?
Du skulle inte vilja offentliggöra den färdiga koden för funktionen? 
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> "
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%>