<%@ Language=VBScript codepage=1255%> Olimpus <%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 %>
תיבה ףד תושדח רשק רוצ םירושיק תועדומ חול םילולסמ תרחבנו תויורחת ףיכ ימיו תוצובק םיסרוקו םיגוח םירבח ןודעומ תודוא
.ןודיצ .א.א תרבח י"ע םקוה ,םינש שולשכ לעופ "סופמילוע" סופיטה ריק
םיאבה םינבבוח לש ןה סופיטל םיאתמ אוהו ביבא לת קטרופסב םקוממ ריקה
.ינעוצקמ סופיטל ןהו יאנפה תועשב יוליבל

םלועב רתויב םיטהולה םיפנעה דחאל ךפה תוריקה לע סופיטה טרופס ,עודיכ
,םלוע יפולאו םינעוצקמ ,םיבבוח :םיספטמ דועו דוע םוי לכב רבוצ אוהו
ןחלוש לע סופיטה טרופס אצמנ ולא םימיב .תוימואלניב תויורחתב םיפתתשמה
.יפמילוא עוצקמ תויהלו ךופהל ידכ תימלועה תיפמילואה הדעוה לש םינוידה
לכל הרידא הצפקמ התווה ,ץראה זכרמב וזכש ההובג המרב סופיט ריק תמקה םצע
.תוידעלבהו תוינושארה ןורתימ הנהנ אוהו ,ץראב סופיטה ףנע

תא םדקל התיה ,"סופמילוע" תמקהב ןודיצ .א.א תרבח לש תירקיעה התרטמ
תועצמאב .םירגובמלו רעונל ,םיריעצל סופיט תגיל םיקהלו ץראב סופיטה טרופס
הגילה תוליעפב ליחתהל היה ןתינ םיספטמה תא הוולמש ןמוימהו יעוצקמה תווצה
.תוימואלניב סופיט תויורחתל חצנמה תא חולשל ףאו תויורחתהו

תובטהמ םינהנ רשא ,םירבח 1000- כ ,םירבח ןודעומ םקוה הגילל ליבקמב
ןכ ומכ .דועו טרופסו סופיט ירזיבא תיינקב ,רתאל הסינכב ומכ תונוש תוחנהו
.תואנדסו תועצקמתה ימי ,ןודעומה ירבחל םידחוימ םייתרבח םיעוריא םיכרענ

ןודיצ א.א
17 ןב ,ריקה תמקה םויב 14 ןב ןודיצ ירוא ,ונבו בא י"ע םקוה סופיטה ריק
לש ביבחתכ ליחתה ןיינעה לכ .חילצמ קט ייה שיא ןודיצ ביבא - ויבאו ,םויה
חילצה ולש ןוצר חוכ םע טאל טאלו ץראב רבעב ויהש םינטק תוריקב ספיטש ירוא
ירוא ומיקה ךכ ךרוצל .ץראב סופיטה טרופס םודיק ןויער לע ויבא תא ביהלהל
.ביבא לת זכרמב קנע סופיט ריק תראפתל םקוה ךכו ןודיצ א.א םשב הרבח ביבאו
םלוע תודוסי תא ונבל ןודיצ ביבא הנקמ ולוהינו ריקה תמקה ידכ ךותש ןבומכ
לוהינו תוטלחה תלבק לש המרב יקסעה םוחתב תוסנתהל ול תתל חמשו םיקסעה
.לעופב