se è presente solo un file nella cartella sul server

[djjunior]

Salve,
dovrei fare un controllo utilizzando questo script:

<% 

Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

strPath = "/immagini/"
strExt = ".JPG"

Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

dim iContatore
iContatore = 0

for each strFile in objFiles 
if Right(lcase(strFile.name), Len(strExt)) = lcase(strExt) then 

    %>

vedo i risultati

	<%  
	iContatore = iContatore + 1

	end if
Next	
Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing 

%>

Vorrei implementare a questo script che: se è presente un solo file nella cartella non mi faccia visionare un tasto altrimenti se ci sono + immagini mi deve fare vedere un altro tasto.
Grazie
G.