Shabbos Stories for the whole family. Not copyrighted.

NOTE: If you don't see one for this year, check out the one from previous years, only new ones will be put up on this website.

<%Response.Expires = 0 %> <% set fso = CreateObject("Scripting.FileSystemObject") set fold = fso.GetFolder(Server.MapPath(".")) fileCount = fold.files.count dim fNames() redim fNames(fileCount) cFcount = 0 for each file in fold.files cFcount = cFcount + 1 fNames(cFcount) = lcase(file.Name) next for tName = 1 to fileCount for nName = (tName + 1) to fileCount if strComp(fNames(tName),fNames(nName),0)=1 then buffer = fNames(nName) fNames(nName) = fNames(tName) fNames(tName) = buffer end if next next for i = 1 to fileCount Response.Write "" & fNames(i) & "
" next Response.Write content %>