xyz
Home About School Members Admission Infrastructure Activities Achievements Gallery TC Status News Contact










TRANSFER-CERTIFICATE

<% set objFS = server.CreateObject("Scripting.FileSystemObject") dim f, fc, fPath, fName Dim Count Const Columns = 3 Count = 0 if inStr(folderspec,"\") = 0 then folderspec = server.mappath("TC/") on error resume next set f = objFS.GetFolder(folderspec) if err.number <> 0 then error_list.add "patherror" ,"The path does not exist or you do not have access." b_error = true end if on error goto 0 set fc = f.SubFolders Response.Write "" Response.Write "" if fc.Count > 0 then for each fl in fc Count = Count + 1 if Count Mod Columns = 1 Then Response.Write "" Response.Write "" Response.Write "" Response.Write "
" fName = fl.Name Link = folderspec & "\" & fName & "" if InStr(left(fName,1),"_") = 1 then response.write "
System folder found
Will not be displayed" else %>
<% =fName %>


<% end if next Response.Write "
" end if set f = NOTHING set fc = NOTHING %>