<%@Language=VBScript%> <% Option Explicit%> <%IF NOT Session("control") = "jswebkj" THEN response.Redirect "http://www.jsweb.com/kj/loggain.htm?vad=login" ELSE %> <% Dim objFSO, intNothing Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Dim objFolder, objFolders, strDir, strNewDir strDir = "" IF Request.QueryString("dir") <> "" then strNewDir = Request.QueryString("dir") setPhotoDrive = setPhotoDrive & strNewDir strDir = strDir & strNewDir end if Set objFolder = objFSO.GetFolder(setPhotoDrive) Dim intPic intPic = Request.QueryString("pic") IF Request.QueryString("dir") <> "" then strNewDir = Request.QueryString("dir") end if 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 Dim strPrev, strForw, intNr, intTotal For Each objFolders in objFolder.Files IF NOT (LEFT(objFolders.Name, 7) = "100x75-") AND NOT (LEFT(objFolders.Name, 6) = "1024x-") AND NOT (LEFT(objFolders.Name, 6) = "1280x-") AND NOT (LEFT(objFolders.Name, 6) = "1600x-") AND NOT (LEFT(objFolders.Name, 5) = "800x-") AND NOT Right(objFolders.Name, 3) = "txt" AND NOT left(objFolders.Name, 3) = "th_" then intTotal = intTotal + 1 IF objFolders.Name = intPic then intNr = intTotal end if IF intNR = "" then strPrev = objFolders.Name End if IF intTotal = (intNr + 1) then strForw = objFolders.Name end if end if Next IF intNr < 1 then intNr = 1 end if Dim intBildspel intBildspel = Request.QueryString("bildspel") IF intBildspel = "1" then intBildspel = 1 elseif intBildspel = "3" then intBildspel = 3 elseif intBildspel = "5" then intBildspel = 5 elseif intBildspel = "10" then intBildspel = 10 elseif intBildspel = "15" then intBildspel = 15 elseif intBildspel = "30" then intBildspel = 30 else intBildspel = "" end if IF intTotal = 1 then intBildspel = "" end if Dim intStorlek intStorlek = "" IF Request.QueryString("storlek") = "800" then intStorlek = "800x-" ElseIF Request.QueryString("storlek") = "1024" then intStorlek = "1024x-" ElseIF Request.QueryString("storlek") = "1280" then intStorlek = "1280x-" ElseIF Request.QueryString("storlek") = "1600" then intStorlek = "1600x-" End if %> ! Kustjägarna - KJ 91-92 - Bilder - Index <%IF intBildspel <> "" then%> <%end if%>
JSWeb.com | Startsida | Kustjägarna | Mönstring/antagningskrav | Utbildning | Frågor & Svar | Bilder
KJ Arkivet | KJV | FKJ | Du Gamla Du Fria | Kustjägareden | Länkar | Gästbok | Media | Logga in
 
blank
 B I L D E R

Index

 Treudd

<%= setMain%> <%=strBuildMenu & " " & intPic%>

 

<%IF intNr <> 1 then%>« Föregående | <%end if%>Upp<%IF intNr <> intTotal then%> | Nästa »<%end if%>
 

Bild <%= intNR%> av <%= intTotal%>
<%if intStorlek <> "" then%><%=intStorlek%><%end if%><%= intPic%>" style="border: 2 solid #666666">

[ <%IF objFSO.FileExists(setPhotoDrive & "\1024x-" & intPic) OR objFSO.FileExists(setPhotoDrive & "\800x-" & intPic) OR objFSO.FileExists(setPhotoDrive & "\1600x-" & intPic) then %> Storlek: <%IF intStorlek <> "" then%><%end if%>640 <%If objFSO.FileExists(setPhotoDrive & "\800x-" & intPic) then IF intStorlek <> "800x-" then%><%end if%>800 <%end if%> <%If objFSO.FileExists(setPhotoDrive & "\1024x-" & intPic) then IF intStorlek <> "1024x-" then%><%end if%>1024 <%end if%> <%If objFSO.FileExists(setPhotoDrive & "\1280x-" & intPic) then IF intStorlek <> "1280x-" then%><%end if%>1280 <%end if%> <%If objFSO.FileExists(setPhotoDrive & "\1600x-" & intPic) then IF intStorlek <> "1600x-" then%><%end if%>1600 <%end if%> | <%end if%> Bildspel: <%IF intBildspel <> "1" then%><%end if%>1 <%IF intBildspel <> "3" then%><%end if%>3 <%IF intBildspel <> "5" then%><%end if%>5 <%IF intBildspel <> "10" then%><%end if%>10 <%IF intBildspel <> "15" then%><%end if%>15 <%IF intBildspel <> "30" then%><%end if%>30 <%IF intBildspel <> "" then%><%end if%> Av ]

<%If objFSO.FileExists(setPhotoDrive & "\" & LEFT(intPic, LEN(intPic) - 3) & "txt") then %>

<%Server.Execute(strDir & "\" & LEFT(intPic, LEN(intPic) - 3) & "txt")%>
<%end if%>

 

Ladda ner alla bilder från den här serien i högupplösning (Zip-fil)

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

 

© 1998-2007, För att minimera risken för spam har alla klickbara maillänkar inaktiverats.
http://www.jsweb.com/kj

Den här sidan uppdaterades den 28 maj 2007 kl. 19:21

 

<%END IF%>