 <%
Whichfolder=server.mappath("\") &"/gallerie/freelance/image/"
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 ("
![](/gallerie/freelance/image/"&) ")
Next
%><%
Whichfolder=server.mappath("\") &"/gallerie/freelance/video/"
Dim vfs, vf, Vf1, Vfc
Set Vfs = CreateObject("Scripting.FileSystemObject")
Set Vf = Vfs.GetFolder(Whichfolder)
Set Vfc = Vf.files
For Each Vf1 in Vfc
Response.write ("
![](/gallerie/freelance/video_img/"& left(vf1.name,(len(vf1.name)-4)) &".jpg) ")
Next
%> |