Paging får det hele til at hoppe :o(

Har du en side hvor vi kan se fejlen?

Mvh
Thomas

Næhh - ikke lige nu - men koden er her...

<!-- Head start -->
<!-- #include file = \"../includes/head.inc\" -->
<!-- Head slut -->


<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"select * from automater ORDER BY ID\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../../../db/produkter.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 2
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
    Do While Not rs.EOF And intRecCount > 0
        Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Beskrivelse\" & \"&nbsp;\" & \"</td>\"
    Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"Beskrivelse\") & \"</tr>\" & \"<br>\" & \"</td>\"
        Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Varenummer\" & \"&nbsp;\" & \"</td>\"
    Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"Varenr\") & \"</tr>\" & \"<br>\" & \"</td>\"
        Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"TUN-nr\" & \"&nbsp;\" & \"</td>\"
    Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"TUNnr\") & \"</tr>\" & \"<br>\" & \"</td>\"
        Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Stk. pr. palle\" & \"&nbsp;\" & \"</td>\"
    Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"StkPrPalle\") & \"</tr>\" & \"<br>\" & \"</td>\"
        Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Pris pr. stk\" & \"&nbsp;\" & \"</td>\"
    Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"StkPrisDKK\") & \"</tr>\" & \"<br>\" & \"</td>\"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

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

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=paging.asp?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=paging.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
    Response.Write \"&gt;&gt;\"
End If
%>

<!-- Head start -->
<!-- #include file = \"../includes/foot.inc\" -->
<!-- Head slut -->

Altså jo flere poster jeg beder den om at trække ud per side - jo større bliver mellemrummet mellem
\"Side x af x\"

og der hvor man vælger side

1 2 3 4 5 6 7 8
<<  >>

~~~~~~~~~~~~~~~~~~~~
Altså hvis jeg sætter pagesize til 10 er der næsten en \"hel skærm\" uden noget på inden jeg når ned til selve indholdet af posterne

Jeg tror at fejlen skyldes din tabel. Først og fremmest kan jeg ikke se nogen tabel start/slut tag, men antager at de er i include filen.

Men det går nok galt i den sidste linie du udskriver fra dit recordset:

Response.write \"<td width=\"\"473\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & rs(\"StkPrisDKK\") & \"</tr>\" & \"<br>\" & \"</td>\"

Læg mærke til, at du afslutter tablerow of derefter tabledata med </TD> - dette vil give et uventet udseende, især i Internet Explorer.

Mvh
Thomas

Damn hvor pinligt!
Ved nu ikke om det hjælper, men jeg prøver lige.

Har rettet det, hvilket naturligvis var godt nok, men det har ikke afhjulpet problemet!

øv, det kunne godt have været det :-)
- det er ikke usædvanligt at få en masse luft, hvis tabellen er defineret forkert. Men på den igen, jeg vender tilbage om lidt...

Jeg tror nu stadig at fejlen skyldes din tabel definition. Se lige her:

Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
    Do While Not rs.EOF And intRecCount > 0
        Response.write \"<tr><td width=\"\"80\"\" height=\"\"4\"\" style=\"\"padding: 2\"\" valign=\"\"top\"\">\" & \"Beskrivelse\" & \"&nbsp;\" & \"</td>\"

Hvis vi stadig antager, at du har din <TABLE> tag i den første include fil, vil du, når ovenstående kode afvikles, få en paragraph inde i din tabel, hvilket vist nok ikke er så heldigt. HTML koden vil blive noget i stil med

<TABLE>
<P>Side x af x</P>
<TR><TD>blah blah</TD></TR>

o.s.v.

</TABLE>

Prøv at flytte din <P> op før tabellen, eller komverter den til en <TD med colspan=x rækker>

Mvh
Thomas

undskyld, colspan=c kolonner, så du får en celle i toppen, svarende til antallet af kollener i tabellen.

Hmm - nu virker det pludselig. Hvad siger du til at dele points?
Du løste jo ikke problemet som sådan, men du ledte mig ind på noget af det rigtige :o)

Det er ok