Hvordan henter man alle billeder fra en mappe ind i en fil

Set fsoObj = Server.CreateObject("Scripting.FilesystemObject")
Set foldObj = fsoObj.getFolder( Server.MapPath("DINBILLEDSTI") )
Set filesObj = foldObj.Files
row = 1
response.write "Det er " & filesObj.Count & " Billeder<br>"
%>
<table align="center" cellspacing="2" cellpadding="2" border="0" width="450">
<tr>
<%
for each file in filesObj
if not file.name = "Thumbs.db" Then
    response.write "<td width='150' align='center'>"
        response.write "<img src="DINBILLEDSTI" & file.name & " border='0' width='150' alt='"&file.name&"'><br>" & file.name & "</a></td>"
if (row mod 3) = 0 Then
  response.write("</tr><tr>")
End if


row = row +1
end if
next

Skal de to DINBILLEDSTI bare erstates med mappenavn/

Jeg får denne fejl:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/test/tester25.asp, line 14

response.write "<img src="/billedgallery/" & file.name & " border='0' width='150' alt='"&file.name&"'><br>" & file.name & "</a></td>"
-----------------------------------------------------------^

ja, hvis dine billeder ligger i en under mappe der hedder billeder.

sti = "./billeder"

Set fsoObj = Server.CreateObject("Scripting.FilesystemObject")
Set foldObj = fsoObj.getFolder( Server.MapPath(sti) )
Set filesObj = foldObj.Files
row = 1
response.write "Det er " & filesObj.Count & " Billeder<br>"
%>
<table align="center" cellspacing="2" cellpadding="2" border="0" width="450">
<tr>
<%
for each file in filesObj
if not file.name = "Thumbs.db" Then
    response.write "<td width='150' align='center'>"
        response.write "<img src='"&sti&" & file.name & "' border='0' width='150' alt='"&file.name&"'><br>" & file.name & "</a></td>"
if (row mod 3) = 0 Then
  response.write("</tr><tr>")
End if


row = row +1
end if
next
%>
</tr></table>

takker

Kunne du evt. lave det, så billederne blev hentet ind i en tilfældig rækkefølge?