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