<%@ LANGUAGE=vbscript LCID=1033 %> <% Response.Expires = -1 Response.CacheControl = No-store patchid=mid(Request.ServerVariables("SCRIPT_NAME"),29,10) Set fso = CreateObject("Scripting.FileSystemObject") Set fld = fso.GetFolder(Server.MapPath(".")) %>

<< Home	Internet Parsha Sheet

	Sefer Devarim PDF Archives <%=patchid%>
Bereishis pdf | Shmos pdf | Vayikra pdf | Bamidbar pdf | Word

The parsha sheets are available for a variety years. Please select the parsha sheet as desired, then download the supplied file. <% On Error Resume Next for Each fyl In fld.Files fname = CStr(fyl.name) if InStr(fname,patchid) > 0 Then if InStr(fname,"pdf") > 0 Then fnameext=Right(fname, Len(fname) - InStrRev(fname, ".") + 0 ) fname1=Left(fname,Len(fname) - Len(fnameext) -3) fname2=Left(fname,Len(fname) - Len(fnameext) -1) yr = Right(fname2,2) Response.Write "" end if elseif InStr(fname,patchid) > 0 Then if InStr(fname,"pdf") > 0 Then fnameext=Right(fname, Len(fname) - InStrRev(fname, ".") + 0 ) fname1=Left(fname,Len(fname) - Len(fnameext) -3) fname2=Left(fname,Len(fname) - Len(fnameext) -1) yr = Right(fname2,2) Response.Write "" end if End if Next %> Parsha Sheets File Name "+fname1+" 57"+yr+" "+fname+" "+fname1+" 57"+yr+" "+fname+"

<< back

www.parsha.net, Send comments to cshulman@gmail.com