Avatar billede 47power Nybegynder
30. december 2008 - 00:12 Der er 14 kommentarer og
1 løsning

Paging mysql

200 p. til den som laver paging på denne her :-)
_____________________________________________________

<!--include file="includes/top.asp"-->
*** include indeholder mysql connection ***
<%
strSQL = "Select * From indlaeg Order by id Desc"
Set rs = Conn.Execute(strSQL)
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>"
rs.MoveNext
Loop While Not rs.EOF
Rs.Close
Set Rs = Nothing
%>
*** include lukker database connection ***
<!--#include file="includes/bund.asp"-->
___________________________________________________
Avatar billede keysersoze Guru
30. december 2008 - 00:26 #1
Avatar billede 47power Nybegynder
30. december 2008 - 01:33 #2
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
Avatar billede 47power Nybegynder
31. december 2008 - 00:45 #3
Slet ingen der kan hjælpe her?
Avatar billede 47power Nybegynder
31. december 2008 - 18:37 #4
Nogle der kan hjælpe med denne kode..

Du får 300 point nu...
Avatar billede erikjacobsen Ekspert
31. december 2008 - 18:43 #5
Du skal formentlig bare ændre linie 4 til

  intRecords = cint(objRs("records"))
Avatar billede erikjacobsen Ekspert
31. december 2008 - 18:44 #6
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/
Avatar billede 47power Nybegynder
31. december 2008 - 19:26 #7
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 :-)
Avatar billede erikjacobsen Ekspert
31. december 2008 - 22:27 #8
Aldrig "do loop", altid en "while"
Avatar billede 47power Nybegynder
31. december 2008 - 23:34 #9
Den her SQL:
Set Rs = Conn.Execute("SELECT * FROM indlaeg LIMIT " & intStart & ", " & intPageSize & ";")

Hvodan for nabn Orde By  iD desc" iund
Avatar billede erikjacobsen Ekspert
01. januar 2009 - 00:41 #10
Prøv igen når dit tastatur er blevet ædru.
Avatar billede 47power Nybegynder
01. januar 2009 - 13:03 #11
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.. : )
Avatar billede erikjacobsen Ekspert
01. januar 2009 - 13:11 #12
Det kan jeg så forstå. Du kan dfx

Set Rs = Conn.Execute("SELECT * FROM indlaeg ORDER BY Id DESC LIMIT " & intStart & ", " & intPageSize & ";")
Avatar billede 47power Nybegynder
01. januar 2009 - 14:08 #13
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
Avatar billede erikjacobsen Ekspert
01. januar 2009 - 14:33 #14
Jeg samler slet ikke på point, tak.
Avatar billede 47power Nybegynder
01. januar 2009 - 15:58 #15
streetrespekt til erikjacobsen
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat