<%@ 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("."))
%>
<html>
<head>
<title>www.parsha.net</title>
</head>
<body>
<table class="OEMBar" id="tabletop" height="18" cellspacing="0" cellpadding="0" width="772" border="0" style="margin-top: -8">
<td valign="left"> <a class="OEMBarF" href="http://www.parsha.net/"><< Home</a></td>
<td nowrap align="right" height="28"><a class="OEMBarWWW" href="http://www.parsha.net/" target="_new">Internet Parsha Sheet </a></td>
<tr>
<td colspan="2" nowrap="nowrap" align="left" height="1" bgcolor="#cecbce"></td>
</tr>
</table>
<table class="StatusBar" height="50" cellspacing="0" cols="4" cellpadding="0" width="772" border="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="216"><img src="http://www.parsha.net/images/InternetParshaSm.jpg" border="0" width="216" height="157" /></td>
<td class="OEMBarWWW" align="left" width="293"><center><font size="5">Sefer Shmos Archives
<%=patchid%></font></td></center>
<td class="OEMBarWWW" width="260" align="center"></td>
</tr>
<tr>
<td class="OEMBarWWW" align="right" width="793"><center>
<font size="3"><i><a href="http://www.parsha.net/Bereishis/">Bereishis</a> | </i><i>
<a href="http://www.parsha.net/Vayikra/">Vayikra</a> | </i><i><a href="http://www.parsha.net/Bamidbar">Bamidbar</a> | </i><i><a href="http://www.parsha.net/Devarim">Devarim</a> | </i></font></font>
<a href="http://www.parsha.net/pdf"><font
size="3"><i> PDF </i></font></a>
</table>
<table id="Tab1" width="772" style=table-layout:fixed;margin-top:0px;margin-bottom:80px;border-collapse:collapse rules="none" cellpadding="4">
<tr><td valign="top" class="stdtext">
The parsha sheets are available for a variety years. Please select the parsha sheet as
desired, then download the supplied file.
<br><br>
<table width="100%">
<thead>
<tr>
<th align="left" class="stdtext"><font size="2pt"><u>Parsha Sheets</u></font></th>
<th align="left" class="stdtext"><font size="2pt"><u>File Name</u></font></th>
</tr>
</thead>
<tbody>
<%
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 "<TR><TD class=""stdtext"">"+fname1+" 57"+yr+"</a></TD><TD class=""stdtext""><a href="""+fname+""">"+fname+"</a></TD></TR>"
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 "<TR><TD class=""stdtext""><a href="""+fname+""">"+fname1+" 57"+yr+"</a></TD><TD class=""stdtext""><a href="""+fname+""">"+fname+"</a></TD></TR>"
end if
End if
Next
%>
<tr><td><td></tr>
</table>
</td>
</tr>
<tr>
<td valign="bottom"> <a class="OEMBarF" href="http://www.parsha.net/"><< back</a></td>
</tr>
</table>
<table class="OEMBarF" width="772" border="0" style="margin-top:-66" id="table6">
<tr>
<td> <b>www.parsha.net</b>, Send comments to <a class="OEMBarF" href="mailto:cshulman@gmail.com">cshulman@gmail.com</a>
<br />
</td>
</tr>
</table>
</body>
</html>