Avatar billede perstig Nybegynder
02. februar 2001 - 20:31 Der er 6 kommentarer og
1 løsning

Dynamisk tabel-tilpasning

Hej eksperter

Jeg sidder her med noget der nok er meget trivielt for de fleste, men jeg har snart brugt 2 dage uden at kunne løse problemet.

Jeg ved ikke hvor svært det er, men et godt svar må være 200 point værd.

Problemet:
Jeg skal præsenter nogle varegrupper i en tabel, med max. 3 varegrp. i hver række(<TR>).
Og da det drejer sig om visning af data fra en DB der løbende ændre sig kan jeg ikke bare lave en alm. table-struktur og fylde ASP-kode ind i de forskellige celler(<TD>).
Det skal være dynamisk og tage højde for både o-1-2-3-osv- visning af varegrp.

Herunder er lidt af den kode jeg har prøvet med. Det virker med at der bliver oprette et celle for hver visning, men i en lang række.

<<Kode-eksempel start>>
<TABLE WIDTH=\"450\" BORDER=\"1\">
    <TR>
          <%
            SQL4 = \"SELECT DISTINCT * FROM FS_AlleAktiveVare\"
            Set Resultat4 = DBCon.Execute(SQL4)   
       
            If Not(Resultat4.EOF) And Not(Resultat4.BOF) Then               
                Resultat4.moveFirst                                               
            Do Until Resultat4.EOF
                       
            Response.Write(\"<TD ALIGN=center>\")
            Response.Write(\"<A HREF=index.asp?UGrp3=\")
            Response.Write(Resultat4.Fields(\"UGrp3ID_Ref\"))
            Response.Write(\">\")%>                                                                                                                                                                       
            <IMG SRC=\"images/vare/<%Response.Write(Resultat4.Fields(\"VareNr\"))%>.JPG\" BORDER=\"0\" WIDTH=\"100\" HEIGHT=\"150\" ALIGN=\"bottom\" ALT=\"Foto af varegruppen\">                                                                                                                                                                                       
            <SPAN CLASS=\"atext\" ALIGN=\"center\"><%=Resultat4(\"3Tekst\")%></SPAN><%
            Response.Write(\"</A>\")
                Resultat4.MoveNext%>
                    <%                                                       
            Loop%></TD><%                                                                                               
            End If %>
    </TR>
</TABLE>
<<<Kode-eksempel slut >>
Avatar billede perstig Nybegynder
02. februar 2001 - 20:36 #1
Ups! Jeg fik angivet forkert antal point.
Nå, men nu er der 500 point ude på spørgsmålet !!
Så det er bare om at et godt svar op på disken.

På forhånd tak

Per Stig
Avatar billede brain Nybegynder
02. februar 2001 - 21:04 #2
Hvis jeg har forstået det rigtigt, så prøv følgende....(bortset fra at må mangle en <A HREF=..... et eller andet sted i eksemplet...

<TABLE WIDTH=\"450\" BORDER=\"1\">
    <TR>
          <%
            i = 0

            SQL4 = \"SELECT DISTINCT * FROM FS_AlleAktiveVare\"
            Set Resultat4 = DBCon.Execute(SQL4)   
       
            If Not(Resultat4.EOF) And Not(Resultat4.BOF) Then               
                Resultat4.moveFirst                                               
            Do Until Resultat4.EOF
                       
            Response.Write(\"<TD ALIGN=center>\")
            Response.Write(\"<A HREF=index.asp?UGrp3=\")
            Response.Write(Resultat4.Fields(\"UGrp3ID_Ref\"))
            Response.Write(\">\")%>                                                                                                                                                                       
            <IMG SRC=\"images/vare/<%Response.Write(Resultat4.Fields(\"VareNr\"))%>.JPG\" BORDER=\"0\" WIDTH=\"100\" HEIGHT=\"150\" ALIGN=\"bottom\" ALT=\"Foto af varegruppen\">                                                                                                                                                                                       
            <SPAN CLASS=\"atext\" ALIGN=\"center\"><%=Resultat4(\"3Tekst\")%></SPAN><%
            Response.Write(\"</A>\")

                if i mod 3 = 0 then
                  response.write(\"</tr><tr>\")
                end if

                i = i + 1

                Resultat4.MoveNext%>
                    <%                                                       
            Loop%></TD><%                                                                                               
            End If %>
    </TR>
</TABLE>
Avatar billede perstig Nybegynder
02. februar 2001 - 21:16 #3
Hej Brian

Det her er bare stedet for eksperter.

Jeg accepter svaret, men !
Det virker ok, men i første linje vises der kun et billed, har du en ide til en løsning.

Igen på forhånd tak

Per Stig

Avatar billede brain Nybegynder
02. februar 2001 - 21:39 #4
viser den x\'er istedet for billeder (har du en URL)
Avatar billede perstig Nybegynder
02. februar 2001 - 21:46 #5
Nej billederne og links vises som de skal og som links til de rigtige stier, men i første linje vises kun et billed, i næste vises tre(ok).
([] symboliser et billed)
[]
[][][]
[][][]
[][]osv.

Avatar billede brain Nybegynder
02. februar 2001 - 21:55 #6
aha. Prøv at sætte i = 1 i toppen istedet for 0
Avatar billede perstig Nybegynder
02. februar 2001 - 22:04 #7
Det er bare kanon!
Nu køre det.

Hold øje med www.web-ur.dk i den nærmeste fremtid(ca. 1 mdr. tid endnu)
Det er den side jeg er ved at redesigne, og lave om til ASP med DB opslag.

Endnu engang, tak for hjælpen.

Per Stig
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