10 varelinjer pr. side

Så skal du bruge paging. Noget à la:

nPage = Request("page")
If isNumeric(nPage) = False Or nPage < 1 Then
  nPage = 1
End If

strSQL = "SELECT * FROM [tabel]"
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 20
  rs.AbsolutePage = nPage
  nRecCount = rs.PageSize
  nPageCount = rs.PageCount

  Do While Not rs.EOF And nRecCount > 0

    Response.Write rs("id")

    count = count + 1
    nRecCount = nRecCount - 1
  rs.MoveNext
  Loop

End If

rs.Close
Set rs = Nothing

If NOT nPageCount = 0 AND NOT nPageCount = 1 Then

  Response.Write "Side " & nPage & " af " & nPageCount & "<br />"
  Response.Write "Gå til side "
For nNum = 1 To nPageCount
Response.Write "<a href=""?page=" & nNum & """>" & nNum & "</a>"
Next

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

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

End If

hvor skal jeg sætte det ind?

Jaeh, det skal vel tilpasset med det script, der nu henter fra din database.

og den ser sådan her ud lige nu

<%
sql = "SELECT * FROM glasvare WHERE varegruppeID = "& Request.Querystring ("id") &" Order by ID Desc"
set Record = rs.Execute(sql)
%>

<table border="0" cellpadding="20px" width="729px">
    <% do %>
    <tr>
        <td align="center" width="223px"><img src="billeder/varebilleder/<%=Record("billednavn")%>_small.jpg" alt="<%=Record("ID")%>" /></td>
        <td width="433px"><p class="vare"><%=Record("varebeskrivelse")%><br />Billednummer <%=Record("billedID")%><br /><i><%=Record("mængdepris") %></i><br /><br /><a href="default.asp?side=bestilling">Bestilling</a></p></td>
        <td align="center" width="233px"><p class="vare">
        <%
        if Record("pris") = 0 then
            Response.Write "Kontakt for tilbud"
        else
            Response.Write "Kr. "&Record("pris")&",- pr. stk."
        end if
        %></p></td>
    </tr>
    <%
    Record.MoveNext
    loop while not Record.EOF
    %>
</table>

muligvis:

<%nPage = Request("page")
If isNumeric(nPage) = False Or nPage < 1 Then nPage = 1

sql = "SELECT * FROM glasvare WHERE varegruppeID = "&Request.Querystring ("id") &" Order by ID Desc"
rs.Open strSQL, strDSN, 1%>

<table border="0" cellpadding="20px" width="729px">
    <%Record.PageSize = 20
  Record.AbsolutePage = nPage
  nRecCount = Record.PageSize
  nPageCount = Record.PageCount
    Do While Not Record.EOF And nRecCount>0%>
    <tr>
        <td align="center" width="223px"><img src="billeder/varebilleder/<%=Record("billednavn")%>_small.jpg" alt="<%=Record("ID")%>" /></td>
        <td width="433px"><p class="vare"><%=Record("varebeskrivelse")%><br />Billednummer <%=Record("billedID")%><br /><i><%=Record("mængdepris") %></i><br /><br /><a href="default.asp?side=bestilling">Bestilling</a></p></td>
        <td align="center" width="233px"><p class="vare">
        <%
        if Record("pris") = 0 then
            Response.Write "Kontakt for tilbud"
        else
            Response.Write "Kr. "&Record("pris")&",- pr. stk."
        end if
        %></p></td>
    </tr>
    <%
  nRecCount = nRecCount - 1
    Record.MoveNext
    loop
    Record.Close
    Set Record = Nothing%>
</table>

<%If Not nPageCount=0 AND NOT nPageCount = 1 Then

  Response.Write "Side " & nPage & " af " & nPageCount & "<br />"
  Response.Write "Gå til side "
  For nNum = 1 To nPageCount
    Response.Write "<a href=""?page=" & nNum & """>" & nNum & "</a>"
  Next

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

  If Clng(nPage) < Clng(nPageCount) Then Response.Write "<a href=""?page=" & nPage + 1 & """>&gt;&gt;</a>"

End If

Operation is not allowed when the object is open.

/varetest.asp, line 5

5) rs.Open strSQL, strDSN, 1%>

Nå ja, den skal så være rs.Open strSQL, strDSN, 1

Dammit, Record.Open naturligvis

Det er nok herfra w13 også har sit - men giver det nu alligevel; http://activedeveloper.dk/articles/31/

Det vil være betydelig lettere først at få dette paging-script til at fungere - og så snart det fungerer så begynde at bygge dit eget ind i fremfor omvendt.

Samme problem

ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

/varetest.asp, line 6

5) sql = "SELECT * FROM glasvare WHERE varegruppeID = "&Request.Querystring ("id") &" Order by ID Desc"
6) Record.Open strSQL, strDSN, 1

du bliver nødt til at komme med noget mere kode.

Jamen så får I det hele.


<%
nPage = Request("page")
If isNumeric(nPage) = False Or nPage < 1 Then nPage = 1

sql = "SELECT * FROM glasvare WHERE varegruppeID = "&Request.Querystring ("id") &" Order by ID Desc"
Record.Open strSQL, strDSN, 1
%>

<table border="0" cellpadding="20px" width="729px">
<%
Record.PageSize = 20
Record.AbsolutePage = nPage
nRecCount = Record.PageSize
nPageCount = Record.PageCount
    Do While Not Record.EOF And nRecCount>0
%>
    <tr>
        <td align="center" width="223px"><img src="billeder/varebilleder/<%=Record("billednavn")%>_small.jpg" alt="<%=Record("ID")%>" /></td>
        <td width="433px"><p class="vare"><%=Record("varebeskrivelse")%><br />Billednummer <%=Record("billedID")%><br /><i><%=Record("mængdepris") %></i><br /><br /><a href="default.asp?side=bestilling">Bestilling</a></p></td>
        <td align="center" width="233px"><p class="vare">
        <%
        if Record("pris") = 0 then
            Response.Write "Kontakt for tilbud"
        else
            Response.Write "Kr. "&Record("pris")&",- pr. stk."
        end if
        %></p></td>
    </tr>
<%
nRecCount = nRecCount - 1
Record.MoveNext
    loop
%>
</table>

<%
If Not nPageCount=0 AND NOT nPageCount = 1 Then

  Response.Write "Side " & nPage & " af " & nPageCount & "<br />"
  Response.Write "Gå til side "
  For nNum = 1 To nPageCount
    Response.Write "<a href=""?page=" & nNum & """>" & nNum & "</a>"
  Next

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

  If Clng(nPage) < Clng(nPageCount) Then Response.Write "<a href=""?page=" & nPage + 1 & """>&gt;&gt;</a>"

End If
%>

hvor definerer du Record, strSQL og strDSN?

Record bliver defineret i min forbindelse som jeg includere på min default fil og der bliver min vare fil også includeret.

sql bliver defineret i varefilen.

strDSN bliver vist ikke defineret.

sql definerer du ja - ikke strSQL, så du skal ændre navnet et af stederne.

Du skal sørge for at have det hele med - ellers vil det selvfølgelig ikke virke. Tag et ekstra kig på linket og få de manglende ting med.

Behøver jeg srtDSN når jeg nu har en forbindelse til min database?

Med lidt outside hjælpe er jeg kommet videre, men løbet ind i en ny fejl.
Når jeg prøver og gå videre til næste side får jeg denne her fejl.

Microsoft OLE DB Provider for SQL Server error '80040e10'

No value given for one or more required parameters.

/vare.asp, line 7

5) Set Record = Server.CreateObject("ADODB.RecordSet")
6) sql = "SELECT * FROM glasvare WHERE varegruppeID = "&Request.Querystring ("id") &" Order by ID Desc"
7) Record.Open sql, rs, 1

du skal sørge for at føre alle nødvendige parametre med i dine frem/tilbage links

og hvor gør jeg det?

Det må være det her du mente jeg skulle rette i, ik'?

<%
If Not nPageCount=0 AND NOT nPageCount = 1 Then

  Response.Write "Side " & nPage & " af " & nPageCount & "<br />"
  Response.Write "Gå til side "
  For nNum = 1 To nPageCount
    Response.Write "<a href=default.asp?side=vare&ID"&Record("varegruppeID")&"?page=" & nNum & """>" & nNum & " </a>"
  Next

  If Clng(nPage) > 1 Then Response.Write "<a href=default.asp?side=vare&ID"&Record("varegruppeID")&"?page=" & nPage - 1 & """>&lt;&lt;</a>"

  If Clng(nPage) < Clng(nPageCount) Then Response.Write "<a href=default.asp?side=vare&ID"&Record("varegruppeID")&"?page=" & nPage + 1 & """>&gt;&gt;</a>"

