<%
Whichfolder=server.mappath("\") &"/gallerie/video_img/"
Dim bfs, bf, bf1, bfc
Set bfs = CreateObject("Scripting.FileSystemObject")
Set bf = bfs.GetFolder(Whichfolder)
Set bfc = bf.files
For Each bf1 in bfc
Response.write ("
|
<%
Whichfolder=server.mappath("\") &"/gallerie/video_img/"
Dim bfs, bf, bf1, bfc
Set bfs = CreateObject("Scripting.FileSystemObject")
Set bf = bfs.GetFolder(Whichfolder)
Set bfc = bf.files
For Each bf1 in bfc
Response.write ("
|
