FSO - Om bild inte fins visa annan ?!

Fråga 1:
Ja, bara att kolla om det sökta filnamnet finns med alla filer i en katalog finns

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\folder\")
For Each File IN objFolder.Files
If File.Name = "minfil.txt" Then
'## -- gör något med filen, den finns --
Else
'## -- gör ngt annat för filen hittades inte --
End If
Next
Set objFolder = Nothing
Set objFSO = Nothing

Fråga 2:

If File.DateLastModified < DateAdd("n", -5, Now()") Then
'## -- filen äldre än 5 minuter --
Else
'## -- bilden är inte äldre än 5 minuter --
End If

Fråga 3:

strSQL = "SELECT Field, Field2 FROM Table WHERE Not Field IN(SELECT TOP 10 Field FROM Table)"

cya,
PatrikB

Hmm ok som ni kanske fattat e jag ingen gud på det här direkt.. =D fick ett par problem..

Nr.1

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("bilder\"))
For Each File IN objFolder.Files
If File.Name = "minfil.txt" Then
response.write "kossa"
Else
response.write "kossa2"
End If
next
Set objFolder = Nothing
Set objFSO = Nothing
%>

Skrev ut kossa2 ungefär 50 ggr =D inte riktigt meningen.. antar det e nånting med next men den måste ju tydligen finnas där =/

Nr2

SQL = "SELECT * FROM nyheter WHERE Not rubrik IN(SELECT TOP 2 * FROM nyheter)"

Funka inte heller riktigt =/ den ville man skulle använda "exists eller nått..

Tack på förhand!

Kanske så här:

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("bilder\"))
For Each File IN objFolder.Files
If File.Name = "minfil.txt" Then
kossa = "kossa"
End If
next
If Not kossa = "kossa" then
kossa = "kossa2"
End If
Set objFolder = Nothing
Set objFSO = Nothing
response.write kossa
%>