Paging i nyhedsscript

SOrry.. Sådan her:

<!--#include file="nyheder/settings.asp" -->


   

  <%


%> <%
set rsOldnews = connect.execute("select TOP 5 id, rubrik, ingress, bild, bildtext, datum, forfattare, eforfattare, nyheter from nyheter where visa=1 order by datum desc")
alignment="right"
do until rsoldnews.eof
%>



<font face="Verdana" size="1">



<% =FormatDateTime(rsOldnews("Datum"),2) %> <img src="images/menudot.gif" border="0"> <a href="visnyhed.asp?id=<% =rsOldnews("id")%>"><% =rsOldnews("Rubrik") %></a>

<br>
<%

    rsOldnews.movenext
   
loop


rsOldnews.close


   
%>

<!--#include file="nyheder/settings.asp" -->

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/database.mdb")
set rsoldnews = Server.createObject("adodb.Recordset")

strSQL = "select TOP 5 id, rubrik, ingress, bild, bildtext, datum, forfattare, eforfattare, nyheter from nyheter where visa=1 order by datum desc"
rsoldnews.open strSQL, myConn, 1
If Not (rsoldnews.BOF Or rsoldnews.EOF) Then

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

If Not (rsoldnews.BOF Or rsoldnews.EOF) Then

rsoldnews.PageSize = 10
rsoldnews.AbsolutePage = nPage
nRecCount = rs.PageSize
nPageCount = rs.PageCount

Response.Write "Side " & nPage & " af " & nPageCount & "<br>"

If NOT nPageCount = 0 Then
Response.Write "Gå til side "
For nNum = 1 To nPageCount
Response.Write "<a href='vis_alle.asp?page=" & nNum & "'>" & nNum & "</a>&nbsp;"
Next

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

Response.Write "&nbsp;"

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

do until rsoldnews.eof and nRecCount > 0
%>



<font face="Verdana" size="1">



<% =FormatDateTime(rsOldnews("Datum"),2) %> <img src="images/menudot.gif" border="0"> <a href="visnyhed.asp?id=<% =rsOldnews("id")%>"><% =rsOldnews("Rubrik") %></a>

<br>
<%
nRecCount = nRecCount -1
rsOldnews.movenext
loop

rsOldnews.close

%>


Jeg vil mene at det skal se ud nogen lunde som oventsående..
Så skal du bare lige rette links til, og eventuelt forbindelse til databasen..

skriv hvis der er nogen fejl ;-)

orv..

lige en lille fejl..

strSQL = "select TOP 5 id, rubrik, ingress, bild, bildtext, datum, forfattare, eforfattare, nyheter from nyheter where visa=1 order by datum desc"

denne linie skal være:
strSQL = "select id, rubrik, ingress, bild, bildtext, datum, forfattare, eforfattare, nyheter from nyheter where visa=1 order by datum desc"

Lidt tilpasning får det til at se sådan ud:

<!--#include file="nyheder/settings.asp" -->

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\nyheder\db\db.mdb")
set rsoldnews = Server.createObject("adodb.Recordset")

strSQL = "select id, rubrik, ingress, bild, bildtext, datum, forfattare, eforfattare, nyheter from nyheter where visa=1 order by datum desc"
rsoldnews.open strSQL, myConn, 1
If Not (rsoldnews.BOF Or rsoldnews.EOF) Then

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

If Not (rsoldnews.BOF Or rsoldnews.EOF) Then

rsoldnews.PageSize = 10
rsoldnews.AbsolutePage = nPage
nRecCount = rs.PageSize
nPageCount = rs.PageCount

Response.Write "Side " & nPage & " af " & nPageCount & "<br>"

If NOT nPageCount = 0 Then
Response.Write "Gå til side "
For nNum = 1 To nPageCount
Response.Write "<a href='vis_alle.asp?page=" & nNum & "'>" & nNum & "</a>&nbsp;"
Next

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

Response.Write "&nbsp;"

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

do until rsoldnews.eof and nRecCount > 0

loop
end if
end if
end if
%>


Men jeg får en fejl...

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs'

/Default.asp, line 21

nRecCount = rs.PageSize
nPageCount = rs.PageCount

skal lige laves om til

nRecCount = rsoldnews.PageSize
nPageCount = rsoldnews.PageCount

Nu får jeg denne fejl?

Active Server Pages error 'ASP 0113'

Script timed out

/default.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

superior -> Selvfølgelig ;-) tak for det.. Havde lige overset den i farten..

dhojgaard -> prøv dette:

<!--#include file="nyheder/settings.asp" -->

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\nyheder\db\db.mdb")
set rsoldnews = Server.createObject("adodb.Recordset")

strSQL = "select id, rubrik, ingress, bild, bildtext, datum, forfattare, eforfattare, nyheter from nyheter where visa=1 order by datum desc"
rsoldnews.open strSQL, myConn, 1
If Not (rsoldnews.BOF Or rsoldnews.EOF) Then

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

  If Not (rsoldnews.BOF Or rsoldnews.EOF) Then

    rsoldnews.PageSize = 10
    rsoldnews.AbsolutePage = nPage
    nRecCount = rsoldnews.PageSize
    nPageCount = rsoldnews.PageCount

    Response.Write "Side " & nPage & " af " & nPageCount & "<br>"

    If NOT nPageCount = 0 Then
      Response.Write "Gå til side "
      For nNum = 1 To nPageCount
        Response.Write "<a href='vis_alle.asp?page=" & nNum & "'>" & nNum & "</a>&nbsp;"
      Next

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

      Response.Write "&nbsp;"

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

      do until rsoldnews.eof OR nRecCount > 0 'der er rettet her.. Fra and til OR.

      loop
    end if
  end if
end if
%>