Asp/MySQL paging af et recordset

test.asp--->
<%
\' Databaseforbindelse
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={MySql};SERVER=mysql.mit_domain.dk;DATABASE=Min_database;UID=Min_database;PWD=Pasword\"
Conn.Open DSN

\' SQL forespørgsel
strSQL = \"Select * from bdk Order By id Desc\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

\' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
%>
<html>
<title>test</title>
<head>
</head>
<body>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"4\" width=\"350\" align=\"center\">
    <tr>
        <td rowspan=\"3\" width=\"35%\"><a
        href=\"show2img.asp?id=<%= RS(\"ID\")%>\"><font size=\"1\"><img src=\"<%= RS(\"Thumb\")%>\" BORDER=\"0\"></font></a></td>
        <td width=\"80%\"><font size=\"1\"><strong><%= RS(\"Navn\")%></strong></font></td>
    </tr>
    <tr>
        <td width=\"80%\"><font size=\"1\">Oploaded den: <strong><%= RS(\"Dato\")%></strong></font></td>
    </tr>
    <tr>
        <td width=\"80%\"><font size=\"1\">Antal downloads: <strong><%= RS(\"Antalclick\")%></strong></font></td>
    </tr>
</table>
<hr>
</body>
</html>

<%
\' Gå til næste Record i rs
  rs.MoveNext

\' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Hvilke 5 skal det være, og hvad med resten?

siden skal visse 5 poster af gangen..
side 1/20 viser de 5 første side 2/20 viser fra 5 til 10 o.s.v..

Har du FrontPage 2000?

nej..

Hvordan skal man bladre i mellem siderne?

ligesom Http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp kan bare ikke då det til at vikke med min MySql database..

då = få

Denne linie skal udfyldes, bl.a. med databasenavn: DSN = \"DRIVER={MySql};SERVER=mysql.mit_domain.dk;DATABASE=Min_database;UID=Min_database;PWD=Pasword\"

//Claus

ja det er jeg klar over! :o) Men nu smider jeg ikke lige mit brugernavn/pasword op her..
:o)
den fil jeg har lagt op vikker. Den visser bare alle posterne på en gang..

OK ;o)

Jeg har prøvet at omskrive eksemplet fra www.activeserdages.dk

Du skal gemme det i paging.asp

Om det virker det ved jeg ikke, men vi må jo prøve ;o)

//Claus

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

<body>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"4\" width=\"350\" align=\"center\">
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * from bdk Order By id Desc\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"din_database.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    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
        strlnk = \"<a href=\'show2img.asp?id=\" & RS(\"ID\") & \"\'>\"
        strimg = \"<img src=\'\" & RS(\"Thumb\") & \"\' BORDER=\'0\'>\"
        Response.Write \"<tr>\"
        Response.Write \"<td rowspan=\'3\' width=\'35%\'>\" & strlnk & \"<font size=\'1\'> & strimg & \"</font></a></td>\"
        Response.Write \"<td width=\'80%\'><font size=\'1\'><strong>\" & RS(\"Navn\") & \"</strong></font></td>\"
        Response.Write \"</tr>\"
        Response.Write \"<tr>\"
        Response.Write \"<td width=\'80%\'><font size=\'1\'>Oploaded den: <strong>\" & RS(\"Dato\") & \"</strong></font></td>\"
        Response.Write \"</tr>\"
        Response.Write \"<tr>\"
        Response.Write \"<td width=\'80%\'><font size=\'1\'>Antal downloads: <strong>\" & RS(\"Antalclick\") & \"</strong></font></td>\"
        Response.Write \"</tr>\"
    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
%>

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

desværre ikke--
Microsoft VBScript compilation error \'800a03ea\'

Du har rette \"din_database.mdb\" ikke ;o)

jo den vil ikke..

Kan du overhovedet læse fra databasen?
Husk igen at rette din_database.mdb
------------------------------------------------
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/din_database.mdb\")
Conn.Open DSN

\' SQL forespørgsel
strSQL = \"Select * from bdk Order By id Desc\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

