' hver tjekbox skal være unik
<%
' Indsæt mappens navn her:
path = "Billeder"
%>
<html>
<body>
<% if Request.Form("file") = "" then%>
<form method="post" action="<%="" & Request.ServerVariables("SCRIPT_NAME") & ""%>">
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFolder(server.mappath(path))
for each file in f.files
name = file.name
ext = lcase(right(name,3))
if ext = "jpg" then
i = i + 1
%>
<input type="checkbox" name="file_<%=i%>" value="<%=name%>"> - <%=Left(name, Len(name)-4)%>
<br>
<%
end if
next
set f=nothing
set fs=nothing
%>
<input type="hidden" value="<%=i%>" name="antal">
<input type="reset" value="Nulstil" name="Nulstil">
<input type="submit" value="Se valgte billeder" name="valgte">
<input type="submit" value="Se alle billeder" name="alle">
<form>
<%
else
file = replace(Request.Form("file"),", ",",")
fileArr = split(file,",")
for i=0 to ubound(fileArr)
if fileArr(i) <> "" then
%>
<img src="<%="" & path & "/" & fileArr(i) & ""%>" border="0" height="288" width="200">
<%
end if
next
end if
%>
'på den side som viser billederne
<%
if request("alle") <> "" then
for i = 1 to request("antal")
billed = request("file_"&i)
response.write billed & "<br>"
next
end if
if request("valgte") <> "" then
for i = 1 to request("antal")
if request("file_"&i) <> "" then
billed = request("file_"&i)
response.write billed & "<br>"
end if
next
end if
%>
' som du selvfølgelig selv sætter op
Ny bruger
Nybegynder
Opret
Preview
