Ok. Lige nu har jeg 2 filer (og det er måske lidt rodet)
Den er sat til at dine PDF-filer ligger i samme katalog som disse 2 filer.
---- START PÅ Filen "DEFAULT.ASP"
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ny side 1</title>
</head>
<frameset rows="64,*">
<frame name="banner" scrolling="no" noresize target="indhold">
<frameset cols="150,*">
<frame name="indhold" SRC="Menu.asp">
<frame name="hovedramme">
</frameset>
<noframes>
<body>
<p>Denne Web-side bruger rammer, og din browser understøtter ikke rammer.</p>
</body>
</noframes>
</frameset>
</html>
---- SLUT PÅ Filen "DEFAULT.ASP"
---- START PÅ Filen "MENU.ASP"
<script language="Javascript">
var a
a=1
function naeste(link1)
{
window.parent.frames["hovedramme"].location.href=link1+".pdf";
}
</script>
<%
Dim fso, f, fl, fc, s, N
Function ShowFolderList(FileSpec)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(FileSpec)
Set fc = f.Files
N=0
For Each fl in fc
If UCase(Mid(Fl.Name,Len(Fl.Name)-2,3))="PDF" then
N=N+1
End If
Next
ShowFolderList = N
End Function
FilDir=Server.MapPath(".")
antal=ShowFolderList(FilDir)
%>
<FORM NAME="TEST" METHOD="POST">
<html>
<input type="button" value="Næste" onClick="java script:naeste(a);((a > <%=int(antal)-1%>) ? a=1 : ++a);">
</FORM>
---- SLUT PÅ Filen "MENU.ASP"
(den virker med JPG)
