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

תיבה ףד תושדח רשק רוצ םירושיק תועדומ חול םילולסמ תרחבנו תויורחת ףיכ ימיו תוצובק םיסרוקו םיגוח םירבח ןודעומ תודוא
		העדומ ךיראת Brand new, bought in Italy a week ago... but too big for me... Miura shoes, size 40 (a good link: http://www.lasportiva.com/Inglese/Catalogo/Miura.htm). Shimrit Perkol 054-242181 or leave a message at 03-5242577 22.01.03 Looking for a partner for climbing/trekking in Yosemite valley during 11-15 of October. Anyone? Please contact Adi at :064-804165 or mail to adi@simbionix.com 7.10.02 םכל םולש .סופיט ילענ ,הינמרגמ הנתמ יתלביק הנורחאלו ,ןתנוי ימש ,הפלחהל תונתינ אלו ,ילע תולודג ןה ברה ירעצל ךא .ןתוא רוכמל ןיינועמ ינא ןכלו .הילטיאב תויושע ,םרביו תילוס םע ,"one sport" תרבחמ ןה םיילענה !תיסחי תולודג - 49 דע 47 ךרעב איה הדימה ,הרקמ לכב הדות ,פורג ןתנוי ,םילשורי gropp@email.com 02-6438336 7.10.02 !!םולש זכרמהמ 26 ןב ינא סופיטה םוחתב שדח ינאו לג ימש (דויצ יל שי)חטשב סופיטל ה/ףתוש שפחמ םדקתהלו תומוקמ ריכהל ןיינועמו 054585778: ןופלטל רשק רוצ ןיינועמ ה/תא םא 10.9.02 בוט בצמב הדימב סופיט ילענ שפחמ 37,38,39 תודימ 231292-067 זריל םע רשק רוציל אנ ליימיא וא kochi@moit.gov.il 10.9.02 בוט ריחמב םיבוט םירנער 10 שפחמ אוה ילש ןופאלפה רפסמ 055-380990 10.9.02 :גנילפנסו סופיט דויצ שפחמ 37 הדימב סופיט ילענ שפחמ תינימש ףירשו !!!! לוזב E MAILב העדוה חלשיש וא ןופלט ןתיש זא שיש ימל EDEN_GABAY@HOTMAIL.CO.IL וא 051202048 10.9.02