navigando ho incontrato questo codice che mi sembra adatto, solo che é scritto in vbscript

la mia pagina di inserimento è scritta in jscript

vorrei integrarlo ma non vivo numerosi errori.

CODICE ORIGINALE
codice:
<%

Dim objFso, objFolder, objFiles 
Dim strFolder, strFile, strPath, strExt 
' Definisci il percorso della cartella da leggere 
strPath = "/public/pics/" 
strExt = ".JPG" 

' Crea gli oggetti FSO necessari 
Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

' Scorri tutti i file nella cartella 
for each strFile in objFiles 
' Controlla l'estensione 
if Right(strFile.name, Len(strExt)) = strExt then 
Response.Write(strFile.name) & "
" 
end if 
next 
' Distruggi oggetti e libera risorse 
Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing 

%>
STO CERCANDO DI MODIFICARLO COME SEGUE
codice:
........
<select name="foto">

<%

VAR strPath = "/public/pics/" 
VAR strExt = ".JPG" 

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

PUNTO DI ROTTURA--LINEA 100 for each strFile in objFiles 
' Controlla l'estensione 
if Right(strFile.name, Len(strExt)) = strExt then 
Response.Write(strFile.name) & "
" 
end if 

<option value="--"><%=strFile.name%></option>
              

next 
' Distruggi oggetti e libera risorse 
Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing 

%>
</select>
Ecco l'errore
codice:
Errore di compilazione di Microsoft JScript errore "800a03ed' 

Previsto '(' 

/admin/inserisci.asp, riga 100 

for each strFile in objFiles
come posso risolvere??? ho bisogno di finire questo scriptttttt.