Hej
har i en access databas en kolumn som default har alla på nej, Dom jag ändrar till ja vill jag att skall skrivas ut. Får bara att den översta med ja skrivs ut. Kan finnas hur många som hällst. Min kod ser ut så här. Hur loopar jag igenom så att alla med ja syns?
<%sql = ("SELECT * FROM shitems WHERE image = 'ja'")
Set Rs = Conn.Execute(SQL)

%>
<td width="75"><FIELDSET><LEGEND></LEGEND>

<table width="75">

<td colspan"2" width="100" height="76">">
" ><%'=Rs.Fields("title").value%></td>
<td class="jockes" width="70" height="76"><%=Rs.Fields("title").value%></td></tr>
<tr><td class="cats" colspan="2" width="95" height="19">Pris:<%= Rs.Fields("price").Value %>kr </a></td></tr>
<tr><td width="100">">Info</td>
<td width="659" height="38">" target="shBasket">Lägg i kundvagnen</td></tr>
</table></FIELDSET>

<code>
<%
sql = ("SELECT * FROM shitems WHERE image = 'ja'")
Set Rs = Conn.Execute(SQL)

If Not Rs.EOF Then
Do Until Rs.EOF
%>
<table width="75">

<td colspan"2" width="100" height="76">">
" ><%'=Rs.Fields("title").value%></td>
<td class="jockes" width="70" height="76"><%=Rs.Fields("title").value %></td></tr>
<tr><td class="cats" colspan="2" width="95" height="19">Pris:<%= Rs.Fields("price").Value %>kr </a></td></tr>
<tr><td width="100">">Info</td>
<td width="659" height="38">" target="shBasket">Lägg i kundvagnen</td></tr>
</table>
<%
Rs.MoveNext
Loop
Else
'Inga poster hittades
End If
%>
</code>

typ...

/Micke

Du loopar ju inte...!? Så här skall du göra (hoppas det inte blev fel; är inte van vid VBS):
<code>
<%sql = ("SELECT * FROM shitems WHERE image = 'ja'")
Set Rs = Conn.Execute(SQL)
While Not Rs.EOF

' Skriv ut din HTML-kod med Rs.fält

Wend
%>
</code>