\' Gennemløb Recordset (rs) med en løkke
Do

  \' Udskriv værdien af kolonnen Fornavn og fødselsdato
  strSQL = rs(\"ID\") & \" \" & rs(\"Thumb\") & \" \" & rs(\"Navn\") & \" \"
  strSQL = strSQL & rs(\"Data\") & \" \" & rs(\"Antalclick\") & \"<br>\"
  Response.Write strSQL

  \' Gå til næste Record i rs
  rs.MoveNext

\' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

Der er noget med at mySQL ikke kan bruge .AbsolutePage og nogle af de der man bruger til normalt at lave sidevisninger på en Access database ...

det vikker ikke...

Får du ikke andet end den fejlmeddelse?

Hmm, er det access database - min fejl hvis ikke!!!

nej det er en MySql database..og den siger ADODB.Recordset error \'800a0cc1\'

Unknown runtime error

nordclc:> \"kan bare ikke då det til at vikke med min MySql database..\" hvad tror du selv ?

Nå ja, men det er jo også lidt tidligt på dagen - hmm ;o)

Virker dette?
----------------------------------------

<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={MySql};SERVER=mysql.mit_domain.dk;DATABASE=Min_database;UID=Min_database;PWD=Pasword\"
Conn.Open DSN

\' SQL forespørgsel
strSQL = \"Select * from bdk Order By id Desc\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

\' Gennemløb Recordset (rs) med en løkke
Do

  \' Udskriv værdien af kolonnen Fornavn og fødselsdato
  strSQL = rs(\"ID\") & \" \" & rs(\"Thumb\") & \" \" & rs(\"Navn\") & \" \"
  strSQL = strSQL & rs(\"Data\") & \" \" & rs(\"Antalclick\") & \"<br>\"
  Response.Write strSQL

  \' Gå til næste Record i rs
  rs.MoveNext

\' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

nej.! jeg har haft sat -->DSN = \"DRIVER={MySql};SERVER=mysql.mit_domain.dk;DATABASE=Min_database;UID=Min_database;PWD=Pasword\"
ind hele tiden

m_chr:> Der er ikke andet at gøre end at gøre det \"the hard way\" :-(

Det her er skrevet off my head .. dvs. det er ikke testet..

<%
    \' Nuværende side, eller 0 hvis tom.
    intCPage = Request(\"p\"): If intCPage = \"\" Or Not IsNumeric(intCPage) Then intCPage = 0
    intPageSize = 10 \' antal records pr. side

    Set Rs = Conn.Execute(\"SELECT COUNT(id) FROM bdk;\")
    intTotalRecords = Rs(0)
    intPages = intTotalRecords / intPageSize
    If intPages > Int(intPages) Then intPages = Int(intPages) + 1 \' hvis vi fik 4,3 side skal vi runde op.
    If intCPage > intPages Then intCPage = intPages \' hvis nuværende side er større end antal side, sæt den
                                                    \' til antal sider i alt.

    Set Rs = Conn.Execute(\"SELECT * FROM bdk ORDER BY id LIMIT \" & intCPage * intPageSize & \",\" & intPageSize)
    Do Until Rs.EOF Or Rs.BOF
   
        Rs.MoveNext
    Loop

    For intPage = 0 to intPages - 1 \' -1 da vi starter ved 0
        Select Case (intPage = intCPage)
            Case True:  Response.Write intPage & \", \"
            Case False: Response.Write \"<a href=\'?p=\" & intPage & \"\'>\" & intPage & \"</a>\"
        End Select
    Next
%>

Prøv evt. at kigge lidt her: http://www.eksperten.dk/list.phtml?q=AbsolutePage+

rs.CursorLocation = 3

er den du åbenbart skal bruge....

Så i alt med det eksmpel fra activeserverpages.dk som nordclc kom med så burde det her virke:


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

<body>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"4\" width=\"350\" align=\"center\">
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * from bdk Order By id Desc\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"din_database.mdb\")
rs.CursorLocation = 3
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    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
        strlnk = \"<a href=\'show2img.asp?id=\" & RS(\"ID\") & \"\'>\"
        strimg = \"<img src=\'\" & RS(\"Thumb\") & \"\' BORDER=\'0\'>\"
        Response.Write \"<tr>\"
        Response.Write \"<td rowspan=\'3\' width=\'35%\'>\" & strlnk & \"<font size=\'1\'> & strimg & \"</font></a></td>\"
        Response.Write \"<td width=\'80%\'><font size=\'1\'><strong>\" & RS(\"Navn\") & \"</strong></font></td>\"
        Response.Write \"</tr>\"
        Response.Write \"<tr>\"
        Response.Write \"<td width=\'80%\'><font size=\'1\'>Oploaded den: <strong>\" & RS(\"Dato\") & \"</strong></font></td>\"
        Response.Write \"</tr>\"
        Response.Write \"<tr>\"
        Response.Write \"<td width=\'80%\'><font size=\'1\'>Antal downloads: <strong>\" & RS(\"Antalclick\") & \"</strong></font></td>\"
        Response.Write \"</tr>\"
    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
%>

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

tdaugaard prøver lige om det vikker..
jeg har fundet denne side  men det vikker sku stadigvæk ikke http://www.zoidberg.dk/artikler.asp?mode=vis_artikel&id=5

tdaugaard du kan ikke \"klippe\" det ind i det jeg her smidt i toppen af denne side ..det vikker men visser jo bare alle posterne..

Jeg skal da gerne lige prøve ...

Prøv det her:

<html>
<head>
    <title>test</title>
</head>
<body>
<%
    intPage = Request(\"page\")
    If intPage = \"\" Or Not isNumeric(intPage) Or intPage < 1 Then intPage = 1

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strConn = \"DRIVER={MySql};SERVER=mysql.mit_domain.dk;DATABASE=Min_database;UID=Min_database;PWD=Pasword\"

    strSQL = \"SELECT * FROM bdk ORDER BY id DESC;\"
    Rs.CursorLocation = 3
    Rs.Open strSQL, strConn, 1
    If Not (rs.BOF Or rs.EOF) Then
        Rs.PageSize = 10
        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
%>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"4\" width=\"350\" align=\"center\">
    <tr>
        <td rowspan=\"3\" width=\"35%\"><a
        href=\"show2img.asp?id=<%= RS(\"ID\")%>\"><font size=\"1\"><img src=\"<%= RS(\"Thumb\")%>\" BORDER=\"0\"></font></a></td>
        <td width=\"80%\"><font size=\"1\"><strong><%= RS(\"Navn\")%></strong></font></td>
    </tr>
    <tr>
        <td width=\"80%\"><font size=\"1\">Oploaded den: <strong><%= RS(\"Dato\")%></strong></font></td>
    </tr>
    <tr>
        <td width=\"80%\"><font size=\"1\">Antal downloads: <strong><%= RS(\"Antalclick\")%></strong></font></td>
    </tr>
</table>
<hr>
<%
            intRecCount = intRecCount - 1
            rs.MoveNext
        Loop
    End If

    Conn.Close
    Set Conn = Nothing
%>
</body>
</html>

den siger..
Microsoft VBScript runtime error \'800a01a8\'
Object required: \'Conn\'

line 45 som er
Conn.Close
    Set Conn = Nothing
%>
den prøver at lukke noget som der ikke er der. ik`
og mangler der ikke frem/og tilbage knapperne ?

nåå ja ... *DOH!*

<html>
<head>
    <title>test</title>
</head>
<body>
<%
    intPage = Request(\"page\")
    If intPage = \"\" Or Not isNumeric(intPage) Or intPage < 1 Then intPage = 1

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strConn = \"DRIVER={MySql};SERVER=mysql.mit_domain.dk;DATABASE=Min_database;UID=Min_database;PWD=Pasword\"

    strSQL = \"SELECT * FROM bdk ORDER BY id DESC;\"
    Rs.CursorLocation = 3
    Rs.Open strSQL, strConn, 1
    If Not (rs.BOF Or rs.EOF) Then
        Rs.PageSize = 10
        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
%>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"4\" width=\"350\" align=\"center\">
    <tr>
        <td rowspan=\"3\" width=\"35%\"><a
        href=\"show2img.asp?id=<%= RS(\"ID\")%>\"><font size=\"1\"><img src=\"<%= RS(\"Thumb\")%>\" BORDER=\"0\"></font></a></td>
        <td width=\"80%\"><font size=\"1\"><strong><%= RS(\"Navn\")%></strong></font></td>
    </tr>
    <tr>
        <td width=\"80%\"><font size=\"1\">Oploaded den: <strong><%= RS(\"Dato\")%></strong></font></td>
    </tr>
    <tr>
        <td width=\"80%\"><font size=\"1\">Antal downloads: <strong><%= RS(\"Antalclick\")%></strong></font></td>
    </tr>
</table>
<hr>
<%
            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>

Kanon .. TAK for hjælpen..nu vikker det :o)
tdaugaard 500 til dig og tak igen..
nordclc 250 til dig som tak for hjælpen ..
håber det er okay..
mvh. M_CHR

OK, tak ;o)

Selv tak :-)

fuck.....500 point så har man sq brug for hjælp...

nej for højet til 750...fuck det er sq mange point...

-mascot-:> hvad er det du prøver at sige ?

-mascot-:> synes du forøvigt 750 er mange point ? naa ..

til -mascot-:>
\"så har man sq brug for hjælp\"
Ja jeg havde sku brug for hjælp.. ;O)

m_chr:> hæ hæ .. ja .. ellers spørger man jo ikke herinde *S

ej...men 750 for at smide paging på....hold da op det er sq ikke 750 vær...

-mascot-:> jeg fik 500 for det og nordclc 250 fordi han hjalp lidt ... har du et problem med det så skriv til admin !