<%@ Language=VBScript %> <% sefer1=killchars(Request("sefer")) perek1=killchars(Request("perek")) 'שליפת נתוני הערך מכל הטבלות הרלוונטיות כדי להציג את נתוניו. הטבלאות הן 'value, value_user, site_search, more '(אולי גם קטגוריה) set rsB=Server.CreateObject("adodb.recordset") rsB.Open "select * from tnh_sefer where id="&sefer1 ,con,3,3 rsB.MoveFirst prakim=rsB.Fields("prakim") dim arPasuk(150) for i=1 to prakim if i >= 100 then maa="ק" j=i-100 else maa="" j=i end if if j \ 10=0 then eser="" if j \ 10=1 then eser="י" if j \ 10=2 then eser="כ" if j \ 10=3 then eser="ל" if j \ 10=4 then eser="מ" if j \ 10=5 then eser="נ" if j \ 10=6 then eser="ס" if j \ 10=7 then eser="ע" if j \ 10=8 then eser="פ" if j \ 10=9 then eser="צ" if j mod 10=0 then ehad="" if j mod 10=1 then ehad="א" if j mod 10=2 then ehad="ב" if j mod 10=3 then ehad="ג" if j mod 10=4 then ehad="ד" if j mod 10=5 then ehad="ה" if j mod 10=6 then ehad="ו" if j mod 10=7 then ehad="ז" if j mod 10=8 then ehad="ח" if j mod 10=9 then ehad="ט" arPasuk(i)=maa+eser+ehad arPasuk(15)="טו" arPasuk(16)="טז" arPasuk(115)="קטו" arPasuk(116)="קטז" next ' = Array(,"","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","","מה","מד","מג","מב","מא","מ","לט","לח","לז","לו","לה","לד","לג","לב","לא","לא","ל","כט","כח","כז","כו","כה","כד","כג","כב","כא","כ","יט","יח","יז","א","ב","ג","ד","ה","ו","ז","ח","ט","י","יא","יב","יג","יד","טו","טז") set rsMain=Server.CreateObject("adodb.recordset") sqlstr="select * from tnh_main where book="&sefer1&" and perek="&perek1 rsMain.Open sqlstr ,con,3,3 rsMain.MoveFirst Sub ktov(x) zmani=x while InStr(1,zmani,chr(13))>0 zmani=left(zmani,InStr(1,zmani,chr(13))-1)&"
"&mid(zmani,InStr(1,zmani,chr(13))+1) wend while InStr(1,zmani,"-")>0 zmani=left(zmani,InStr(1,zmani,"-")-1)&" "&mid(zmani,InStr(1,zmani,"-")+1) wend Response.Write(zmani) end Sub %> <%=rsB.Fields("name")&" פרק "&arPasuk(Request("pasuk"))%>
לדף ראשי
> <% Response.Write("פרק") for i=1 to prakim Response.Write(" "&arPasuk(i)&"") next%>

<%=rsB.Fields("name")&" פרק "&arPasuk(perek1)%>

<% if rsMain.Fields("text1")<>"" then Response.Write(chr(13)&"
") ktov(rsMain.Fields("text1")) Response.Write("
") Response.Write("
") end if %>







<% Response.Write("int(perek1) then Response.Write(sefer1&"&perek="&perek1+1) else if sefer1<39 then Response.Write(sefer1+1&"&perek=1") else Response.Write("1&perek=1") end if end if %> >הפרק הבא
<% Response.Write("1 then Response.Write(sefer1&"&perek="&perek1-1) else if sefer1>1 then set rsZ=Server.CreateObject("adodb.recordset") rsZ.Open "select * from tnh_sefer where id="&sefer1-1 ,con,3,3 rsZ.MoveFirst lastP=rsZ.Fields("prakim") rsZ.Close set rsZ=nothing Response.Write(sefer1-1&"&perek="&lastP) else Response.Write("39&perek=13") end if end if %> >הפרק הקודם
<% rsB.Close set rsB=nothing con.Close set con=nothing %>