Skal kun vise tekst hvis tabelfelt er udfyldt.
Har følgende kode.Den skal vise vinnavn og pris hvis der er noget i feltet i db
Den er lavet med en gruppe der hedder
VintypeID
1=rødvin
2=hvidvin
Den skal så vise alle flasker i den rækkefølge
nr 1. først og så nr 2. Det virker fint hvis der er nogle flasker med 1 og 2.
Hvis der kun er flasker med nr 1. så giver den følgende fejl.
**
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/projekt_vin/html/frankrig/bordeaux/bordeaux1.asp, line 187
**
Hvis der kun er flasker med nr 2. så giver den følgende fejl.
**
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/projekt_vin/html/frankrig/bordeaux/bordeaux1.asp, line 171
**
Koden viser dette.
<%'Linie 171%> <%=(flasker.Fields.Item("VIntypeID").Value)%><br>
<%
While ((Repeat1__numRows <> 0) AND (NOT flasker.EOF))
%>
<%=(flasker.Fields.Item("Vinnavn").Value)%>,<br>
<b>Pris: <%=(flasker.Fields.Item("Vinpris_ks").Value)%></b> pr.ks <br>
<strong>Pris:</strong> (<%=(flasker.Fields.Item("Vinpris_1stk").Value)%>) v. 1 stk
<%if (flasker.Fields.Item("Udsolgt").Value) = -1 then %> <font color="red"> <% Response.Write("Udsolgt")%> </font><% End if %><br><hr width="125">
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
flasker.MoveNext()
Wend
%>
<br>
<%'Linie 187%> <%=(flasker2.Fields.Item("VIntypeID").Value)%>
<% If Not flasker2.EOF Or Not flasker2.BOF Then %>
<br>
<%
While ((Repeat2__numRows <> 0) AND (NOT flasker2.EOF))
%>
<%=(flasker2.Fields.Item("Vinnavn").Value)%> <br>
<strong>Pris: <%=(flasker2.Fields.Item("Vinpris_1stk").Value)%></strong> pr.ks<br>
<strong>Pris: <%=(flasker2.Fields.Item("Vinpris_1stk").Value)%></strong> v. 1 stk.
<%if (flasker2.Fields.Item("Udsolgt").Value) = -1 then %>
<font color="red"> <% Response.Write("Udsolgt")%>
</font>
<% End if %>
<br>
<hr width="125">
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
flasker2.MoveNext()
Wend
%>
<% End If ' end Not flasker2.EOF Or NOT flasker2.BOF %>
<br>
(1) stykpris ved 12 flasker. Pris i parentes er pr. enkeltflaske.</font></p> </td>
<td width="1" height="446"><spacer type="block" width="1" height="446"></td>
</tr>
<tr height="1" cntrlrow>
<td width="16" height="1"><spacer type="block" width="16" height="1"></td>
<td width="327" height="1"><spacer type="block" width="327" height="1"></td>
<td width="1" height="1"></td>
</tr>
</table>
