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

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

: ןודעומ ירבחל חותפ 17:00-22:00 :ה-א 14:00 - 20:00 :גח יברעו ישיש 11:00- 21:00 :םיגחו תותבש םדקומ םואתב ךרוצ ןיא * 42 חקור 'דש א"ת קטרופסה 03-6990910 :ןופלט <% curDir= server.mappath("data/kir.mdb") 'curDir="C:\Inetpub\wwwroot\kir\data\kir.mdb" %> <% response.write "" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" set rs=Server.CreateObject("ADODB.recordset") sql="SELECT * FROM news WHERE mainNews=True" rs.Open sql, conn,2,3 do until rs.EOF or x=2 response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" x=x+1 rs.movenext loop response.write " " response.write reverseP(cstr(left( rs("kot"),70)+"..." ),30) response.write " " rs.Close set rs=nothing x=0 %> לודגה סופיטה ריק וכותב בלשמ לארשיב סופיט ילולסמ רפסמ .דחוימב םירגתאמ םיאתמו ההובג המרב ריקה .דחאכ םימדקתמו םיליחתמל

Site by   Studi[o]z  <% set rs=Server.CreateObject("ADODB.recordset") sql="SELECT * FROM news WHERE bottomNews=True" rs.Open sql, conn,2,3 do until rs.EOF or x=3 response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" x=x+1 rs.movenext loop response.write "" response.write "" response.write "" Conn.Close set Conn=nothing %> " response.write "" response.write ""&Convers(rs("kot"))&"" response.write "" response.write "