Hvordan får jeg scriptet til at vise fx 5 indlæg pr side?
Jeg sidder og "leger" med et script..... men er løbet ind i et problem. Hvordan får jeg scriptet til at vise fx 5 indlæg pr side?Som det er nu så vises alle indlæg på samme side.
scriptet ser hvor indlægene vises ser således ud:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<style>
td { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
body { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
</style>
</head>
<body>
<p align="center"><b>All Records Entered :</b></p>
<%
' Declaring variables
Dim rs, data_source, no
no = 0
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("form.mdb")
' Creating Recordset Object and opening the database
set rs = server.createObject("ADODB.Connection")
conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
conn = conn & "DBQ=" & server.mappath("form.mdb")
rs.open conn
sql = "select * from users where vises = True"
set rs = rs.execute(sql)
' Looping through the records to show all of them
While Not rs.EOF %>
<style>
<!--
fieldset { border: 1px solid #990000 }
-->
</style>
<fieldset style='padding: 2'>
<legend><FONT FACE="VERDANA" SIZE="2" COLOR="BLACK"><a href='mailto:" <%=rs("email") %>"'><%=rs("name") %></a> - <%=rs("dato") %></FONT>
</legend>
<FONT FACE='VERDANA' SIZE='2'>
<%=rs("comments") %><br>
</FONT></div>
</fieldset>
<br>
<%
no = no + 1
rs.MoveNext
Wend
' Done. Now close the Recordset
rs.Close
Set rs = Nothing
%>
</body>
</html>
