Конверт JScript 2 VBScript

<%
function GetGalleryQ(folderspec)
{
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.GetFolder(folderspec);
var fc = new Enumerator(f.Files);
var cnt=0;
while(!fc.atEnd())
{
fc.moveNext();
ft=fc.item();
if(String(fc.item()).indexOf(".gif")>0)
    {
       cnt++;
    }
}
return cnt;
}
%>

<script language="JavaScript">
<!--//
imArray = new Array(<%Response.Write(GetGalleryQ("path"));%>);
quan = <%Response.Write(GetGalleryQ("path"));%>;
<%
var fs_ob = new ActiveXObject("Scripting.FileSystemObject");
var f = fs_ob.GetFolder("path");
var fc = new Enumerator(f.Files);
var s = "";
var cnt=0;
var img_path="url_path"
while (!fc.atEnd())
{
fc.moveNext();
ft=fc.item();
if(String(fc.item()).indexOf(".gif")>0)
    {
//     s += "<td><img src=\""+img_path+String(fso.GetFileName(ft)) + "\"></td>";
%>     
    imArray[<%Response.Write(cnt);%>] = new Image();
    imArray[<%Response.Write(cnt);%>].src = "<%Response.Write(img_path+String(fs_ob.GetFileName(ft)));%>";
<%
       cnt++;
    }
}

%>
//-->
</script>