<% Do While Not lista.Eof randomize k=Int((3 * Rnd) + 4) if k mod 3=0 then j=Int((3 * Rnd) + 4) if j mod 3=0 then google_kulcsszo="Reklámajándék " end if if j mod 3=1 then google_kulcsszo="Emblémázott " end if if j mod 3=2 then google_kulcsszo="Ajándék " end if else google_kulcsszo="" end if if lista(1)="??F" then %>  /easy5/klasszikus_kapcsol.asp?kl_funkcio=0">Reklámajándék kereső bezár      X

<% end if if len(lista(1))>1 and lista(1)<>"??F" and lista(1)<>"XX0" then %>     -  <% else %>   <% end if %> /easy5/termekek_func.asp?funkcio=<%=lista(1)%>&mod=SEARCH"><% =google_kulcsszo %> <%=lista(0)%>
<% if len(lista(1))>1 and lista(1)<>"??F" and lista(1)<>"XX0" then else %> <% end if lista.Movenext Loop %>