<% Szuro_KepKonyvtar="A" strSQL="" strSQL="select * from gold_cikk" Set Lista=cnnSearch.Execute(strSQL) %>

Ezeknek a termékeknek nincs képe:

<% j=0 Do While Not lista.EOF kep_filenev = GetKepfile( Szuro_KepKonyvtar,lista("y_kep_hely") ) if instr(kep_filenev,"nincskep.jpg")<>0 then j=j+1 %> <% end if 'megvan a termékkép lista.MoveNext Loop %>

Cikkszam	Megnevezés	Kép file
<%= lista("cikkszam") %>	<%= lista("cikkmegnevezes") %>	<%= lista("y_kep_hely") %>
Összesen: <%=j%>