<%@ Language=VBScript %> <% ' usernr = 339 set filesys = createobject("scripting.filesystemobject") set folder = filesys.getfolder(server.mappath("..\..\data\m")) root = folder & "\m" ' filnamn = folder & "\m" & Request.QueryString("filename") ' filnamn = Request.QueryString("filename") id = Request.QueryString("id") usernr = id namn = Request.QueryString("namn") bilder = Request.QueryString("bilder") %>

<% ' filnamn = "\\atm.binero.net\content\25\158225\barchetta.se\data\m\m339\Blandat 007.JPG" ' Response.Write filnamn %> <%' =root & "
" & filnamn & "
"%> Tillbaka
( <%=namn + 1%> / <%=bilder%> )<%'=CInt(namn) + 1 & "-" & CInt(bilder)%>
<% if namn > 0 then %> föregående
<% else response.write "första
" end if if CInt(namn) + 1 < CInt(bilder) then %> nästa
<% else response.write "sista
" end if %>