Avatar billede rubberduck_1 Nybegynder
14. august 2001 - 20:29 Der er 9 kommentarer og
2 løsninger

ASP og HTML-tabeller

Jeg har dette lille script:

<%
Dim objRec
Set objRec = Server.CreateObject (\"ADODB.Recordset\")

objRec.Open \"Select * from billeder WHERE sti=´lolland´\", \"dsn=billeder\"

While Not objRec.EOF

Response.Write \"<A HREF=/billeder/\" & objRec(\"sti\") & \"/\" & objRec(\"billedfil\") & \">\" & \"<IMG SRC=/billeder/\" & objRec(\"sti\") & \"/\" & \"tn\" & objRec(\"billedfil\") & \" \" & \"border=0\" & \">\" & \"</a>\"

objRec.MoveNext

wend

objRec.Close

Set ObjRec = Nothing
%>

Hvordan får jeg dataene til at stå i en tabel, med 3 kolonner. Eller et andet antal ??

Jeg har prøvet med at sætte <tr> og <td> ind som html i forespøgslen, men det virker ikke ??

Håber i kan hjælpe

Niki
Avatar billede jacobve Nybegynder
14. august 2001 - 20:54 #1
hvilke data vil du have som en tabel?

jeg ser det, så laver du et anchor, der peger på et billede.

hvad er det der skal deles op?
Avatar billede rubberduck_1 Nybegynder
14. august 2001 - 21:28 #2
Det er en masse billeder i en access-database... DVS det er kun filnavnet...

Det skal stå i en tabel på hjemmesiden...

billede 1    Billede 2  Billede 3
Billede 4    Billede 5  Billede 6

etc
Avatar billede jacobve Nybegynder
14. august 2001 - 21:36 #3
bikser noget sammen....
Avatar billede jacobve Nybegynder
14. august 2001 - 21:46 #4
dether skulle virke: smider det op i en tabel med 3 kolonner

<%
Dim objRec, counter
Set objRec = Server.CreateObject (\"ADODB.Recordset\")

objRec.Open \"Select * from billeder WHERE sti=´lolland´\", \"dsn=billeder\"

\'skriver table tag
response.write(\"<table>\")
response.write(\"<tr>\")
counter = 0
While Not objRec.EOF

    \'skriver ny linie
    if counter = 3 then
        response.write(\"</tr>\")
        response.write(\"<tr>\")
        counter = 0
    end if

    \'ny celle
    response.write(\"<td>\")

    Response.Write \"<A HREF=/billeder/\" & objRec(\"sti\") & \"/\" & objRec(\"billedfil\") & \">\" & \"<IMG SRC=/billeder/\" & objRec(\"sti\") & \"/\" & \"tn\" & objRec(\"billedfil\") & \" \" & \"border=0\" & \">\" & \"</a>\"

    response.write(\"</td>\")
    counter = counter + 1
    objRec.MoveNext

wend
\'hvis der ikke er 3 celler i nederste række
for i = counter to 2
response.write(\"<td>&nbsp;</td>\")
next

\'afslutter tabel tag
response.write(\"</tr>\")
response.write(\"</table>\")
objRec.Close

Set ObjRec = Nothing
%>
Avatar billede rubberduck_1 Nybegynder
14. august 2001 - 21:51 #5
Det virker super....

Der er bare et lille problem..... Det er 4 billeder i den første..., der passer counter jo ikke....
Avatar billede jacobve Nybegynder
14. august 2001 - 22:05 #6
så udvider du bare scriptet så den laver fire kolonner i stedet.

der hvor der skal ændres er:

\'skriver ny linie
    if counter = 4 then
        response.write(\"</tr>\")
        response.write(\"<tr>\")
        counter = 0
    end if
og

\'hvis der ikke er 4 celler i nederste række
for i = counter to 3
response.write(\"<td>&nbsp;</td>\")
next


Avatar billede rubberduck_1 Nybegynder
14. august 2001 - 22:08 #7
Du misforstår mig....

I den første linie i tabellen, bliver der 4 billeder. \"count\" er jo fra starten 0. Inden den når 3 første gang, har den været igennem 4 gange
Avatar billede jacobve Nybegynder
14. august 2001 - 22:13 #8
gør den det?

det burde den ikke.

første gennemløb:
counter = 0
tjekker: counter = 3 nej
laver en celle (første celle i samme række)
counter++

andet gennemløb:
counter = 1
tjekker: counter = 3 nej
laver en celle (anden celle i samme række)
counter++

tredje gennemløb:
counter = 2
tjekker: counter = 3 nej
laver en celle (tredje celle i samme række)
counter++

fjerde gennemløb:
counter = 3
tjekker: counter = 3 JA
laver ny række i tabellen
sætter counter = 0
laver en celle (første celle i samme række)
counter++

osv...
Avatar billede jacobve Nybegynder
14. august 2001 - 22:15 #9
jeg tror du har lavet en OBO fejl... \"Of By One\" error, som er typisk når man taler løkker.

Jeg lavede en test af scriptet inden jeg smed det op, og det skulle virke efter hensigten...
Avatar billede rubberduck_1 Nybegynder
14. august 2001 - 22:22 #10
Ups... My mistake....

Tak for hjælpen.. Det er kanon
Avatar billede jacobve Nybegynder
14. august 2001 - 22:27 #11
så lidt.
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