paging med mysql

http://activedeveloper.dk/aspdigital/2001112301.asp

//>Rune

medions> den har jeg prøvet der står kun "1 2 3 4"

Hmm fair nok ;o)

//>Rune

Prøv at kigge på denne.:

http://www.netsrac.dk/netsrac-dk/asp0006.asp

Hov hov, man må kun oprette et spørgsmål 1 gang
http://www.eksperten.dk/spm/261009

Og du kunne jo lige starten med at teste det du allerede har fået

Nå men jeg har nu lavet en base som din og den virker og her er koden igen

<%


    SQLserveradr="din_ip-adresse/evt_localhost"
    SQLdatabase="Din_database"   
    SQLlogin="din_login"
    SQLpassword="dit_password"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword



'Først skal vi have antallet af poster
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM mail;")
intRecords = int(objRs("records"))
objRs.Close
Set objRs = Nothing

'Variabler til query´et
intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
    intPage = int(1)
else
    intPage = int(intPage)
end if
intPageSize = int(3)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1

Set objRs = Conn.Execute("SELECT * FROM mail LIMIT " & intStart & ", " & intPageSize & ";")
   
    if objRs.EOF or objRs.BOF then
        Response.Write "Ingen poster"
    else
        Response.Write "<table border=""1"" cellpadding=""3"">"
            Response.Write "<tr>"
                Response.Write "<td><b>id</b></td>"
                Response.Write "<td><b>Mail</b></td>"
            Response.Write "</tr>"
               
            Do until objRs.EOF
                Response.Write "<tr>"
                    Response.Write "<td>" & objRs("id") & "</td>"
                    Response.Write "<td>" & objRs("email") & "</a></td>"
                Response.Write "</tr>"
            objRs.MoveNext
            Loop
        Response.Write "</table>"
    end if

objRs.Close
Set objRs = Nothing

'Udskriver en "sideliste"
For i = 1 to intPages
    if i = intPage then
        Response.Write "<b>" & i & "</b> "
    else
        Response.Write "<a href=""paging.asp?page=" & i & """>"
        Response.Write i
        Response.Write "</a> "
    end if
next

Conn.Close
Set Conn = Nothing
%>

Hvis du forsat ikke mener at det virker, vil jeg selvf. meget gerne høre hvad problemet er

jeg lukker

Du slipper bare alt for nem, læs mit svar i spørgsmål http://www.eksperten.dk/spm/261009

jeg havde ikke set det