<%@ Language=VBScript codepage=1255%> <%ins=request("ins")%> <% function Convers(byval a) if len(trim(a)) = 0 then Convers = "" : exit function if isnull(a) then Convers = "" : exit function a = replace(a,"'","`") EnglishChars="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789," & chr(22) 'check a string to see if it contains hebrew characters ifheb = false for i = 1 to len(a) b = mid(a,i,1) if (b>="א" and b <="ת") then ifheb = True exit for end if next if not(ifheb) then Convers = a exit function end if 'preserve the vbcrlf's a = replace(a,vbcrlf,chr(21)) a = replace(a,"
",chr(21)) 'replace the brackets a = Replace(a, "(", "&TempConvers&") a = Replace(a, ")", "(") a = Replace(a, "&TempConvers&", ")") 'Convers the whole string b="" for i=1 to len(a) 'sign spaces inbetween english sentences ThisCharIsEng = False if mid(a,i,1) = " " and i > 1 and i < len(a) then if instr(EnglishChars,mid(a,i-1,1)) and instr(EnglishChars,mid(a,i+1,1)) then ThisCharIsEng = True end if end if if ThisCharIsEng then b = chr(22) & b else b = mid(a,i,1) & b end if next a = "" 'Convers again (undo) for english sections For i = 1 To Len(b) ot = Mid(b, i, 1) if instr(EnglishChars,ot) then word = ot & word else a = a & word & ot word = "" end if Next a = a & word a = replace(a,chr(22)," ") b = "" 'Convers the lines order if instr(a,chr(21)) = 0 then Convers=a exit function end if do if instr(a,chr(21)) then b=left(a,instr(a,chr(21))-1) a=mid(a,instr(a,chr(21))+1) c = b & "
" & c else c = a & "
" & c a="" end if loop until a="" if right(c,4) = "
" then c = left(c,len(c)-4) if not From_Getfield then c = replace(c,"
",vbcrlf) From_Getfield = False Convers = c end function function make_one_line(a) a = replace(a,vbcrlf,"§") a = replace(a,"
","§") a = a & "§" if instr(a,"§") then do until a = "" b = left(a,instr(a,"§")-1) a = mid(a,instr(a,"§")+1) c = b & " " & c loop a = c end if make_one_line = a end function function br_heb(a,l) a = replace(a,vbcrlf," ") a = replace(a,"
"," ") b = "" i = Len(a) + 1 Do i = i - 1 If i <= 1 Then b = b & vbCrLf & a Exit Do End If If Mid(a, i, 1) = " " And Len(a) - i > l Then b = b & vbCrLf & Mid(a, i) a = Left(a, i - 1) i = Len(a) + 1 End If Loop if left(b,2) = vbcrlf then b = mid(b,3) b = Replace(b,vbCrLf,"
") br_heb = b end function function print2html(str) str = replace(str,"`","'") str = replace(str,"^","""") print2html = str end function function print2sql(str) str = replace(str,"'","`") str = replace(str,"""","^") print2sql = str end function function repl(byval a) 'change the emdish to - a = replace(a,"–","-") 'a = replace(str,"""","^") repl = a end function function repl2(a) 'a = replace(a,chr(182),vbcrlf) a = replace(a,vbcrlf,"
") repl2 = a end function function repl1(byval a) 'a = replace(a,chr(21),vbcrlf) 'a = replace(a,chr(21),"
") if instr(a,chr(182)) = 0 then repl1=a exit function end if do if instr(a,chr(21)) then b=left(a,instr(a,chr(22))-1) a=mid(a,instr(a,chr(22))+1) c = b & "
" & c else c = a & "
" & c a="" end if loop until a="" 'if right(c,4) = "
" then c = left(c,len(c)-4) 'if not From_Getfield then c = replace(c,"
",vbcrlf) 'From_Getfield = False repl1 = c end function function addBold(str) if len(trim(str)) = 0 then addBold = "" : exit function if isnull(str) then addBold = "" : exit function str = replace(str,"}","") str = replace(str,"{","") addBold = str end function %>

תיבה ףד תושדח רשק רוצ םירושיק תועדומ חול םילולסמ תרחבנו תויורחת ףיכ ימיו תוצובק םיסרוקו םיגוח םירבח ןודעומ תודוא
		םיגוח .סופיט תויורחתב ףתתשהל םילוכי גוחה יפתתשמ סופיטה תרחבנל ףרטצהל תורשפא תנתינ םינייטצמל .סופמילוע ריק לש םיפתתשמה ,ךמסומ ךירדמ י"ע עובשב םעפ םייקתמ גוחה .ישפוח סופיטל עובשב ףסונ םויל םיאכז םיגוחה ידעומ תועש םימי םיאליג 17:00-18:30 'ה ,'ג (12 ליג דע) םידלי 18:30-20:00 'ה ,'ג (18 ליג דע) רעונ 20:00-21:30 'ג ,'א (18 לעמ) םירגוב םיסרוק !!! שדח !!! שדח !!! שדח "סופמילוע" סופיטה ריקב סופיט יסרוק חוכ בלשמה טרופס :יביטרופסה סופיטה ףנע תא ריכהלו דומלל ואוב .תושימגו העונת ,היצנידרואוקו לקשמ יוויש, תלוביסו ,זוכיר ,ץחל יבצמ םע תודדומתה לש םיילטנמ םירושיכ חתפמש טרופס .ימצע ןוחטבו דוקימ .ילטנמה ץמאמל ינפוגה ץמאמה ןיב קדה לובגה רבוע ןאכ :דמלנ םהבו תועש 3 לש םישגפמ 3 ללוכ יסיסבה סרוקה סופיטה טרופס עקר םירשקהו םילבחה תרות םירשקהו םילבחה תרות פור-פוטב החטבאה תונורקע תומדקתמ סופיט תוקינכט םילולסמ תאירק תישיא ןומיא תינכות תיינב ח"ש 360 :סרוקה תולע :דמלנ םהבו תועש 3 לש םישגפמ 2 ללוכ םדקתמה סרוקה הלבוה סופיטב דויצה תרכה הלבוהב החטבא הלבוהב סופיט ח"ש 260 :סרוקה תולע ןודעומ רבח ימדב החנה 50% :םימשרנל עצבמ ."סופמילוע" .םיפתתשמ 8 ל 4 ןיב עוני סרוקב םיפתתשמה רפסמ