tabel

Undskyld 2 kolonner

eks.

tekst  tekst
tekst  tekst
tekst  tekst

jeg ser en ordre og et spørgsmål - spørgsmålet er: "er spørgsmålet forstået?" ;o)

hvordan ser din tabel ud ? er det et felt der skal skrives ud i rækker ? eller er der 2 felter i hver record ? eller hvad ?

skal det være:

1 2
3 4
5 6

eller:

1 4
2 5
3 6

Der er ingen ordre, men kun spørgsmål.

12
34
45

Kan denne standardtabel i html bruges. ?

Response.Write("<tabel>")
do while not rs.eof
  Response.Write("<tr>")
  Response.Write("<td>" & RS("felt1") & "</td>")
  Response.Write("<td>" & RS("felt2") & "</td>")
  Response.Write("</tr>")
  rs.movenext
loop
Response.Write("</tabel>")

coltau: Har prøvet, men jeg kan desværre ikke bruge den.

Er det 1 felt der skal "spredes" ud i tabellen ?

Er der nogen der kan hjælpe. Jeg har følgende kode og vil have udskrevet noget fra en database i 2 kolonner. Jeg vil gerne have det sådan at der er ca. lige mange linier i hver række, dog skal alle underpunkter(menulevel 2) være under hovedmenuen(menulevel 1).

dim arr()
    redim preserve arr(2, 0)
                                   
row = 2
tabel1Str = "<table>"
tabel2Str = "<table>"
RS_SM("parent") 'kan bruges
RS_SM("id") 'kan bruges
RS_SM("parent") 'kan bruges
           
           
while not RS_SM.eof
               
if row = 1 then
               
    if RS_SM("menulevel") = 1 then
    row = 2                                               
    tabel2Str = tabel2Str & "<tr><td>&nbsp;</td></tr><tr><td><b>"&RS_SM  ("navn")&"</b></td></tr>" & vbcrlf
                           
elseif RS_SM("menulevel") = 2 then
                       
  tabel2Str = tabel2Str & "<tr><td>"&RS_SM("navn")&"</td></tr>" & vbcrlf
                       
  end if                   
                   
else

    if RS_SM("menulevel") = 1 then
    row = 1
    tabel1Str = tabel1Str & "<tr><td>&nbsp;</td></tr><tr><td><b>"&RS_SM("navn")&"</b></td></tr>" & vbcrlf
                       
    elseif RS_SM("menulevel") = 2 then
                       
    tabel1Str = tabel1Str & "<tr><td>"&RS_SM("navn")&"</td></tr>" & vbcrlf
                       
    end if                   
end if                           
               
RS_SM.movenext
wend
tabel1Str = tabel1Str & "</table>"
tabel2Str = tabel2Str & "</table>"
           
%>

<tr>
<td valign="top" width="50%" align="center"><%=tabel1Str%></td>
<td width="200">&nbsp;</td>
<td valign="top" width="50%" align="center"><%=tabel2Str%></td>
</tr>

<%