Paging, en der kan hjælpe?
Har lavet noget paging noget, taget fra et script fra activedeveloper.dk mener jeg.Jeg har lavet en MySQL database hvor der ligger en masse billeder i.
men... har sat den til at der skal være 6 billeder per side, men når jeg så går til anden side siger den det her:
ADODB.Recordset.1 error '80004005'
SQLState: 42000
Native Error Code: 1064
[TCX][MyODBC]You have an error in your SQL syntax near 'order by navn LIMIT 6, 6' at line 1
/billeder.asp, line 26
Min kode ser således ud:
<html><head>
<title>Galleri</title>
<LINK REL="STYLESHEET" HREF="css/default.css" TYPE="text/css">
</head><body bgcolor="#000000" text=white>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySql}; SERVER=localhost; DATABASE=webonnet_dk; UID=webonnet_dk; PWD=98KorUQQ"
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM unique_galleri where kat = '" & Request.Querystring("id") & "';")
intRecords = int(objRs("records"))
objRs.Close
Set objRs = Nothing
intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
intPage = int(1)
else
intPage = int(intPage)
end if
intPageSize = int(6)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1
Set rs = Conn.Execute("SELECT * FROM unique_galleri where kat = " & Request.Querystring("id") & " order by navn LIMIT " & intStart & ", " & intPageSize & ";")
if rs.EOF or rs.BOF then
Response.Write "Der er ingen billeder i databasen!"
else
Response.Write "<table border='0' cellspacing='5' cellpadding='0' align='center'>"
Do
Response.Write "<tr><td align='center'><a href='show_big.asp?dir=galleri/" & Request.Querystring("dir") & "-stor/" & rs("dirstor") & "&dato=" & rs("dato") & "&text=" & rs("text") & "&navn=" & rs("navn") & "&id=" & rs("id") & "' target='_blank'><img src='galleri/" & Request.Querystring("dir") & "-lille/" & rs("dirlille") & "' border='0'></a><td align='center'>" & rs.Movenext
If not rs.EOF then
Response.Write "<a href='show_big.asp?dir=galleri/" & Request.Querystring("dir") & "-stor/" & rs("dirstor") & "&dato=" & rs("dato") & "&text=" & rs("text") & "&navn=" & rs("navn") & "&id=" & rs("id") & "&kat=" & rs("kat") & "' target='_blank'><img src='galleri/" & Request.Querystring("dir") & "-lille/" & rs("dirlille") & "' border='0'></a>"
rs.Movenext
End if
Loop While not rs.EOF
Response.Write "</table>"
End if
Response.Write "<center><font face=verdana size=2><b>"
For i = 1 to intPages
if i = intPage then
Response.Write " " & i & " "
else
Response.Write "<a href=""billeder.asp?page=" & i & """>"
Response.Write i
Response.Write "</a>"
end if
next
Response.Write "</b></font></center>"
Conn.Close
Set Conn = Nothing
%>
</body></html>
Hvis i vil se lidt nærmere på det kan i se sammenhænget her: http://blahblah.webonnet.dk -> galleri -> 2x20 års rangstrup -> 2
Håber der er nogle der kan hjælpe, er villig til at hæve points hvis det ikke er nok.
Med venlig hilsen Kristian
