<%@ 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 %>

תיבה ףד תושדח רשק רוצ םירושיק תועדומ חול םילולסמ תרחבנו תויורחת ףיכ ימיו תוצובק םיסרוקו םיגוח םירבח ןודעומ תודוא
		תרחבנ יריכבמ ,פוקס זוע י"ע עובשב םיימעפ תנמאתמ "סופמילוע" תרחבנ .לארשיב םיספטמה םג םינמאתמ םתיצחממ הלעמלו ץראה יבחרב תויורחתב תפתתשמ תרחבנה .יביטרופס סופיטל לארשי תרחבנב בלתשהלו םדקתהל םילוכי םיגוחב ההובג המרל םיעיגמש םיספטמ .תרחבנב :"סופמילוע" תרחבנ תווצ תרחבנ לש ןמאמו ץראב םיספטמה יריכבמ זוע הכמסה לעבו םינש 10 מ הלעמל ספטמ לארשי .םילולסמ תיינבו טופישב תימואלניב ךל רמגנש שיגרמ התאשכ" :םייחב וטומ תופייעל תעגה ,חכה ירמגל ".....תיזיפ אל תילטנמ   .ךירדמ 27 ןב ,פוקס זוע ריקב םייתנשמ הלעמל תנמאתמ רומא .סופיטב לארשי תרחבנל הפרטצהו "סופמילוע" תורחתב ינש םוקמ :םיירקיע םיגשיה .ונוא ץקב "תלייא" תורחתב ישילש םוקמ ,א"ת "סופמילוע" = סופיטב החלצה" :םייחב וטומ " !ךפיהלו םידומילב החלצה   .תספטמ ,10 תב ,זפ רומא תויורחת ץראב תויורחת חול רושיק תורחתה גוס םוקמ ךיראת www.arco.co.it רעונל הפוריא תופילא וקרא ,הילטיא 02/03/03 םלועב תויורחת חול