creazione dinamica finestra a tendina

[Mr.Fabio]

<%
response.write("<select name='scelta_file'>")
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("/public/upload_folder"))
Set file3 = file2.Files
For Each file in file3
response.write("<option value='" & file.name & "'>" & file.name &"</option>")
next
response.write("</select>")
%>

1)IL NOME DELLA DIRECTORY : upload_folder (ESATTO)

2)IL PATH : /public/upload_folder (ESATTO - SERVER WIN2003 SU ARUBA)

3)CODICE FINESTRA (ESATTO)

4)CARTELLA CONTINE 3 FILE (PROVA01.ZIP - PROVA02.JPG - PROVA03.DOC)

5)NON HO LA DEMENZA SENILE (FORSE )

percheeeeeeeee non me la creaaaaaaaaaaaa ????????

[Enrique_Rojas]

Set file1 = Server. CreateObject("Scripting.FileSystemObject")

[Mr.Fabio]

response.write("<select name='scelta_file'>")
Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(server.mappath("/public/upload_folder"))
   Set fc = f.Files
   For Each f1 in fc
   response.write("<option value='" & f1.name & "'>" & f1.name &"</option>")
   next
   response.write("</select>")

response.write("<select name='scelta_file'>")
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("/public/upload_folder"))
Set file3 = file2.Files
For Each file in file3
response.write("<option value='" & file.name & "'>" & file.name &"</option>")
next
response.write("</select>")

MI SPIEGATE LA DIFFERENZA???? CON LA SECONDA FUNZIONA

[Mr.Fabio]

Originariamente inviato da Enrique_Rojas

Set file1 = Server. CreateObject("Scripting.FileSystemObject")

ANCHE SE NON CI SONO I SECONDI NELL'ORARIO DEL POST, GIURO CHE L'HO SCRITTO PRIMA CHE RISPONDESSI

[Enrique_Rojas]