Paging på denne side,,,,,,

heh ja jeg er træt, ved godt det staves Tilbage og ikke tilbae

har du været denne igennem, det er da til at forstå:
http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

Jeg kan prøve at uddybe dette eks (http://activedeveloper.dk/aspdigital/kapitel2/paging.asp) lidt:

Du har sikkert din egen SQL-sætning som du bruger til at søge med så den udskrifter du bare den fra eksemplet:
strSQL = "SELECT LinkURL FROM Links"
med dig egen:
strSQL = DIN SSQL SÆTNING


Så angiver du hvor mange du vil havde på hver side i linier, 10->7:
    rs.PageSize = 10


Ud skrivning af søge resultet skal gøres inde i det loop der er:
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs("LinkURL") & "<br>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop

Du har sikkert et tilsvarne loop som du udskriver søgeresultatet i idag så du udskirve denne linie:
        Response.Write rs("LinkURL") & "<br>"
Men alle de linier du måtte hvade behov for...



Dette kode laver en liste i bunde med Gå til side 1 2 3 4 osv:
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next


Dette kode lave en links til forrige side via truk på <<:
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


Dette kode lave en links til næste side via tryk på >>:
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


Jeg håber det giver lidt ekstra hjælp ellers så bare spørg igen.

heh.... jeg kan godt mange af de koder, men jeg kan af en eller anden grund ikke overskue den her kode...? Ville det ikke være lettere at skrive koden ind i mit dokument ;)... PLEASE...

Hvis I vil må I godt sende koden til min e-mail adresse popstar@slyngelstuen.dk

så lærer du det jo ikke &:-D

Jeg har prøvet at downloade din kode, jeg kan ikke se hvordan du åbener din recordset og hvordan din SQL ser ud. Du includer nolge filer...

Men jeg giver nu questis ret. Vi kan prøve at hjælpes ad med at løse det.

Du har alderede at loop som udskriver indholdet og som det skal se ud på siden. Så de beholder du bare. Det du skal gøre er at inden denne linie:
Do While Not rs.eof

Skal du sætte disse linier ind:

If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount


Og efter:
loop

skriver du:
End if


Linien: Do While not rs.eof
Skal du ændre til denne: Do While Not rs.EOF And intRecCount > 0


Lige før eller efter linien:  rs.MoveNext
Indsætter du denne linie:  intRecCount = intRecCount - 1

De filer som jeg inkluderer:
Ekkefter:

<HEAD>
<SCRIPT LANGUAGE="JavaScript">
<!--
    function openWin( windowURL, windowName, windowFeatures ) {
        return window.open( windowURL, windowName, windowFeatures ) ;
    }
// -->
</SCRIPT>
<TITLE>Slyngelstuen - Ikke for sarte sjæle...</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<STYLE type=text/css>A:link {
    COLOR: #ffffff; TEXT-DECORATION: none
}
A:visited {
    COLOR: #ffffff; TEXT-DECORATION: none
}
A:active {
    COLOR: #ffffff; TEXT-DECORATION: none
}
A:hover {
    COLOR: #ffffff; TEXT-DECORATION: underline
}
</STYLE>
<SCRIPT LANGUAGE=JAVASCRIPT>
<!--
var ugeDag = new  Array ("Søndag","Mandag","Tirsdag",
    "Onsdag","Torsdag","Fredag","Lørdag")
var maaned = new Array ("januar","februar","marts",
    "april","maj","juni","juli","august","september",
    "oktober","november","december")
var nu = new Date
//-->
</SCRIPT>
</HEAD>
-------------------------------------------------------------------------------------------------
Database.asp:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Databaser/database.mdb")
Conn.Open DSN

Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open DSN
%>

<%session.LCID = 1030%>
<%
Dim Dato, Dag, Ugedag
Dato = FormatDateTime(Now, 1)
Dag = Weekday(Now)
Ugedag = Weekdayname(Dag, 0)
Nu = Now
%>

arh nu så jeg hvor dit recordset er:
Denne linie:  Set rs = Conn.Execute(SQL)
Skal ændres til:
rs.Open SQL, Conn, 1

okay, men du gider vel ikke redigere filen og så sende den til den førnævnte e-mail adresse? :)PLEASE

sorry hvis jeg lød lidt sur....!
men jeg har fulgt dit tidligere råd (27/06-2002 20:11:37) men den End If virker ikke den giver fejl uanset hvor jeg sætter den:

<%
intRecCount = intRecCount - 1
rs.movenext
Loop
%>

hvor skal end if være

Jeg sender lige en mail...

Mail send til popstar@slyngelstuen.dk. Har du fået den ??

Ja tak for hjælpen!