Hej!
Har en tabell i access med produkter & produktbild. Ska göra en sån enkel grej som att loopa ut allt i en tabell, men den tar bara ut vissa produkter och inte alla. Vad kan vara fel??

Daniel.

Det finns nog ingen här som är fjärskådare utan det vore väldigt bra om du visade hur du försöker så vi
har någonting att gå efter.

Självklart...sorry! Här kommer det


str1 = "SELECT * FROM tblProdukter ORDER BY Produkt ASC"
set rs1 = db.execute(str1)

<table border="0" width="100%" cellpadding="5" cellspacing="0" class="text">
<%
namnrad = ""
bildrad = ""
kolumn = 1

Do While not rs1.EOF

id = rs1("Id")
produkt = rs1("Produkt")
bild = rs1("Bild")

namnrad = namnrad & "<td>" & produkt & "</td>"
bildrad = bildrad & "<td>" & bild & "</td>"

If kolumn = 6 Then
Response.Write ("<tr>" & namnrad & "</tr>")
Response.Write ("<tr>" & bildrad & "</tr>")
namnrad = ""
bildrad = ""
kolumn = 0
End If

kolumn = kolumn + 1

rs1.Movenext
Loop

If kolumn <> 6 Then
Response.Write ("<tr>" & namnrad & "</tr>")
Response.Write ("<tr>" & bildrad & "</tr>")
End If
%>
</table>

Ett par saker.
Skriv inte astrix( * ), skriv vilka fält som du vill ha ut ifrån databasen.
Du höjer prestandan ifrån servern samtidigt som du själv får en koll vilka vält som du har valt, och det
blir inga konstigheter med stavning osv.

För det andra:

If kolumn = 6 Then 
   Response.Write ("<tr>" & namnrad & "</tr>") 
   Response.Write ("<tr>" & bildrad & "</tr>") 
   namnrad = "" 
   bildrad = "" 
   kolumn = 0 
End If 
   
kolumn = kolumn + 1 

rs1.Movenext 
Loop 

If kolumn <> 6 Then 
   Response.Write ("<tr>" & namnrad & "</tr>") 
   Response.Write ("<tr>" & bildrad & "</tr>") 
End If 
%> 

If kolumn = 6 Then 
   Response.Write ("<tr>" & namnrad & "</tr>") 
   Response.Write ("<tr>" & bildrad & "</tr>") 
   namnrad = "" 
   bildrad = "" 
   kolumn = 0  
ElseIf kolumn <> 6 Then 
   Response.Write ("<tr>" & namnrad & "</tr>") 
   Response.Write ("<tr>" & bildrad & "</tr>") 
End If 

kolumn = kolumn + 1 
rs1.Movenext 
Loop 
%> 

Tabellen som loopas fram skall ju ha sex kolumner för att sedan byta rad och köra sex kolumner osv...
Första raden har produktnamn och den andra har bilden som hör till.

Har för närvarande 23 produkter men det loopas bara ut 18 st.
Det lustiga är att om jag ändrar till 5 eller 7 kolumner så loopar den ut allt...just 6 funkar inte.

Du måste i alla fall ha med den sista if-satsen i loppen.

Löste det genom att skriva om den sista if-satsen enligt följande:

If kolumn <>6 or kolumn = 6 Then
Response.Write ("<tr>" & namnrad & "</tr>")
Response.Write ("<tr>" & bildrad & "</tr>")
End If

Den ligger utanför loopen och det fungerar alldeles utmärkt!

Tack iallafall!