Søg
Avatar billede a55830 Praktikant
17. august 2004 - 19:04 Der er 3 kommentarer og
1 løsning

hentet data fra scces men max 8 records på en side

Hej IGEN

ja jeg har et lille problem

jeg har en database med nogle billeder i og jeg kunne godt tænke mig at der kun blev vist 8 af gangen er det noge man kan lave

lige nu får jeg vist 4 pic på ræke men alle sammen på en gang
Avatar billede eagleeye Praktikant
17. august 2004 - 19:29 #1
Du kan lave paging på recordsetet så den viser 8 pr. side og lave lidt kode som viser 4 pr. række eksempel på koden:



<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 conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
conn.Open strDSN
strSQL = "SELECT billedesti FROM billeder"

rs.Open strSQL, Conn, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 8  'Antal billeder pr. side
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount

  antalPrRow = 4 'antal billeder pr række
  noPrRow=0 'tælle variable

  Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
  response.Write "<table>"
  Do While Not rs.EOF And intRecCount > 0
    if noPrRow=0 then Response.Write "<tr>"
   
    Response.Write "<td><img src=""" & rs("billedesti") & """></td>"

    noPrRow=noPrRow+1
    if noPrRow=antalPrRow then
      response.write "</tr>"
      noPrRow=0
    end if
    intRecCount = intRecCount - 1
    rs.MoveNext
  Loop
  if noPrRow>0 then response.write "</tr>"
  response.write "</table>"
End If
rs.Close
Set rs = Nothing
Conn.Close
Set Conn=nothing

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

Response.Write "<p>"
If Clng(intPage) > 1 Then
  Response.Write "<a href=?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=?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>

</body></html>
Avatar billede a55830 Praktikant
17. august 2004 - 20:13 #2
øhhh der er ikke noget i min database der hedder billedesti

mine billeder ligger som links i databasen i tabel1 under link

kan du rette det til så det virker
Avatar billede eagleeye Praktikant
17. august 2004 - 20:49 #3
Ja, det kan rettes i strSQL, så prøv at rette:
strSQL = "SELECT billedesti FROM billeder"

Til:

strSQL = "SELECT links FROM tabel1"


Samt denne linje:
    Response.Write "<td><img src=""" & rs("billedesti") & """></td>"

Til:

    Response.Write "<td><img src=""" & rs("links") & """></td>"
Avatar billede a55830 Praktikant
17. august 2004 - 21:46 #4
TAKKER MANGE GANGE
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 12:15 morf bilede Af knuldefar1942 i Fri debat
07/0822:13 Gemme største værdi Af Lemming@privat.dk i Excel
07/0821:39 Kvindelig journalist ved DR - hvad er hendes navn. Af ErikHg i Fri debat
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
White papers
Flere white papers »