End If
%>

Hvis det vare det jeg skulle rette i og det er rigtigt, så får jeg følgende fejl:

Microsoft OLE DB Provider for SQL Server error '80040e14'

Incorrect syntax near the keyword 'Order'.

/vare.asp, line 7

5) Set Record = Server.CreateObject("ADODB.RecordSet")
6) sql = "SELECT * FROM glasvare WHERE varegruppeID = "&Request.Querystring ("id") &" Order by ID Desc"
7) Record.Open sql, rs, 1

har lige lagt mærke til at når jeg holder musen over linket til side 2 så ser det sådan her ud:

<a href=default.asp?side=vare&ID4?page=2">&gt;&gt;</a> der mangler altså et " tegn lige før default

Er I vågnet op?

Ja, det er en fejl:

<%
If Not nPageCount=0 AND NOT nPageCount = 1 Then

  Response.Write "Side " & nPage & " af " & nPageCount & "<br />"
  Response.Write "Gå til side "
  For nNum = 1 To nPageCount
    Response.Write "<a href=""default.asp?side=vare&ID"&Record("varegruppeID")&"?page=" & nNum & """>" & nNum & " </a>"
  Next

  If Clng(nPage) > 1 Then Response.Write "<a href=""default.asp?side=vare&ID"&Record("varegruppeID")&"?page=" & nPage - 1 & """>&lt;&lt;</a>"

  If Clng(nPage) < Clng(nPageCount) Then Response.Write "<a href=""default.asp?side=vare&ID"&Record("varegruppeID")&"?page=" & nPage + 1 & """>&gt;&gt;</a>"

End If
%>

det problem har jeg selv løst det har jeg bare ikke skrevet, jeg er også mere intresseret i det andet problem som jeg skrev 17/08-2007 23:42:23

Ja, du skriver ID"&Record("varegruppeID") og det skal være ID="&Record("varegruppeID")

altså mangler du et =

Ja det var vel en af de der fejl man kan kalde for en dummert, men det løser ikke mit problem det giver derimod bare en anden fejl.

Microsoft OLE DB Provider for SQL Server error '80040e10'

No value given for one or more required parameters.
vare.asp, line 7

5) Set Record = Server.CreateObject("ADODB.RecordSet")
6) sql = "SELECT * FROM glasvare WHERE varegruppeID = "& Request.Querystring ("ID") &" Order by ID Desc"
7) Record.Open sql, rs, 1

Bliver id overført i adresselinjen, når du ser fejlmeddelelsen?

Ja det gør det

adresselinjen ser sådan her ud hvis jeg fx. vælger og gå til side 3
http://glassliberiet.hilsoe.local/default.asp?side=vare&ID=4?page=3

Der var fejlen. Der skal ikke stå ID=4?page=3 men ID=4&page=3.

ja det var det der skulle til, men når jeg kommer til sidste side får jeg denne her fejl:

Gå til side error '80020009'
/vare.asp, line 43

Hvad er det for en linje, helt præcis?

Ellers så prøv at udskrive nPageCount på den sidste side.

43) Response.Write "<a href=default.asp?side=vare&ID="&Record("varegruppeID")&"&page=" & nNum & ">" & nNum & " </a>"

Hvor havde du tænkt dig jeg skulle udskrive nPageCount?

Evt. lige før "Gå til"

Der lige nu mulighed for at se fejlen på:

http://glassliberiet.hilsoe.dk/default.asp?side=vare&ID=4

linkt bliver lukket om 24 timer.

Det må være denne, der er galt på den:
  For nNum = 1 To nPageCount
    Response.Write "<a href=""default.asp?side=vare&ID"&Record("varegruppeID")&"?page=" & nNum & """>" & nNum & " </a>"
  Next

