List kun kategorier med indhold
Jeg har et script til at liste kategorier og indhold med, problemet er at den lister alle kategorier også hvis kategorien ikke indeholder nogen produkter.SQL = "SELECT * FROM tilbudKategori"
SET rs = Connect.Execute(SQL)
if not rs.EOF then
do until rs.EOF
if Cint(Request.QueryString("linkid")) = rs("katID") then
%>
<a class="link1" href="bygma-tilbud.asp?menu=2"><b><%=rs("katNavn")%></b></a><br>
<%
else
%>
<a class="link1" href="bygma-tilbud.asp?linkid=<%=rs("katID")%>&menu=<%=request.querystring("menu")%>"><%=rs("katNavn")%></a><br>
<%
end if
if Cint(Request.QueryString("linkid")) = rs("katID") then
Set rs2 = Connect.Execute("SELECT * FROM tilbudVare WHERE uge = "&uge&" AND katID = " & request("linkid") & " Order by priotet asc")
if not rs2.EOF then
do until rs2.EOF
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="almfont">· <a class="link1" href="bygma-tilbud.asp?id=<%=rs2("vareID")%>&menu=<%=request.querystring("menu")%>&show=1">
<%
if rs2("priotet")="A" then
response.write "<b>"
end if
%>
<%=rs2("varenavn")%>
<%
if rs2("priotet")="A" then
response.write "</b>"
end if
%></a>
</td>
<td align="right" class="almfont"><%=formatcurrency(rs2("tilbudpris"),2)%></td>
<td width="100"> </td>
</tr>
</table>
<%
rs2.MoveNext
Loop
rs2.close
else
'fang tom
end if
end if
rs.movenext
Loop
rs.close
else
'fang tom
end if
Jeg vil kun have de kategorier ud der indeholder produkter.
