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 · 622 visningar · startad av Asa · sida 2 av 2
Frågan, 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 frågan i sin helhet →Asa>> Hur gick(går) det?
Du skulle inte vilja offentliggöra den färdiga koden för funktionen? :e
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%>