ASP in loop problem

Dim oFilesys, oFolder, oFile
Set oFilesys= CreateObject("Scripting.FileSystemObject")
Set oFolder= oFilesys.GetFolder(Server.MapPath("slike/" & recordset("ID") & ""))
For Each oFile in oFolder.Files

Koda

Next

Set oFolder=Nothing
Set oFilesys=Nothing

Tole kodo uporablam za izpis useh datotek iz določenega folderja. Ta koda mi izpiše vse datoteke, jaz pa bi rad samo prve tri. Zato sem naredil takole, ampak zadeva ne deluja:

Dim oFilesys, oFolder, oFile
Set oFilesys= CreateObject("Scripting.FileSystemObject")
Set oFolder= oFilesys.GetFolder(Server.MapPath("slike/" & recordset("ID") & ""))
For oFile = 0 to 5 in oFolder.Files

Koda

Next

Set oFolder=Nothing
Set oFilesys=Nothing

Ima kdo kakšno idejo kaj telam narobe?

Hvala za odgovore!

Meni je useeno po kakšnem vrstnem redu mi jih spremeni. Tukaj gre da hočem iz folderja prikazati samo 3 slike in ne useh. Na naslednji strani pa potem obiskovalec vidi use slike.

Se pravi jaz bi rad samo, da on loop ne naredi do konca ampak da naredi samo 3 loope in konča. lahko tako?

Je težko ker mi pišeš čisto drugače kot imam jaz.

Dim oFilesys, oFolder, oFile
Set oFilesys= CreateObject("Scripting.FileSystemObject")
Set oFolder= oFilesys.GetFolder(Server.MapPath("slike/" & recordset("ID") & ""))
For oFile = 0 to 3 in oFolder.Files



Next

Set oFolder=Nothing
Set oFilesys=Nothing

Zanima me kaj imam narobe tuki kjer mam boldan?

Evo sm točno tako naredil kot si mi napisal:

Dim fso, fold, fNames, fileCount
Set fso= CreateObject("Scripting.FileSystemObject")
Set fold= fso.GetFolder(Server.MapPath("slike/" & recordset("ID") & ""))
fileCount = fold.files.count
dim fNames()
redim fNames(fileCount)
cFcount = 0
for each file in fold.files
cFcount = cFcount + 1
fNames(cFcount) = lcase(file.name)
next
for tName = 1 to fileCount
for nName = (tName + 1) to fileCount
if strComp(fNames(tName),fNames(nName),0)=1 then
buffer = fNames(nName)
fNames(nName) = fNames(tName)
fNames(tName) = buffer
end if
next
next

for i = 1 to 3
content = content & fNames(i) & ""
next
Response.Write content

Error dobim:

Microsoft VBScript compilation error '800a0411'

Name redefined

line 129

dim fNames()

Tist record set ID imam zato ker iz access baze bere kako je točno ime subfolderja... (tisto deluje)

Zakaj sva spremenila for i = 1 to 3 v for i = 1 to fileCount ? Ali ne pomeni to zdej da izpiše tokrat kukr ji datotek v mapi? Jz bi pa rd da samo 3x. Se prav pustim tkole for i = 1 to 3 da mi bo samo 3x?

Koda je zdej taka:

Dim fso, fold, fileCount, cFcount, file
Set fso= CreateObject("Scripting.FileSystemObject")
Set fold= fso.GetFolder(Server.MapPath("slike/" & recordset("ID") & ""))
fileCount = fold.files.count
dim fNames()
redim fNames(fileCount)
cFcount = 1
for each file in fold.files
cFcount = cFcount + 1
fNames(cFcount) = lcase(file.name)
next
for tName = 1 to fileCount
for nName = (tName + 1) to fileCount
if strComp(fNames(tName),fNames(nName),0)=1 then
buffer = fNames(nName)
fNames(nName) = fNames(tName)
fNames(tName) = buffer
end if
next
next

for i = 1 to 3
content = content & fNames(i)
next
Response.Write content

Error pa dobim tale (v vrstici k sm ti jo odebelil) - fNames(cFcount) = lcase(file.name):
Microsoft VBScript runtime error '800a0009'

Subscript out of range: '8'

line 134

V folderju mam 7 slik pa useen isti error.