! Kustjägarna - KJ 91-92 - Bilder

Index

<% Dim strMenu, strBuildMenu, iSlinga, strDirBack, intFirst strMenu = Split(strNewDir, "/") IF LEN(strNewDir) then intFirst = 1 For iSlinga = LBound(strMenu) to UBound(strMenu) IF intFirst = 1 then strDirBack = strMenu(iSlinga) intFirst = 2 Else strDirBack = strDirBack & "/" & strMenu(iSlinga) End if strBuildMenu = strBuildMenu & " " & strMenu(iSlinga) & " /" Next end if %>

<%= setMain%> <%=strBuildMenu%>

<%For Each objFolders in objFolder.SubFolders IF objFolders.Name <> "_vti_cnf" THEN%>

<%=strNewDir%><%end if%>/<%= objFolders.Name%>">

<%= objFolders.Name%>

<% intNothing = 1 END IF Next%> <%For Each objFolders in objFolder.Files If Left(objFolders.Name, LEN(setSmalName)) = setSmalName then %>

" border="0" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"> <% intNothing = 1 end if Next IF intNothing <> 1 then Response.Write "Det finns inga bilder i denna katalog." end if %>

Klicka på den bild du vill se så öppnas den i större format i ett separat fönster.