<% dim nrOfPhotos, thisPhoto dim i set nl=server.createobject("MSWC.Nextlink") nrOfPhotos = nl.GetListCount("foton2010.txt") i = 1 do while (i <= nrOfPhotos) IF nl.GetNthURL("foton2010.txt", i) = request.querystring("Foto") Then thisPhoto = i 'Response.Write nl.GetNthDescription("foton2010.txt", i) end if i = (i + 1) loop %>

<% IF thisPhoto = 1 Then %> "> <% else %> "> <% end if %>

<% IF thisPhoto = nrOfPhotos Then %> "> <% else %> "> <% end if %>

" style="height:400px">
<% Response.Write nl.GetNthDescription("foton2010.txt", thisPhoto) %>