---

Hvordan skjuler jeg flere filer end files.asp i det her script?:

<--start code--->

s = s & "<TR><TD COLSPAN=2><H3>Mapper:</H3></TD><TR>"

Set fc = f.SubFolders
i = 0
For Each f1 in fc
i = i + 1
s = s & "<TR><TD><A HREF=""files.asp?Folder=" &
Server.URLEncode(qsFolder & f1.name & "\") & """>" & f1.name & "</A></TD><TD
ALIGN=RIGHT>" & Round(f1.size/1024, 2) & " KB</TD></TR>"
Next

If i = 0 Then s = s & "<TR><TD COLSPAN=2>(ingen mapper)</TD><TR>"
s = s & "<TR><TD COLSPAN=2>&nbsp;</TD><TR>"
s = s & "<TR><TD COLSPAN=2><H3>Filer:</H3></TD><TR>"

Set fc = f.Files
i = 0
For Each f1 in fc
If NOT (qsFolder = vbNullString AND LCase(f1.name) = "files.asp") Then
'Filen Root/files.asp skal ikke vises, da den indeholder adgangskoderne.
i = i + 1
s = s & "<TR>"

If CheckRights("download") Then
s = s & "<TD><A HREF=""" & Replace(qsFolder, "\", "/") & f1.name &
""">" & f1.name & "</A></TD>"
Else
s = s & "<TD>" & f1.name & "</TD>"
End If


<--end code-->

På forhånd tak!
--
//Morten
[www.spiderweb-design.dk|morten_raun@spiderweb-design.dk]
ICQ:71204048

---

Morten wrote:
>
> Hvordan skjuler jeg flere filer end files.asp i det her script?:
>
[...]
> If NOT (qsFolder = vbNullString AND LCase(f1.name) = "files.asp") Then
[...]

Du kunne lave noget med et array eller så'en, men du kan jo også bare
tilføje dem:
If NOT (qsFolder = vbNullString AND (LCase(f1.name) = "files.asp"
Or LCase(f1.name) = "files2.asp")
Or LCase(f1.name) = "files3.asp"))
Then

--
Lauritz