<% Dim picnr, folderspec, gallery, fs, f, f1, s, fc 'Tar reda på vilket gallery som är aktivt och skriver ut det gallery = Request.QueryString("gallery") folderspec = Server.MapPath(galleryfolder & gallery & "/") Response.Write "
" & gallery & "

" 'Vilken bild skall visas if (Request.QueryString("picnr")<>"") then picnr = int(Request.QueryString("picnr")) else picnr = 1 end if %> <% 'Creater navigerare if ( picnr > 1) then Response.Write "<< First    " Response.Write "< Previous" else Response.Write "First   " Response.Write "Previous" end if Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files Response.Write "   (" & picnr & " / " & fc.count & ")   " if ( picnr < fc.count) then Response.Write "Next >   " Response.Write "Last >>" else Response.Write "Next" Response.Write "   Last" end if Response.Write "

" 'Leta rätt på och visa bilden Dim i Dim FSO, TSO, textline i=1 For Each f1 in fc if (i = picnr) then 'View picture Response.Write "
" Response.Write "0) then Response.Write " width=""" & picwidth & """" if (picheight<>0) then Response.Write " height=""" & picheight & """" Response.Write ">
" 'Response.Write("

URL ADRESS:
" & gallery & "/" & f1.name & "
") Response.Write "
" 'Write text to picture Set FSO = CreateObject("Scripting.FileSystemObject") if (FSO.FileExists(Server.MapPath(galleryfolder & Request.QueryString("gallery") & "/text/" & f1.name & ".txt"))) then Set TSO = FSO.OpenTextFile(Server.MapPath(gallery & "/text/" & f1.name & ".txt")) if (picwidth>300) then Response.Write "


" else Response.Write "


" end if Do Until TSO.AtEndOfStream textline = TSO.ReadLine Response.Write textline & "
" Loop Response.Write "
" TSO.Close end if end if i = i + 1 Next %>

 Copyright 2006 © Nordic Africa News  www.nanews.net This site is made by: IM Storm Webbyrå