<% dim c dim i set nl=server.createobject("MSWC.Nextlink") c = nl.GetListCount("foton2007.txt") i = 1 %> <%do while (i <= c) %> <% loop %>

"> "> <% ' thumbnail here %> <% Response.Write nl.GetNthDescription("foton2007.txt", i) i = (i + 1) %>

<% IF i > c Then %> <% else %> "> "> <% ' thumbnail here %> <% Response.Write nl.GetNthDescription("foton2007.txt", i) i = (i + 1) end if %>

<% IF i > c Then %> <% else %> "> "> <% ' thumbnail here %> <% Response.Write nl.GetNthDescription("foton2007.txt", i) i = (i + 1) end if %>