vis 10 resultater pr. side. m.m. !!

Kigger lige på det...

Her:






<%
'Antal resultater pr. side
reprside = 10

if request.form("sog") = "" then
response.write "<center><br><br><br><br><b>FEJL: Du skal skrive et eller flere søge ord.</b></center>"
else


Connection = "DRIVER={Microsoft Access Driver (*.mdb)}; UID=Sysop; PWD=14578; DBQ=" & Server.Mappath("data.mdb")

Set Conn = Server.CreateObject("ADODB.connection")
Conn.open Connection

Set rs = Server.CreateObject("ADODB.recordset")
Sql = "SELECT * FROM data WHERE " & request.form("sogi") & " LIKE '%" & request.form("sog") & "%' ORDER BY " & request.form("order") & " DESC"

rs.Open Sql, Conn, 1, 1

if rs.bof or rs.eof then
%>
<center><br><br><br><br><b>Link2 fandt desværre ikke nogle !</b></center>
<%

end if

TotalRows = rs.RecordCount

rs.PageSize = reprside
TotalPages = rs.PageCount

select case request.QueryString("move")
    case "first" pageNo = 1
    case "previous" pageNo = cint(Session("page_num")) - 1
    case "next" pageNo = cint(Session("page_num")) + 1
    case "last" pageNo = TotalPages
    case Else PageNo = 1
end selsect

if cint(PageNo) < 1 then PageNo = 1
if cint(PageNo) > TotalPages then pageNo = TotalPages

rs.AbsolutePage = PageNo
PageNumber = PageNo

Session("page_num") = PageNo

%>
Antal resultater: <%=TotalRows %>  Side: <%=PageNumber %> af (<%=TotalPages %>)
<%

x = 0

do until rs.eof
%>
</font>
<p>&nbsp;</p>
            <div align="center">
              <center>
              <table border="0" width="87%" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="100%">
                    <table border="0" width="100%" cellpadding="0">
                      <tr>
                        <td width="100%"><b><font face="Arial" size="2" color="#000000">
( <%=((PageNumber - 1) * reprside) + x %> )
<a href="redirect.asp?mode=redirect&amp;id=<%=rs("id")%>" target="_blank"><%=rs("navn")%></a></font></b></td>
                      </tr>
                    </table>
                  </td>
                 
                <tr>
                  <td width="50%"><font face="Arial" size="1">- <%=rs("beskrivelse")%>.</font>&nbsp;&nbsp;
<font face="Arial" size="1" color="#808080">( <%=rs("click")%> hit<% If Not rs("click") = "1" then %>s<% End If %> )

( Karekter: <%=Left(rs("rate"), 4) %> <% If (Len(Request.Cookies("yepsearch")(CSTR(RS("id"))))) then %><% Else %>

<a href="#" onClick="window.open('rate.asp?id=<%=rs("id")%>&name=<%=rs("navn")%>', 'Rate', 'width=300,height=250')"> - Bedøm </a><% End If %> )

<%nydato = dateadd("d", 7 , RS("time"))%><% If nydato > Date() Then%><font color="#FF0000">&nbsp;&nbsp;&nbsp;( NY )<%End If %></font></td>
                  <td width="13%"></td>
                </tr>
              </table>
              </center>
            </div>

<%
rs.MoveNext
x = x + 1
loop

rs.Close
Set rs = Nothing

Conn.close
Set Conn = Nothing
end if
%>

