<!--#include file="includes/top.asp"--> <% Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM indlaeg;") 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(5) intStart = intPage*intPageSize intStart = intStart-intPageSize intPages = int(intRecords/intPageSize)+1
Set objRs = Conn.Execute("SELECT * FROM indlaeg LIMIT " & intStart & ", " & intPageSize & ";")
if objRs.EOF or objRs.BOF then Response.Write "Ingen indlæg.." else Do overskrift = Server.HTMLEncode(rs("overskrift")) dato = Rs("dato") ID = Rs("ID") kategori = Server.HTMLEncode(Rs("kategori")) navn = Server.HTMLEncode(rs("navn")) Response.Write "<div class=""post"">" Response.Write "<h2 class=""title""><a href=""#"">" & overskrift & "</a></h2>" Response.Write "<p class=""byline""><small>Skrevet den " & dato & " af <a href=""#"">" & navn & "</a> | kategori: <a href=""kategori.asp?kID=" & Rs("kID") &""">" & kategori & "</a></small></p><div class=""entry"">" Response.write "<p>" & Rs("indhold") & "</p>" Response.Write "</div><p class=""links""><img src=""ikoner/16x16/next.png"" alt=""""> <a href=""indlaeg.asp?ID=" & ID &""">Læs mere..</a> <img src=""ikoner/16x16/user_comment.png"" alt=""""> <a href=""indlaeg.asp?ID=" & ID & "#kommentarer"">Kommentarer</a></p></div>" objRs.MoveNext Loop 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 %> <!--#include file="includes/bund.asp"-->
Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript
Nu bliver tingene fra databasen da udskrevet :), men nederst ibunden skriver den:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/tester.asp, line 26
Koden ser sådan her ud...
<!--#include file="includes/top.asp"--> <% Set Rs = Conn.Execute("SELECT COUNT(*) AS records FROM indlaeg;") intRecords = cint(Rs("records")) Rs.Close Set Rs = 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(5) intStart = intPage*intPageSize intStart = intStart-intPageSize intPages = int(intRecords/intPageSize)+1
Set Rs = Conn.Execute("SELECT * FROM indlaeg LIMIT " & intStart & ", " & intPageSize & ";")
if Rs.EOF or Rs.BOF then Response.Write "Ingen indlæg.." else Do dato = Rs("dato") ID = Rs("ID") overskrift = Server.HTMLEncode(Rs("overskrift")) kategori = Server.HTMLEncode(Rs("kategori")) navn = Server.HTMLEncode(Rs("navn")) Response.Write "<div class=""post"">" Response.Write "<h2 class=""title""><a href=""#"">" & overskrift & "</a></h2>" Response.Write "<p class=""byline""><small>Skrevet den " & dato & " af <a href=""#"">" & navn & "</a> | kategori: <a href=""kategori.asp?kID=" & Rs("kID") &""">" & kategori & "</a></small></p><div class=""entry"">" Response.write "<p>" & Rs("indhold") & "</p>" Response.Write "</div><p class=""links""><img src=""ikoner/16x16/next.png"" alt=""""> <a href=""indlaeg.asp?ID=" & ID &""">Læs mere..</a> <img src=""ikoner/16x16/user_comment.png"" alt=""""> <a href=""indlaeg.asp?ID=" & ID & "#kommentarer"">Kommentarer</a></p></div>" Rs.MoveNext Loop end if
Rs.Close Set Rs = 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 %> <!--#include file="includes/bund.asp"-->
****Og hvordan lister man en ORDER BY ID DESC ind i det her script :-)
Det er bare denne her: Set Rs = Conn.Execute("SELECT * FROM indlaeg LIMIT " & intStart & ", " & intPageSize & ";")
Kunne jeg godt tænke mig at få en ORDER BY ID DESC ind, har prøvet en del måder nu men kan sku ikk finde ud a at lave den uden at den skriver en fejlmeddelse.. : )
Tak for hjælpen : ) lovede jo 300 point i #4 og har prøvet at oprette en tråd på 300, men det kunne desværre ikke lade sig gøre : ) (max. 200 skriver den)
håber det er iorden.. smid en svar og tak for hjælpen
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.