Søg
Avatar billede pfp Nybegynder
15. september 2003 - 17:08 Der er 8 kommentarer og
1 løsning

Udskriv records i sektioner

Hej,

Jeg har to tabeller i en mySQL database:
- Galleri
- Showroom

Galleri indeholder en titel og et ID. Showroom indeholder stier til nogle forskellige billeder, samt en henvisning til hvilket galleri de hører til.

Jeg vil så gerne have udskrevet først alle de stier fra galleri ID1, derefter ID2 osv.

Hvordan klarer jeg det?
Avatar billede Slettet bruger
15. september 2003 - 17:23 #1
set srG = conn.execute("select * from Galleri order by ID")

do while not srG.eof

set srS = conn.execute("select * from Showroom where GalleriID = " & srG("ID"))

do while not srS.eof

  response.write srS("sti_til_billede")

srS.movenext
loop

srG.movenext
loop
Avatar billede Slettet bruger
15. september 2003 - 17:25 #2
her er billedet sat ind, så det ses som billede og ikke sti:

set srG = conn.execute("select * from Galleri order by ID")

do while not srG.eof

set srS = conn.execute("select * from Showroom where GalleriID = " & srG("ID"))

do while not srS.eof

  response.write "<img src='" & srS("sti_til_billede") & "'>"

srS.movenext
loop

srG.movenext
loop
Avatar billede pfp Nybegynder
15. september 2003 - 17:50 #3
Jeg er ikke helt med. Jeg har denne kode som jeg gerne skulle have det til at virke i:

<%
SQL = "Select * From Showroom"
Set rs = Conn.Execute(SQL)

noPrRow = 0
maxPrRow = 3
response.write "<table width='220' border='0' cellpadding='3' cellspacing='3'>"
do while not rs.EOF
  if noPrRow = 0 then response.write "<tr>"
  response.write "<td valign='top'>"

  'Udskriv data her
  Response.write "<a href=java script:PopWin('room.asp?picid=" & rs("Sti") & "',600,700" & ");>" & "<img src='vis_showroom.asp?pic=" & rs("Sti") & "&id=" & rs("BilledeID") & "' style='border: 1px solid #000000'></a>"

  response.write "</td>"
  noPrRow = noPrRow + 1
  if noPrRow = maxPrRow then
    response.write "</tr>"
    noPrRow = 0
  end if
  rs.Movenext
loop
if noPrRow > 0 then response.write "</tr>"
response.write "</table>"
%>

Smider gerne flere point i hvis det er...
Avatar billede Slettet bruger
15. september 2003 - 18:17 #4
<%
'Åbner tabellen Galleri
set srG = conn.execute("select * from Galleri order by ID")

do while not srG.eof

  'udskriver titlen på galleriet
  response.write rsG("titel") & "<br>"

  'finder de billeder i showroom, der hører til det galleri, der er ved at blive udskrevet (GalleriID er en kolonne i showroom, som du nok kalder noget andet)
  SQL = "Select * From Showroom where GalleriID = " & srG("ID"))
  Set rs = Conn.Execute(SQL)

  noPrRow = 0
  maxPrRow = 3
  response.write "<table width='220' border='0' cellpadding='3' cellspacing='3'>"
  do while not rs.EOF
    if noPrRow = 0 then response.write "<tr>"
    response.write "<td valign='top'>"

    'Udskriv data her
    Response.write "<a href=java script:PopWin('room.asp?picid=" & rs("Sti") & "',600,700" & ");>" & "<img src='vis_showroom.asp?pic=" & rs("Sti") & "&id=" & rs("BilledeID") & "' style='border: 1px solid #000000'></a>"

    response.write "</td>"
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      response.write "</tr>"
      noPrRow = 0
    end if
    rs.Movenext
  loop
  if noPrRow > 0 then response.write "</tr>"
  response.write "</table>"

'næste galleri
srG.movenext
loop
%>
Avatar billede pfp Nybegynder
15. september 2003 - 18:53 #5
Jeg har lige rettet lidt i det, der var et par stavefejl. Men hvis vi tager udgangspunkt i nedenstående kode kan det så ikke laves sådan at den IKKE udskriver de kategorier der IKKE er billeder i...altså sådan man ikke risikerer at stå med et par tomme sektioner..

<%
set srG = conn.execute("select * from Galleri order by GalleriID")
         
