Det var godt nok mange billeder at skulle igennem hver gang...men du kan rode en struktur og gemme navnet på filen og vise et tilfældigt billede sådan her:
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("billeder.mdb")
Set fso = CreateObject("Scripting.FileSystemObject")
function lookinfolder (foldernavn, listen)
Set objFolderR = fso.getFolder( foldernavn )
Set objFolder = fso.getFolder( objFolderR.Path )
Set objFiles = objFolder.Files
for each file in objFiles
if InStr(1,"gif,jpg,jpeg,bmp", LCase(fso.GetExtensionName(file.name))) > 0 then
rootlen = len(server.mappath("/"))+1
navn = Replace(Mid(file.path,rootlen),"\","/")
listen = listen & "," & navn
end if
next
Set objFolder = Nothing
Set objFiles = Nothing
For each Folder in objFolderR.SubFolders
call lookinfolder (Folder.path, listen)
next
Set objFolderR = Nothing
end function
listFiles = ""
'Her angiver du den fysike sti til "root" for billede bilerne
strPhysicalPath = "C:\Inetpub\wwwroot\billeder"
xx = lookinfolder (strPhysicalPath, listFiles)
listFiles = mid(listFiles,2)
billeder = Split(listFiles,",")
randomize
billedsrc = billeder(Int(rnd * (Ubound(billeder)+1)))
Response.Write "<img src=""" & billedsrc & """>"
Conn.Close
Set Conn = Nothing
Set fso = Nothing
%>
</BODY>
</HTML>
