Paging mysql

http://activedeveloper.dk/articles/279/

Microsoft VBScript runtime  error '800a01ca'

Variable uses an Automation type not supported in VBScript

/dtest.asp, line 4

___________________________________________________


<!--#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="""">&nbsp;&nbsp;<a href=""indlaeg.asp?ID=" & ID &""">Læs mere..</a> &nbsp;&nbsp;&nbsp; <img src=""ikoner/16x16/user_comment.png"" alt="""">&nbsp;&nbsp;<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

/dtest.asp, line 4

Slet ingen der kan hjælpe her?

Nogle der kan hjælpe med denne kode..

Du får 300 point nu...

Du skal formentlig bare ændre linie 4 til

  intRecords = cint(objRs("records"))

Li'som når de slår op med kalanbakar i koden på http://forum.zoque.net/asp/24577-icinden-cikamadigim-asp-ve-mysql-hatasi/

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="""">&nbsp;&nbsp;<a href=""indlaeg.asp?ID=" & ID &""">Læs mere..</a> &nbsp;&nbsp;&nbsp; <img src=""ikoner/16x16/user_comment.png"" alt="""">&nbsp;&nbsp;<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 :-)

Aldrig "do loop", altid en "while"

Den her SQL:
Set Rs = Conn.Execute("SELECT * FROM indlaeg LIMIT " & intStart & ", " & intPageSize & ";")

Hvodan for nabn Orde By  iD desc" iund

Prøv igen når dit tastatur er blevet ædru.

Hejsa. Paging funktionen virker nu : )

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.. : )

Det kan jeg så forstå. Du kan dfx

Set Rs = Conn.Execute("SELECT * FROM indlaeg ORDER BY Id DESC LIMIT " & intStart & ", " & intPageSize & ";")

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

Jeg samler slet ikke på point, tak.

streetrespekt til erikjacobsen