<%@ 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(".")) %> www.parsha.net
 << Home Internet Parsha Sheet
Sefer Vayikra Archives <%=patchid%>
Bereishis | Shmos | Bamidbar | Devarim | PDF
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,"doc") > 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