Paging virker ikke!

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

Vi har behov for en egentlig fejlbesked for at kunne gætte på noget.

værsgo'

fik denne fejlmeddelse:

Microsoft VBScript compilation error '800a0410'

Invalid 'for' loop control variable

/paging.asp, line 83

for x=1 to sideantal

den løkke ser også noget farlig ud oversom x ikke forøges - så vil den køre uendeligt. Hvilken værdi har variablen sidetal? Og hvordan ser din egentlige SELECT ud?

dine spørgsmål må fremgå af koden i mit første indlæg, og umiddelbart kan jeg ikke se hvad variablen sideantal er, men select ser sådan ud:"objRs.open "select * from bruger".

hvis det er en dårlig kode, kan du så evt. henvise til en anden - gerne enkel - som jeg kan arbejde videre på?

Mvh.

Når vi taler MySQL er det i hvert fald dårlig kode da SELECT bør køres sammen med LIMIT for ikke at hive flere records ud end nødvendigt.

http://web.archive.org/web/20070717012126/http://activedeveloper.dk/artikler/default.asp?articleid=279

Tak, jeg hentede koden du anbefalede (troede ikke aktivedevoloper var aktivt længere?) og lagde koden ind på min side, men får denne fejlmelding:

Microsoft VBScript runtime error '800a01ca'

Variable uses an Automation type not supported in VBScript

/paging.asp, line 15

som er denne: intRecords = int(objRs("records"))


Hele koden uden connection ser sådan ud:

<%

'Først skal vi have antallet af poster
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM bruger;")
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 bruger LIMIT " & intStart & ", " & intPageSize & ";")
 
  if objRs.EOF or objRs.BOF then
    Response.Write "Ingen poster"
  else
    Response.Write "<table border=""1"" cellpadding=""3"">"
      Response.Write "<tr>"
        Response.Write "<td><b>id</b></td>"
        Response.Write "<td><b>Site</b></td>"
      Response.Write "</tr>"
       
      Do until objRs.EOF
        Response.Write "<tr>"
          Response.Write "<td>" & objRs("id") & "</td>"
          Response.Write "<td><a href=""" & objRs("brugernavn") & """>" & objRs("email") & "</a></td>"
        Response.Write "</tr>"
      objRs.MoveNext
      Loop
    Response.Write "</table>"
  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

Conn.Close
Set Conn = Nothing
%>

Hey keysersoze

Iveren løb af med mig, glemte at følge proceduren herinde, smid et svar så du kan få dine point.

Jeg oprettet nyt spørgsmål når ny kode er tjekket igen.

Tak for hjælpen.

Mvh. S

det er fint nok - har bare ikke haft tid til at følge op. activedeveloper er død i dens gamle form, men man kan være heldig at finde frem til sidens indhold alligevel.

prøv i første omgang int til cint - tag evt et kig her; http://www.eksperten.dk/spm/858023