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

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

הלבגה אלל ישפוח סופיט
םילהנמ תואנדס
הרבח יקחשמו תוילותיה תויורחת
עקר תקיסומו י'ג.יד
תשקו ץחב ירי
יאקירמא י'גנבו תונילופמרט

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

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

סופיטה םותב יעוצקמ י'ג.יד םע םידוקיר תביסמ
יאקירמא י'גנבו הנילופמרט

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

.מ"עמ ללוכ ח"ש 950 - םיפתתשמ 40 דע - תיסיסב תולע

ריחמ תעצהל השקב ספוט