Avatar billede joeydk Nybegynder
13. oktober 2001 - 14:53 Der er 5 kommentarer og
1 løsning

4 hen, x ned...

Jeg henter en masse billedstier som jeg henter i en access db. Hvordan viser jeg billederne, så der ligger 4 billeder hen af siden, og X ned af siden?
Avatar billede eagleeye Praktikant
13. oktober 2001 - 14:58 #1
du kan lave det i en tabel, hver række med 4 kolonner:

colPrRow = 4
colInRow = 0
response.write \"<table>\"
do while not rs.EOF
  if colInRow = 0 then response.write \"<tr>\"
  response.write \"<td>\" & rs(\"IMAGEDATA\") & \"</td>\"
  colInRow = colInRow + 1
  if colInRow = colPrRow then
    colInRow = 0
    response.write \"</tr>\"
  end if
  rs.movenext
loop
response.write \"</table>\"
Avatar billede nute Nybegynder
13. oktober 2001 - 15:11 #2
eagleeye >> hva så hvis det er kun 5 bilder i databasen ? så vil man få en \"ulovlig\" tabell...

stepStone = 1
response.write \"<table width=\"\"200\"\"><tr>\"
while NOT RS.EOF
  response.write \"<td>\" & RS(\"img\") & \"</td>\"
  stepStone = stepStone + 1
  if stepStone = 4 then
    stepStone = 1
    response.write \"</tr><tr>\"
  end if
  RS.MoveNext
next
for i = stepStone to 4
  response.write \"<td>&nbsp;</td>\"
next
response.write \"</tr></table>\"

/nute
Avatar billede eagleeye Praktikant
13. oktober 2001 - 15:17 #3
nute>> ja det er rigtigt.

Men det viker fint i IE med og uden </tr>
Avatar billede nute Nybegynder
13. oktober 2001 - 15:22 #4
eagleeye >> \"alt\" fungerer i IE fordi de har proppet denne browser full av feilopprettings kode sånn at de menneskene som ikke kan programmere kan se en website de har laget selv om den er *full* av feil.

/nute
Avatar billede eagleeye Praktikant
13. oktober 2001 - 16:22 #5
Ja sådan er det MS-produkter.
Avatar billede eagleeye Praktikant
14. oktober 2001 - 12:43 #6
Denne er rettet til så man får afsluttet med </tr> hvis antal rækker ikke lige passer 4:

colPrRow = 4
colInRow = 0
response.write \"<table width=\"\"200\"\" border=\"\"1\"\">\"
do while NOT RS.EOF
  if colInRow = 0 then response.write \"<tr>\"
  response.write \"<td>\" & RS(\"id\") & \"</td>\"
  colInRow = colInRow + 1
  if colInRow >= colPrRow then
    colInRow = 0
    response.write \"</tr>\"
  end if
  RS.MoveNext
loop
if colInRow > 0 then
  Response.Write \"</tr>\"
end if
response.write \"</table>\"


Hvis du vil havde ramme omkring de tomme felter i sidste række kan du udvide den sidte if sætning til at skrive mellemrum i felterne:

if colInRow > 0 then
  for i = colInRow to colPrRow-1
    response.write \"<td>&nbsp;</td>\"
  next
  Response.Write \"</tr>\"
end if
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