%@ 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
%>