Avatar billede mbl Juniormester
14. august 2002 - 19:40 Der er 7 kommentarer og
1 løsning

Paging fejl, hjælp søges

Jeg har følgende kode og jeg får en besked der siger fejl i linie 23. Jeg tror det er "LinkURL" men hvad skal jeg skrive i stedenfor.

<html><head>
<title>Paging af et recordset</title>
</head><body>

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from fs_kontakt"

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("fpdb/kontaktpersoner.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs("LinkURL") & "<br>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=paging.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

</body></html>
Avatar billede eagleeye Praktikant
14. august 2002 - 19:44 #1
Hvilken Fejl får du ???

Det kunne tyde på at du ikke har en kolonne i tabllen  fs_kontakt  som hedder LinkURL.
Avatar billede mbl Juniormester
14. august 2002 - 19:46 #2
det er korrekt. jeg har Fornavn og Efternavn.
Avatar billede eagleeye Praktikant
14. august 2002 - 19:48 #3
Ok. Så prøv at udskifte denne linie:
  Response.Write rs("LinkURL") & "<br>"

Med:
  Response.Write rs("Fornavn") & " " & rs("Efternavn") & "<br>"
Avatar billede mbl Juniormester
14. august 2002 - 19:53 #4
Det hjalp lidt nu kan den vise den 1 side af 4. Nu laver den en ny fejl og det er når jeg skal fra side 1 til 2/3/4 så kommer der en fejl der siger "siden blev ikke fundet". Hvad kan der nu være galt.???
Avatar billede eagleeye Praktikant
14. august 2002 - 19:55 #5
Du skal ændre filnavnet 3 steder, første sted:

For intNum = 1 To intPageCount
    Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Her hedder filen paging.asp det skal udskiftes med navnet på din fil.
Avatar billede mbl Juniormester
14. august 2002 - 20:02 #6
Fantastisk må jeg nok sige, det lyder til jeg har en Ekspert på linien så derfor et hurtigt tillægsspørgsmål.  Hvad nu vis jeg vil have resultatet lagt ind i en tabel. Hvad skriver jeg så.?????
Avatar billede eagleeye Praktikant
14. august 2002 - 20:06 #7
du kan skifte disse linier:
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs("Fornavn") & " " & rs("Efternavn") & "<br>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop

Ud med:
    Response.write "<table>"
    Do While Not rs.EOF And intRecCount > 0
      Response.Write "<tr>"
      Response.Write "<td>" & rs("Fornavn") & " " & rs("Efternavn") & "</td>"
      Response.Write "</tr>"
      intRecCount = intRecCount - 1
      rs.MoveNext
    Loop
    Response.write "</table>"
Avatar billede mbl Juniormester
14. august 2002 - 20:12 #8
Jeg takker mange gange for hjælpen. Det virker som det skal. Tak
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