x antal visninger pr side

http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

//>Rune

Den side har jeg set, men jeg er MEGET i tvivl om hvordan jeg sætter det ind i min kode - gider du forsøge?
</RealOne>

Forhåbenligt virker dette:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">

<%

    dim conn

    function OpenConn( DBName )

        Set Conn = Server.CreateObject("ADODB.Connection")
        ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
        Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

    end function

OpenConn("guestbook.mdb")

%>

<HTML>
<HEAD>
<!-- Minus AutoDato -->
    <TITLE>Signe Svendsen's uofficielle fansite</TITLE>
<link rel="stylesheet" type="text/css" href="signe.css">
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
</HEAD>
<BODY bgcolor="#F4F1E7" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table align="left" width="20" height="300" cellspacing="0">
<tr valign="top">
<td width="20" height="300" background="images/baggleft.jpg">
</td>
</tr>
</table>
<table align="left" width="280" height="520" cellspacing="0" cellpadding="4">
<tr valign="top">
<td width="280" height="60" background="images/logo.jpg">
</td>
</tr>
<tr valign="top">
<td width="280" height="500" background="images/baggmain.jpg">

<font face="verdana" size="3" color="#A2A2A2"><B>Gæstebog</B></font>
<BR>
<a href="guestbook.asp">Skriv indlæg</a>
<P>
<%
  intPage = Request("page")
  If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
  End If

    Set rs = Server.CreateObject("ADODB.RecordSet")
    SQL = "select * from guestbook order by created desc"
    guestbook.Open strSQL, conn, 1
    if guestbook.eof then
        Response.Write "Gæstebogen er tom !"
    Else
      guestbook.PageSize = 10
      guestbook.AbsolutePage = intPage
      intRecCount = guestbook.PageSize
      intPageCount = guestbook.PageCount
      Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"

        Response.Write "<br><br>"
        do while not guestbook.eof And intRecCount > 0


            Response.Write "<b>Navn :</b>&nbsp;&nbsp;" & guestbook("guest_name") & "<br>"
            Response.Write "<b>E-mail :</b>&nbsp;&nbsp;" & guestbook("email") & "<br>"
            Response.Write "<b>Kommentar :</b>&nbsp;&nbsp;" & guestbook("comments") & "<br>"
            Response.Write "<b>Hvad synes De om denne side :</b> "
            Select Case guestbook("from_where")
                Case 0 : Response.Write "Netcoders.dk"
                Case 1 : Response.Write "Gennem en ven"
                Case 2 : Response.Write "Hmmm ... don´t know!"
                Case 3 : Response.Write "Chart.dk"
            End Select
            Response.Write "<br><b>Indtastet :</b>&nbsp;&nbsp;" & guestbook("created") & "<br>"
            Response.Write "<br><hr>"

            guestbook.movenext

        loop


      Response.Write "<p>Gå til side "
      For intNum = 1 To intPageCount
        Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
      Next

      Response.Write "<p>"
      If Clng(intPage) > 1 Then
        Response.Write "<a href=?page=" & intPage - 1 & ">&lt;&lt;</a>"
      Else
        Response.Write "&lt;&lt;"
      End If

      Response.Write "&nbsp;"

      If Clng(intPage) < Clng(intPageCount) Then
        Response.Write "<a href=?page=" & intPage + 1 & ">&gt;&gt;</a> "
      Else
        Response.Write "&gt;&gt;"
      End If

    End If
   
   
' Jesper Lund - jesper@netcoders.dk
%>

</td>
</tr>
</table>
<table align="left" width="370" height="450" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="370" height="450" background="images/baggright.jpg">
<IMG SRC="images/menu.jpg" BORDER="0" WIDTH="370" HEIGHT="301" ALT="" USEMAP="#menu">
<MAP NAME="menu">
<!-- **Billedkort lavet med Stone's WebWriter 3.5** -->
<AREA SHAPE="rect" COORDS="28,252,73,270" HREF="news.htm">
<AREA SHAPE="rect" COORDS="106,252,192,270" HREF="diskografi.htm">
<AREA SHAPE="rect" COORDS="219,252,287,270" HREF="billeder.htm">
<AREA SHAPE="rect" COORDS="319,252,364,270" HREF="links.htm">
<AREA SHAPE="rect" COORDS="51,276,118,292" HREF="biografi.htm">
<AREA SHAPE="rect" COORDS="161,276,224,292" HREF="tekster.htm">
<AREA SHAPE="rect" COORDS="258,276,345,292" HREF="viewguest.asp">

</MAP>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Made by ReaL-. © 2002 IT4Real.
<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;All rights reserved.
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://genner.dk/it4real" target="_blank"><img alt="IT4Real - webdesign til fair priser!" src="images/it4realbar.jpg" style="filter:alpha(opacity=25)" name="Test" onMouseDown="this.filters.alpha.opacity=100" onMouseover="this.filters.alpha.opacity=70" onMouseout="this.filters.alpha.opacity=25" border="0"></a>&nbsp;&nbsp;
<a href="http://www.rolloogking.dk" target="_blank"><img alt="RolloOgKing.dk - den officielle side!" src="images/r&kbar.jpg" style="filter:alpha(opacity=25)" name="Test" onMouseDown="this.filters.alpha.opacity=100" onMouseover="this.filters.alpha.opacity=70" onMouseout="this.filters.alpha.opacity=25" border="0"></a>
</td>
</tr>
</table>


</BODY>
</HTML>

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/clan-ccr/signe/viewguest.asp, line 54

line 54:    guestbook.Open strSQL, conn, 1

Sorry

guestbook.Open SQL, conn, 1 ' Hedder ikke strSQL

samme fejl endnu :|