'Åbner tabellen Galleri
do while not srG.eof

  'udskriver titlen på galleriet
  response.write "<b>" & srG("Overskrift") & "</b><br>"

  'finder de billeder i showroom, der hører til det galleri, der er ved at blive udskrevet (GalleriID er en kolonne i showroom, som du nok kalder noget andet)
  SQL = "Select * From Showroom where Kategori = " & srG("GalleriID")
  Set rs = Conn.Execute(SQL)

  noPrRow = 0
  maxPrRow = 3
  response.write "<table width='220' border='0' cellpadding='3' cellspacing='3'>"
  do while not rs.EOF
    if noPrRow = 0 then response.write "<tr>"
    response.write "<td valign='top'>"

    'Udskriv data her
    Response.write "<a href=java script:PopWin('room.asp?picid=" & rs("Sti") & "',600,700" & ");>" & "<img src='vis_showroom.asp?pic=" & rs("Sti") & "&id=" & rs("BilledeID") & "' style='border: 1px solid #000000'></a>"

    response.write "</td>"
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      response.write "</tr>"
      noPrRow = 0
    end if
    rs.Movenext
  loop
  if noPrRow > 0 then response.write "</tr>"
  response.write "</table>"

'næste galleri
srG.movenext
loop
%>
Avatar billede Slettet bruger
15. september 2003 - 19:10 #6
Hvis du mener der, hvor der ikke er nogen billeder i galleriet:

<%
set srG = conn.execute("select * from Galleri order by GalleriID")
         
'Åbner tabellen Galleri
do while not srG.eof

  'finder de billeder i showroom, der hører til det galleri, der er ved at blive udskrevet (GalleriID er en kolonne i showroom, som du nok kalder noget andet)
  SQL = "Select * From Showroom where Kategori = " & srG("GalleriID")
  Set rs = Conn.Execute(SQL)

  if not rs.eof then
  'udskriver titlen på galleriet
  response.write "<b>" & srG("Overskrift") & "</b><br>"
  end if

  noPrRow = 0
  maxPrRow = 3
  response.write "<table width='220' border='0' cellpadding='3' cellspacing='3'>"
  do while not rs.EOF
    if rs("billedeID") <> "" and rs("sti") <> "" then
      if noPrRow = 0 then response.write "<tr>"
      response.write "<td valign='top'>"

      'Udskriv data her
      Response.write "<a href=java script:PopWin('room.asp?picid=" & rs("Sti") & "',600,700" & ");>" & "<img src='vis_showroom.asp?pic=" & rs("Sti") & "&id=" & rs("BilledeID") & "' style='border: 1px solid #000000'></a>"

      response.write "</td>"
      noPrRow = noPrRow + 1
      if noPrRow = maxPrRow then
        response.write "</tr>"
        noPrRow = 0
      end if
    end if
    rs.Movenext
  loop
  if noPrRow > 0 then response.write "</tr>"
  response.write "</table>"

'næste galleri
srG.movenext
loop
%>
Avatar billede Slettet bruger
15. september 2003 - 19:15 #7
her laver den en overflødig tabel, hvis der ikke er nogle felter i showtime, der hører til det pågældende galleriID... der er rettet her:

<%
set srG = conn.execute("select * from Galleri order by GalleriID")
         
'Åbner tabellen Galleri
do while not srG.eof

  'finder de billeder i showroom, der hører til det galleri, der er ved at blive udskrevet (GalleriID er en kolonne i showroom, som du nok kalder noget andet)
  SQL = "Select * From Showroom where Kategori = " & srG("GalleriID")
  Set rs = Conn.Execute(SQL)

  if not rs.eof then
  'udskriver titlen på galleriet
  response.write "<b>" & srG("Overskrift") & "</b><br>"
 
    noPrRow = 0
    maxPrRow = 3
    response.write "<table width='220' border='0' cellpadding='3' cellspacing='3'>"
    do while not rs.EOF
      if rs("billedeID") <> "" and rs("sti") <> "" then
        if noPrRow = 0 then response.write "<tr>"
        response.write "<td valign='top'>"

        'Udskriv data her
        Response.write "<a href=java script:PopWin('room.asp?picid=" & rs("Sti") & "',600,700" & ");>" & "<img src='vis_showroom.asp?pic=" & rs("Sti") & "&id=" & rs("BilledeID") & "' style='border: 1px solid #000000'></a>"

        response.write "</td>"
        noPrRow = noPrRow + 1
        if noPrRow = maxPrRow then
          response.write "</tr>"
          noPrRow = 0
        end if
      end if
      rs.Movenext
    loop
    if noPrRow > 0 then response.write "</tr>"
    response.write "</table>"
  end if
'næste galleri
srG.movenext
loop
%>
Avatar billede pfp Nybegynder
15. september 2003 - 19:21 #8
Tusind tak for. Det virker bare perfekt :)
Avatar billede Slettet bruger
15. september 2003 - 19:23 #9
rart at kunne hjælpe :)
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 10 25/06/202622:20 04/09/202602:30
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 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
White papers
Flere white papers »