vis kun fem nyheder ad gangen

Den nok mest populære artikel om emnet herinde:

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

Du skal blot ændre pagesize til 5

jeg er meget i tvivl om hvor det skal indsættes. Giver du en hånd ?

Her er koden :

<%



    ' Databaseforbindelse
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("/tennisklub/databaser/database.mdb")
    Conn.Open DSN

    strSQL = "Select * From aktivitet"

    Set rs = Conn.Execute(strSQL)

    srSQL = "Select * From billeder"

    Set sr = Conn.Execute(srSQL)

    Do

Response.write "<table border='0' cellpadding='0' cellspacing='0' align='center'><tr><td width='7' align='right'

valign='center'><img src='gfx/venstre_runddel.gif' width='7' height='14'></td><td background='gfx/midten_runddel_2.gif'

height='14' align='center' valign='center' width='128'><font face='Verdana, Helvetica' color='#ffffff' size='1'><strong> " &

rs("overskrift") & " </strong></font></td><td width='7' align='left' valign='center'><img src='gfx/hoejre_runddel.gif'

width='7' height='14'></td></tr></table></a><br>  "




Response.write "<table> <tr><td align='top'><FONT face=arial  color=#000000 size=2><a class=oversigt

href='profil.asp?page=bestyrelsen/" & rs("navn") & "'><img border='1' bordercolor='#000000' src='gfx/" & RS("billede") & "'

align='top' valign='center' height='65' width='52'></a><br><font text='#FFFFFF' face='Verdana, Helvetica' size='1'>Oprettet

af:<br> " & rs("navn") & "</font></font></td></table><table><td align='top'><FONT face=arial  color=#000000 size=2>" &

rs("tekst") & "</font></td></tr></table>"

Response.write "<HR SIZE='1'>"

    rs.MoveNext
    Loop While Not rs.EOF


Conn.Close
    Set Conn = Nothing
'<tr>    <td bgcolor='#FFFFFF' height='2' colspan='3'>    </td>    </tr>
%>

jeg håber at du gider at hjælpe !

Jeg vil gerne prøve at "vende" den om, så vi ligger din kode ind i eksemplet. Jeg har lavet en simpel implementering af din database og dit SQL statement i eksemplet herunder. Den udskriver feltet navn fra aktivitet med paging. Derfra skulle du kunne rette resten til selv.

Bemærk at din side skal hedde "paging.asp" for at det virker.

<html><head>
<title>Paging af et recordset</title>
</head><body>

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From aktivitet"

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
strDSN = strDSN & "DBQ=" & Server.MapPath("/tennisklub/databaser/database.mdb")

rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    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 rs("navn") & "<BR>"

    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
%>

</body></html>

jeg har rettet paging.asp til aktivitetskalender.asp og jeg får derefter følgende fejl :


Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens: '[string: "aktivitetskalender.a"]'

Det er lidt svært at se udfra den fejlbeskrivelse, præcist hvad der går galt. Normalt er der også angivet et linienr. på fejlen, post venligst den linie hvor fejlen opstår...

/nyheder/aktivitetskalender.asp, line 45


linje 45 er er der hvor asp koden starter <%

Du er nok nødt til at vise koden, for det forstår jeg ikke.

her er hele koden til aktivitetskalender.asp :

<html><head>


<STYLE type=text/css>   
a:link    { COLOR: #808080; TEXT-DECORATION: underline }   
a:visited { COLOR: #808080; TEXT-DECORATION: underline } 
a:active  { COLOR: #808080; TEXT-DECORATION: underline }   
a:link    { COLOR: #3333ff; TEXT-DECORATION: none }   
a:visited { COLOR: #3333ff; TEXT-DECORATION: none }   
a:active  { COLOR: #3333ff; TEXT-DECORATION: none }   
a.menu:hover  { COLOR: #ffd400; TEXT-DECORATION: underline }   
a.oversigt:link    { COLOR: #FFFFFF; TEXT-DECORATION: underline }   
a.oversigt:visited { COLOR: #FFFFFF; TEXT-DECORATION: underline }    a.oversigt:active  { COLOR: #FFFFFF; TEXT-DECORATION:

underline }   
a.oversigt:link    { COLOR: #FFFFFF; TEXT-DECORATION: none }    a.oversigt:visited { COLOR: #FFFFFF; TEXT-DECORATION: none } 

 
a.oversigt:active  { COLOR: #FFFFFF; TEXT-DECORATION: none }   
a.oversigt:hover { COLOR: #ffd400; TEXT-DECORATION: underline } 
</STYLE> 

<style type="text/css">
<!--    h1 {font-size: 10pt; font-family: Arial}   
h2 {font-size: 15pt; font-family: Courier}   
p {font-size:  8pt; font-family: Times new roman}  --> 
</style> 
<SCRIPT Language='JavaScript'>  <!--    function disclaimer(url) {      openup=window.open(url,

'PopUp', 'resizeable=no,width=460,height=228,scrollbars=no,toolbar=no,location=no,menubar=no,status=no');    }  // -->
</SCRIPT>

</head>
<body bgcolor="#EFEFEF" topmargin="0" leftmargin="10" text=#000000 bgcolor="#EFEFEF" scroll="auto"> 

<table border="0" bgcolor="#FFFFFF" align="left" width="500" height="500" cellpadding="0" cellspacing="0">   
<tr>      <td bgcolor="#731829" width="1"></td>      <td valign="top" align="center" width="583">       
<table border="0" align="left" width="583">          <tr>            <td>             

<!-- Indhold start -->

            <br>   

         
<!-- Aktivitetskalender start -->             

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From aktivitet"

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
strDSN = strDSN & "DBQ=" & Server.MapPath("/tennisklub/databaser/database.mdb")

rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 5
    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 rs("navn") & "<BR>"

    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=aktivitetskalender.asp?page=" & intNum & ">" & intNum & "</a> "
Next

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






            </td>          </tr>        </table>      </td>      <td bgcolor="#731829" width="1"></td>      <td

bgcolor="#FFFFFF" width="2"></td>      <td valign="top" align="center" width="145" background="gfx/patterns.gif">       

<table border="0" align="center" width="0" cellpadding="0" cellspacing="0">          <tr>            <td height="10"></td>   

      </tr>        </table>      </td>      <td bgcolor="#FFFFFF" width="2"></td>      <td bgcolor="#731829" width="1"></td> 

  </tr>  </table></body></html>

eksemplet virker fint hvis jeg flytter det over i en anden fil for sig selv...underligt !!

Jeg kan ikke lige se fejlen umiddelbart og det er for sent til at jeg vil sidde og rode det fra hinanden. Jeg kan kun råde dig til, at flytte din egen kode over i eksemplet der virker, lidt efter lidt. Og teste mellem hver gang du flytter noget. Det gør det noget nemmere at finde fejlen.