Player de varios videos from folder

Boas pessoal,

To a fazer um script que me leia automaticamente quando abre todos os videos existentes numa pasta.

Ele basicamente vai buscar os ficheiros stravez do filesystemobject

<%
dim fs,fo,x,filme
filme=""
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("C:\inetpub\wwwroot\Painel\videos\")

for each x in fo.files
if filme="" then
filme=(x.Name)
else
filme=filme&", "&(x.Name)
end if
next

set fo=nothing
set fs=nothing
%>

<video width="100%" height="99%" controls="controls" autoplay src="<%=filme%>">
 Your browser does not support the video tag.
</video>

Agora a minha questão é como posso fazer para que ele passe para o video seguinte fazendo um loop de todos os videos?

Obrigado