Prøv at rette til:
  For nNum = 1 To nPageCount
    Response.Write "a"
  Next

Skriver den så a på sidste side eller er der stadig fejl?

vil du ha jeg skal erstatte "<a href=""default.asp?side=vare&ID"&Record("varegruppeID")&"?page=" & nNum & """>" & nNum & " </a>" med "a"

den skriver a i stedet for side tal, fx. er der 4 sider skriver den aaaa

Ok, så er det en af variablerne i:
    Response.Write "<a href=""default.asp?side=vare&ID"&Record("varegruppeID")&"?page=" & nNum & """>" & nNum & " </a>"

Prøv at skrive:
    Response.Write "<a href=""default.asp?side=vare&ID"&Record("varegruppeID")&"?page=virker"">virker</a>"

hvad vil du se med den stump kode?

En af variablerne fucker på sidste side. Så nu ser vi, om det er nNum. Hvis koden skriver "virker" fire gange, så er det nNum, vi skal rette.

kig selv, jeg forstår ikke hvad du vil.

http://glassliberiet.hilsoe.local/default.asp?side=vare&ID=4

Rettelse

http://glassliberiet.hilsoe.dk/default.asp?side=vare&ID=4

http://glassliberiet.hilsoe.dk/default.asp?side=vare&ID=4&page=4 <-- giver stadig fejl. Ergo var det ikke nok at fjerne nNum-variablen.

