billeder script som tager undermappen også..
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html>
<head>
<style type="text/css">
a:link {
color: black;
text-decoration:none;
}
a:visited {
color: Black;
text-decoration:none;
}
a:active {
text-decoration:none;
}
a:hover {
color: black;
text-decoration:none;
}
</style>
<title>paris</title>
</head>
<body bgcolor="#C10409" text="#000000" link="#000000">
<div align="center">
<h1>Turen gik til paris</h1><br><br>
<table width="100%" border="0">
<%
billedeSti = "billeder/ferie/paris/" 'Husk / skal være sidste karakter
antalBillederPrRekke = 2
antal = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))
Set fc = f.Files
For Each fil in fc
if (inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(fil.name))) > 0) and inStr(1,fil.name,"thumb") > 0 then
if antal = 0 then Response.Write "<tr>"
%>
<td width="50%" height="50%">
<a href="<%=billedeSti%><%=Mid(fil.name,7)%>" target="_blank"><img src="<%=billedeSti%><%=fil.name%>"></a>
</td>
<%
antal = antal + 1
if antal = antalBillederPrRekke then
antal = 0
Response.Write "</tr>"
end if
end if
next
if antal>0 then Response.Write "</tr>"
%>
</table>
</div>
</body>
</html>
det script har jeg nu..
men kan man ikek lave sådan at den fx linker vidre til en undermappe med billeder ???
