Liste i tabel med TR skift

Er der virkelig ikke nogen der har nogen svar ?
Det skal bare være ligesom et billedgalleri på en måde , ligesom jeg har beskrevet i linket til: http://www.livetsfest.dk/photogallery.php

- Har virkelig brug for det script !

Når du har lavet et opslag i databasen og informationerne om dine fester ligger i RS, så kan du kyle det igennem denne kode. Det burde give dig en 3-kolonne opstilling. Hvis du ønsker et andet antal kolonner kan du ændre på variablen AntalKolonner. Du skal naturligvis selv indsætte data fra din database i koden herunder (der hvor der står TODO):

<table>
  <tr>
<%
AntalKolonner = 3
counter = 0
do while not RS.eof
  response.Write "<td>"
  '
  ' TODO: Skriv dine festinformationer fra databasen her!
  '
  response.Write "</td>"
  RS.movenext       

  counter = counter + 1
  if counter mod AntalKolonner = 0 then
    response.Write "</tr>"
    if not RS.eof then
      response.Write "<tr>"
    end if
  end if
loop
       
' udfyld resten af cellerne i den aktuelle række
do while counter mod AntalKolonner <> 0
  response.Write "<td>&nbsp;</td>"
  counter = counter + 1
loop
%>
  </tr>
</table>

Det virker, tak.

Kan du evt. bygge en næste side funktion ind i det ?

Den simple udgave ville være at sende en parameter med til siden som angav hvilken side man ville se og så i løkken bare springe over de fester som ikke skal stå på den aktuelle side...

Noget i stil med dette (under antagelse af at querystring indeholder en parameter der hedder side):

<table>
  <tr>
<%
AntalKolonner = 3
rowCounter = 0
counter = 0
AktuelSide = "0" & cstr(Request.QueryString("side"))
AntalPrSide = AntalKolonner * 4  ' 4 linier med 3 i hver
startRow = AktuelSide * AntalPrSide
bMoreRows = false

do while not RS.eof
  if rowCounter >= startRow and rowCounter < startRow + AntalPrSide then 
    response.Write "<td>"
    '
    ' TODO: Skriv dine festinformationer fra databasen her!
    '
    response.Write "</td>"

    RS.MoveNext       

    counter = counter + 1
    if counter mod AntalKolonner = 0 then
      response.Write "</tr>"
      if not RS.eof then
        response.Write "<tr>"
      end if
    end if

  else
    RS.MoveNext
    if rowCounter > startRow + AntalPrSide then
      bMoreRows = NOT RS.EOF
      exit do
    end if
  end if
  rowCounter = rowCounter + 1
loop
       
' udfyld resten af cellerne i den aktuelle række
do while counter mod AntalKolonner <> 0
  response.Write "<td>&nbsp;</td>"
  counter = counter + 1
loop
%>
  </tr>
</table>
<%
' Her kan man så angive muligheden for at flytte frem og tilbage
if AktuelSide > 1 then
  Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?side=" & AktuelSide - 1 & """>Forrige</a>"
end if
Response.Write "<span style=""padding:0 10px 0 10px;"">Side " & AktuelSide & "</span>"
if bMoreRows then
  Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?side=" & AktuelSide + 1 & """>Næste</a>"
end if
%>

Det er altså utestet, så det er med forbehold :)

Det kan i øvrigt godt være flg. linie

AktuelSide = "0" & cstr(Request.QueryString("side"))

skal udskiftes med

if cstr(Request.QueryString("side")) = "" then
  AktuelSide = 1
else
  AktuelSide = cint(Request.QueryString("side"))
end if

Hmm . Det virker delvist .
Man kan kun sige næste side , ikke forrige ? :)

Har selv fixet det :)

if Request("Side") > 0 then

Response.Write "<b><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?side=" & AktuelSide - 1 & """>Forrige side</a></b>"

end if

Vil det sige det fungerer nu?

OK, jamen så tak for point :)