Loop af tabel ?

<%
i = i + 1
if i = 1 then
%> <tr>
<%
end if
%>
<td> </td>
<%
if i = 3 then
i = 0
%> </tr>
<%
end if
%>

og hvor kommer min loop af data ind i dette ?

Jeg har et array jeg looper på følgende måde :

for i = 0 to ubound(myArray,2)

next

og så skal jeg bare vide hvorledes jeg får dit forslag ind i dette.

/Websam

<table width="100%" border="1" cellspacing="0" cellpadding="0">
<%
for i = 0 to ubound(myArray,2)

b = b + 1
if b = 1 then
%> <tr>
<%
end if
%>
<td> og her kommer det du skal have ind </td>

<%
if b = 3 then
b = 0
%> </tr>
<%
end if
next
%>
</table>

eller måske lidt mere overskueligt

<table width="100%" border="1" cellspacing="0" cellpadding="0">
<%
for i = 0 to ubound(myArray,2)
b = b + 1
if b = 1 then response.write "<tr>"
%>

<td> og her kommer det du skal have ind </td>

<%
if b = 3 then response.write "</tr>"
b = 0
end if
next
%>
</table>

ok det er så ikke helt det jeg merner. Det første jeg er kommet frem til er sådan her og det virker fint nok :

j = j + 1
    if j = 1 then
    response.Write("<tr><td>"&vbcrlf)
end if

'--- DETTE KAN JEG IKKE FÅ TIL AT SPILLE
Her skal jeg have en tabel med 3 rækker og kolonner der kan vise produkter på følgende måde :

Produkt 1    Produkt 2    Produkt 3
Billede 1    Billede 2    Billede 3
Vejl. P 1    Vejl. P 2    Vejl. P 3

if j = 3 then
    j = 0
    response.Write("</td></tr>"&vbcrlf)
end if

Kan du hjælpe med det ?

/Websam

gik du kold på dette ? Den er godt nok lidt langhåret, men skulle gerne have det til at spille ;o)

/Websam

hvor kommer disse fra
Produkt 1    Produkt 2    Produkt 3
Billede 1    Billede 2    Billede 3
Vejl. P 1    Vejl. P 2    Vejl. P 3

de ligger i mit array som trækkes fra databasen ;o)

/websam

dvs at dit array ser således ud  Produkt 1,Produkt 2,Produkt 3,Billede 1,Billede 2,Billede 3,Vejl. P 1,Vejl. P 2,Vejl. P 3

<table width="100%" border="1" cellspacing="0" cellpadding="0">
<%
fra_tabel = "Produkt 1,Produkt 2,Produkt 3,Billede 1,Billede 2,Billede 3,Vejl. P 1,Vejl. P 2,Vejl. P 3"
arr = split(fra_tabel,",")
for b = 0 to Ubound(arr)
j = j + 1
    if j = 1 then
    response.Write("<tr>"&vbcrlf)
end if
%>
<td><%=arr(b)%></td>
<%
if j = 3 then
    j = 0
    response.Write("</tr>"&vbcrlf)
end if
next
%>
</table>

Når jeg normalt trækker i mit array så er arr(0,i) = produkt 1, arr(1,i) = billede 1, arr(2,i) = pris 1 og det er vist ikke det samme.

Men jeg prøver lige ovenstående og ser hvad resultatet bliver.

/Websam

mit array bliver lavet med :

sql = select * from tabel
set rs = conn.execute(sql)
rs.getrows()
rs.close

/Websam

UPS.... arr = rs.getrows()

Men det er stadigt meningen at det skal ind i en tabel på denne måde :

<table width="100%">
  <tr><td>
    <table width="100%">
        <tr>
            <td>produkt 1</td>
            <td>produkt 2</td>
            <td>produkt 3</td>
        </tr>
        <tr>
            <td>billede 1</td>
            <td>billede 2</td>
            <td>billede 3</td>
        </tr>
        <tr>
            <td>pris 1</td>
            <td>pris 2</td>
            <td>pris 3</td>
        </tr>
    </table>
  </td></tr>
  <tr><td>
    <table width="100%">
        <tr>
            <td>produkt 4</td>
            <td>produkt 5</td>
            <td>produkt 6</td>
        </tr>
        <tr>
            <td>billede 4</td>
            <td>billede 5</td>
            <td>billede 6</td>
        </tr>
        <tr>
            <td>pris 4</td>
            <td>pris 5</td>
            <td>pris 6</td>
        </tr>
    </table>
  </td></tr>
</table>

/websam

Prøv en gang at kopiere ovenstående ind i en html editor så du kan se hvad meningen med det er ;o)

jeg ville splitte dit array op således

fra_tabel = "Produkt 1,Billede 1,Vejl. P 1,Produkt 2,Billede 2,Vejl. P 2,Produkt 3,Billede 3,Vejl. P 3"
arr = split(fra_tabel,",")
for b = 0 to Ubound(arr)
j = j + 1
    if j = 1 then  rk_1 =  rk_1 & "," & arr(b)
    if j = 2 then  rk_2 = rk_2  & "," & arr(b)
    if j = 3 then  rk_3 = rk_3  & "," & arr(b)
if j = 3 then
    j = 0
end if 
next
%>

<table width="100%" border="1" cellspacing="0" cellpadding="0">
  <tr>
<%
arr_rk_1 = split(right(rk_1,len(rk_1)-1),",")
for b = 0 to Ubound(arr_rk_1)
%>
    <td><%=arr_rk_1(b)%></td>
<%
next
%>
  </tr>
  <tr>
  <%
arr_rk_2 = split(right(rk_2,len(rk_2)-1),",")
for b = 0 to Ubound(arr_rk_2)
%>
    <td><%=arr_rk_2(b)%></td>
<%
next
%>
  </tr>
  <tr>
    <%
arr_rk_3 = split(right(rk_3,len(rk_3)-1),",")
for b = 0 to Ubound(arr_rk_3)
%>
    <td><%=arr_rk_3(b)%></td>
<%
next
%>
  </tr>
</table>

Når jeg så laver :

fra_tabel = res.getrows()
arr = split(fra_tabel,",")

får jeg fejl der siger :

Microsoft VBScript runtime error '800a000d'
Type mismatch

i denne linie :

arr = split(fra_tabel,",")

???

du har for det første en fejl her
fra_tabel = rs.getrows()
arr = split(fra_tabel,",")

grunden til at den laver fejl er at der ikke er noget i fra_tabel

Tak for hjælpen, jeg gider ikke bruge mere tid på nu, så point på vej til dig.

/Websam

Ps. mit array er fyldt med mere end 5000 records så det er ikke tomt.

helt ok