" %> &name=<%= NewName1 %>"> <% If Number = 4 then Response.Write "" Else Response.Write "" End If If Request("loc") <> "" then Response.Write "" Else Response.Write "" End If If Number = 4 then Response.Write "" Else Response.Write "" End If %>
<% Else If Request("loc") <> "" then Response.Write "" Else Response.Write "" End If If Number = 4 then Response.Write "" Else Response.Write "" End If If Request("loc") <> "" then Response.Write "" Else Response.Write "" End If If Number = 4 then Response.Write "" Else Response.Write "" End If %> <% End If Next %>

Click on any picture to see full size
Back to main photo gallery in English


<% Dim fso, f, f1, fc, s, number, intdir if request("loc") < 2 then intdir = "../images/gallery/" & Request("GF") Else intdir = "../images/gallery2/" & Request("GF") end if Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(Server.MapPath(intdir & "\small")) Set fc = f.Files Response.Write "

" If Request("size") = 2 then number = 5 Else number = 4 End If x = 0 For Each f1 in fc NewName1 = fso.GetFileName(f1) x = x + 1 If x Mod number = 0 then ' Response.Write "

" ' Response.Write fso.GetFileName(f1) & "
" ' NewName1 = """" & NewName1 & """" ' Response.Write "