hurtig paging
Skal have smidt noget paging ind i denne kode....har selv prøvet men kunne ikke helt få det til og virke.....<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\")
strSQL = \"select* from gaestebogen ORDER BY ID DESC\"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write \"<font face=\"\"Verdana\"\" size=\"\"2\"\">Der er ingen indlæg i databasen, men skynd dig og skriv et som den første ;-)</font>\"
else
Do Until rs.EOF
%>
<td width=\"497\" height=\"10\" bordercolor=\"#000000\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\" bgcolor=\"#336699\"><font face=\"Verdana\" size=\"2\" color=\"#FFFFFF\"><%=RS(\"date\")%>
@ <a href=\"<%=RS(\"email\")%>\"><%=RS(\"navn\")%></a> @ <%=RS(\"IP\")%></font></td>
</tr>
<tr>
<td width=\"497\" height=\"47\" bordercolor=\"#FFFFFF\" bordercolorlight=\"#FFFFFF\" bordercolordark=\"#FFFFFF\" align=\"center\"><font face=\"Verdana\" size=\"2\" color=\"#000000\"><%=RS(\"besked\")%></font></td></tr>
<%
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>
