Sök på "paging" :)
Hej hej!
Har fått ihop en kod för att hämta poster från en tabell i databasen, men det blir bara senaste.. Jag vill att det ska hämtas alla senaste 10 st, och sedan knapp till sida 2 för att se de 10 näst senaste osv.. Eller iaf till att börja med så att de hämtas de 10 senaste och inte bara 1 senaste.
Försökt fram och tillbaka, men fattar inte..
Tacksam för hjälp
Set rs = Connect.Execute("SELECT chronicles.id,sID,headline,preamble,date,foto,namn FROM chronicles LEFT JOIN admin ON admin.id=chronicles.writer WHERE public>0 ORDER BY date desc,chronicles.id desc LIMIT 0,1")
If NOT rs.EOF Then
cID = rs("sID")
If InStr(cID,":") Then
cID = Left(cID,InStr(cID,":")-1)
End If
Set cat = Connect.Execute("SELECT namn FROM indexes WHERE id=" &cID)
catName = ""
If NOT cat.EOF Then
catName = cat("namn")
End If
cat.Close()
Set cat = Nothing
Response.Write("<table cellspacing=""0"" cellpadding=""0"" border=""0"" width=""100%""><tr><td>")
Response.Write("<a href=""" &URL(0,"viewChronicle")& "&viewChronicle=" &rs("id")& """ style=""color: #000000;"">")
Response.Write("<img src=""gfx/rub/u_purple.gif"" alt="""" width=""100%"" height=""8"" border=""0"" /><br /><img src=""gfx/rub/kronikan.gif"" alt="""" width=""298"" height=""21"" border=""0"" /><br />")
If rs("foto") <> "" Then
Response.Write("<img src=""" &rs("foto")& """ alt=""" &rs("namn")& """ width=""60"" height=""80"" align=""left"" border=""0"" />")
End If
Response.Write("<span class=""small""><i>"" &max_l(rs("preamble"),130)& ""</i></span>")
If rs("namn") <> "" Then
Response.Write("<br /><br /><span class=""small"">Läs hela " &rs("namn")& "s krönika <b>här</b>.</span>")
End If
Response.Write("</a>")
Response.Write("</td></tr></table>")
Response.Write("<img src=""gfx/none.gif"" alt="""" width=""1"" height=""10"" /><br />")
End If
rs.Close()
Set rs = Nothing
![[AMD]Zmasters avatar](/av/3411.gif)
