<%@ Language=VBScript %> <% Server.ScriptTimeout = 1800 if vantalperside = "" then vantalperside = 20 end if for i = 1 to vantalbib - 1 vbib = vbib & "../" next if request.querystring("funktion") = "hentbillede" then xstr = request.querystring("x") ystr = request.querystring("y") zstr = request.querystring("z") billede = request.querystring("billede") response.ContentType = "image/jpeg" Set Image = Server.CreateObject("AspImage.Image") Image.ImageFormat = 1 image.loadimage Server.MapPath(billede) if zstr <> "" and zstr <> "0" then image.resize int(image.maxx / zstr), int(image.maxy / zstr) elseif xstr <> "" and ystr <> "" then image.resize xstr, ystr elseif xstr <> "" and ystr = "" then image.resize xstr, int(image.maxy / (image.maxx / xstr)) elseif xstr = "" and ystr <> "" then image.resize int(image.maxx / (image.maxy / ystr)), ystr end if response.binarywrite image.image set image = nothing elseif request.querystring("funktion") = "visbillede" then %> Billede
&y=400">

<% else dim pix(10000), antalpix, sti, vraekke, i1, i2, vraekker, vaktuelpix, vantalperside, vside, vstart, vantalsider function IndlaesBilleder() sti = Request.ServerVariables("path_info") sti = left(sti,InstrRev(sti, "/",-1)) Set objFS = CreateObject("Scripting.FileSystemObject") Set objFolder = objFS.GetFolder(Server.MapPath(sti)) Set objFiles = objFolder.Files i = 0 For Each Image In objFiles if lcase(right(image,4)) = "jpeg" or lcase(right(image,3)) = "jpg" or lcase(right(image,3)) = "gif" then i = i + 1 pix(i) = right(image, len(image) - len(Server.MapPath(sti)) - 1) end if Next antalpix = i Set objFS = Nothing end function function visnavn(fil) dim tmp tmp = left(fil, instr(fil,".") - 1) visnavn = replace(tmp,"_"," ") end function if vhoejde = "" then vhoejde = 80 end if if vkolonner = "" then vkolonner = 4 end if indlaesbilleder() %> Fotoside
<% if vbroed <> "" then %> <% end if %>
<%=vtekst%>
<%=vbroed%>

<% if vantalsider > 1 then %> <% end if %>
<% vside = request.querystring("side") if vside = "" then vside = 1 end if if antalpix mod vantalperside = 0 then vantalsider = antalpix / vantalperside else vantalsider = int(antalpix / vantalperside) + 1 end if %>
<% if vantalsider > 1 then %> Billederne er delt op i flere sider, som man kan vælge mellem vha. rullelisten eller knapperne.
<% end if %> For at se et billede i stor format, skal der bare klikkes på det.
<% if vside > 1 then %> <% end if %> <% if int(vside) < int(vantalsider) then %> <% end if %>

<% vstart = ((vside - 1) * vantalperside) + 1 if vstart + vantalperside > antalpix then antalpix = antalpix - vstart else antalpix = vantalperside end if if antalpix mod vkolonner = 0 then vraekker = antalpix / vkolonner else vraekker = (antalpix / vkolonner) + 1 end if for i1 = 1 to vraekker response.write "" for i2 = 1 to vkolonner response.write "" next response.write "" next %>
" vaktuelpix = ((i1 - 1) * vkolonner) + i2 + vstart - 1 if pix(vaktuelpix) <> "" and vaktuelpix < vstart + vantalperside then response.write "" response.write "" if vfilnavne = "ja" then response.write "
" & visnavn(pix(vaktuelpix)) & "" end if response.write "" end if response.write "
<% end if %>