OK det virker fint, men den viser også nr. 0, og så deler den det ikke på så der er 10 og så skal man trykke næste, hvorefter de næste 10 kommer (11-20) !! Det er det eneste der mangler  (o;

UPS. ....den det ikke (på=) op så der....

Sorry... prøv dette i stedet:




<%
'Antal resultater pr. side
reprside = 10

if request.form("sog") = "" then
response.write "<center><br><br><br><br><b>FEJL: Du skal skrive et eller flere søge ord.</b></center>"
else


Connection = "DRIVER={Microsoft Access Driver (*.mdb)}; UID=Sysop; PWD=14578; DBQ=" & Server.Mappath("data.mdb")

Set Conn = Server.CreateObject("ADODB.connection")
Conn.open Connection

Set rs = Server.CreateObject("ADODB.recordset")
Sql = "SELECT * FROM data WHERE " & request.form("sogi") & " LIKE '%" & request.form("sog") & "%' ORDER BY " & request.form("order") & " DESC"

rs.Open Sql, Conn, 1, 1

if rs.bof or rs.eof then
%>
<center><br><br><br><br><b>Link2 fandt desværre ikke nogle !</b></center>
<%

end if

TotalRows = rs.RecordCount

rs.PageSize = reprside
TotalPages = rs.PageCount

select case request.QueryString("move")
    case "first" pageNo = 1
    case "previous" pageNo = cint(Session("page_num")) - 1
    case "next" pageNo = cint(Session("page_num")) + 1
    case "last" pageNo = TotalPages
    case Else PageNo = 1
end selsect

if cint(PageNo) < 1 then PageNo = 1
if cint(PageNo) > TotalPages then pageNo = TotalPages

rs.AbsolutePage = PageNo
PageNumber = PageNo

Session("page_num") = PageNo

%>
Antal resultater: <%=TotalRows %>  Side: <%=PageNumber %> af (<%=TotalPages %>)
<%

x = 1

do until rs.eof
%>
</font>
<p>&nbsp;</p>
            <div align="center">
              <center>
              <table border="0" width="87%" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="100%">
                    <table border="0" width="100%" cellpadding="0">
                      <tr>
                        <td width="100%"><b><font face="Arial" size="2" color="#000000">
( <%=((PageNumber - 1) * reprside) + x %> )
<a href="redirect.asp?mode=redirect&amp;id=<%=rs("id")%>" target="_blank"><%=rs("navn")%></a></font></b></td>
                      </tr>
                    </table>
                  </td>
                 
                <tr>
                  <td width="50%"><font face="Arial" size="1">- <%=rs("beskrivelse")%>.</font>&nbsp;&nbsp;
<font face="Arial" size="1" color="#808080">( <%=rs("click")%> hit<% If Not rs("click") = "1" then %>s<% End If %> )

( Karekter: <%=Left(rs("rate"), 4) %> <% If (Len(Request.Cookies("yepsearch")(CSTR(RS("id"))))) then %><% Else %>

<a href="#" onClick="window.open('rate.asp?id=<%=rs("id")%>&name=<%=rs("navn")%>', 'Rate', 'width=300,height=250')"> - Bedøm </a><% End If %> )

<%nydato = dateadd("d", 7 , RS("time"))%><% If nydato > Date() Then%><font color="#FF0000">&nbsp;&nbsp;&nbsp;( NY )<%End If %></font></td>
                  <td width="13%"></td>
                </tr>
              </table>
              </center>
            </div>

<%
rs.MoveNext
x = x + 1
loop

rs.Close
Set rs = Nothing

Conn.close
Set Conn = Nothing
end if
%>

Prøver igen:




<%
'Antal resultater pr. side
reprside = 10

if request.form("sog") = "" then
response.write "<center><br><br><br><br><b>FEJL: Du skal skrive et eller flere søge ord.</b></center>"
else


Connection = "DRIVER={Microsoft Access Driver (*.mdb)}; UID=Sysop; PWD=14578; DBQ=" & Server.Mappath("data.mdb")

Set Conn = Server.CreateObject("ADODB.connection")
Conn.open Connection

Set rs = Server.CreateObject("ADODB.recordset")
Sql = "SELECT * FROM data WHERE " & request.form("sogi") & " LIKE '%" & request.form("sog") & "%' ORDER BY " & request.form("order") & " DESC"

rs.Open Sql, Conn, 1, 1

if rs.bof or rs.eof then
%>
<center><br><br><br><br><b>Link2 fandt desværre ikke nogle !</b></center>
<%

end if

TotalRows = rs.RecordCount

rs.PageSize = reprside
TotalPages = rs.PageCount

select case request.QueryString("move")
    case "first" pageNo = 1
    case "previous" pageNo = cint(Session("page_num")) - 1
    case "next" pageNo = cint(Session("page_num")) + 1
    case "last" pageNo = TotalPages
    case Else PageNo = 1
end selsect

if cint(PageNo) < 1 then PageNo = 1
if cint(PageNo) > TotalPages then pageNo = TotalPages

rs.AbsolutePage = PageNo
PageNumber = PageNo

Session("page_num") = PageNo

%>
Antal resultater: <%=TotalRows %>  Side: <%=PageNumber %> af (<%=TotalPages %>)
<%

x = 0

do until rs.eof or x => reprside
%>
</font>
<p>&nbsp;</p>
            <div align="center">
              <center>
              <table border="0" width="87%" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="100%">
                    <table border="0" width="100%" cellpadding="0">
                      <tr>
                        <td width="100%"><b><font face="Arial" size="2" color="#000000">
( <%=((PageNumber - 1) * reprside) + x %> )
<a href="redirect.asp?mode=redirect&amp;id=<%=rs("id")%>" target="_blank"><%=rs("navn")%></a></font></b></td>
                      </tr>
                    </table>
                  </td>
                 
                <tr>
                  <td width="50%"><font face="Arial" size="1">- <%=rs("beskrivelse")%>.</font>&nbsp;&nbsp;
<font face="Arial" size="1" color="#808080">( <%=rs("click")%> hit<% If Not rs("click") = "1" then %>s<% End If %> )

( Karekter: <%=Left(rs("rate"), 4) %> <% If (Len(Request.Cookies("yepsearch")(CSTR(RS("id"))))) then %><% Else %>

<a href="#" onClick="window.open('rate.asp?id=<%=rs("id")%>&name=<%=rs("navn")%>', 'Rate', 'width=300,height=250')"> - Bedøm </a><% End If %> )

<%nydato = dateadd("d", 7 , RS("time"))%><% If nydato > Date() Then%><font color="#FF0000">&nbsp;&nbsp;&nbsp;( NY )<%End If %></font></td>
                  <td width="13%"></td>
                </tr>
              </table>
              </center>
            </div>

<%
rs.MoveNext
x = x + 1
loop

rs.Close
Set rs = Nothing

Conn.close
Set Conn = Nothing
end if
%>
<a href="search.asp?move=first"><<</a> <a href="search.asp?move=previous"><</a> <a href="search.asp?move=next">></a> <a href="search.asp?move=last">>></a>

Hej

Du kan se et eksempel på hvordan man kan gøre:
-> http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

Mvh.

Dennis Knappe
info@ActiveServerPages.DK

Han har jo hele hans kode lige ovenover

OK - det var bare for at vise en anden måde at gøre det på :-)