Så prøver vi:

    Response.Write "<a href=""default.asp?side=vare&ID=4&page=" & nNum & """>" & nNum & " </a>"

Burde virke!

ikke helt

http://glassliberiet.hilsoe.dk/default.asp?side=vare&ID=8

kig på denne side og klik dig videre til side 2

Har du opgivet og hjælpe mig eller tager du bare en tænke pause?

Jeg ved ikke helt.. Jeg kan ikke lige greje den.. Vi fjerner Response.Write-linjen og den virker. Vi fjerner variablerne i linjen og den virker ikke..

er det response.writen der er linie 45?

Response.Write "<a href=""default.asp?side=vare&ID="&Record("varegruppeID")&"&page=" & nNum & """>" & nNum & " </a>"

Der er noget jeg ikke forstår ved nRecCount
Hvis I lige kigger på http://glassliberiet.hilsoe.dk/default.asp?side=vare&ID=8 og går videre til side 2.

På side 1 er nRecCount = 0 men på side 2 er den = 4, er der ikke noget galt.

Det under mig bare da der i løkke er denne her linje >> nRecCount = nRecCount - 1
<< som trækker 1 fra nRecCount for hver gang løkken er blevet kørt igennem.

På sidste side er Record-objektet eof (det bliver du når dit loop er kørt til ende) og du kan derfor ikke hive data fra det igen. Det letteste vil derfor være hvis du hiver ID fra din querystring i stedet for fra databasen.

Ja sørme så, det virker.
w13 du må også gerne ligge et svar.

hele min kode ser nu sådan her ud:

<%
nPage = Request("page")
If isNumeric(nPage) = False Or nPage < 1 Then nPage = 1

Set Record = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM glasvare WHERE varegruppeID="&Request.Querystring ("ID")&" Order by ID Desc"
Record.Open sql, rs, 1
%>

<table border="0" cellpadding="20px" width="729px">
<%
Record.PageSize = 5
Record.AbsolutePage = nPage
nRecCount = Record.PageSize
nPageCount = Record.PageCount
    Do While Not Record.EOF And nRecCount>0
%>
    <tr>
        <td align="center" width="223px"><img src="billeder/varebilleder/<%=Record("billednavn")%>_small.jpg" alt="<%=Record("ID")%>" /></td>
        <td width="433px"><p class="vare"><%=Record("varebeskrivelse")%><br />Billednummer <%=Record("billedID")%><br /><i><%=Record("mængdepris") %></i><br /><br /><a href="default.asp?side=bestilling">Bestilling</a></p></td>
        <td align="center" width="233px"><p class="vare">
        <%
        if Record("pris") = 0 then
            Response.Write "Kontakt for tilbud"
        else
            Response.Write "Kr. "&Record("pris")&",- pr. stk."
        end if
        %></p></td>
    </tr>
<%
nRecCount = nRecCount - 1
Record.MoveNext
    loop
%>
</table>

<%
If Not nPageCount=0 AND NOT nPageCount = 1 Then

  Response.Write "Side " & nPage & " af " & nPageCount & " "
  Response.Write "<center>Gå til side "
  If Clng(nPage) > 1 Then Response.Write "<a href=default.asp?side=vare&ID="&Request.Querystring ("ID")&"&page=" & nPage - 1 & ">&lt;&lt;&nbsp</a>"
  For nNum = 1 To nPageCount
    Response.Write "<a href=default.asp?side=vare&ID="&Request.Querystring ("ID")&"&page=" & nNum & ">" & nNum & " </a>"
  Next

  If Clng(nPage) < Clng(nPageCount) Then Response.Write "<a href=default.asp?side=vare&ID="&Request.Querystring ("ID")&"&page=" & nPage + 1 & ">&nbsp&gt;&gt;</a></center>"

End If
%>

Godt at det virker! :)