שים לב: אתה משתמש בתוכנת חיפוש המאתרת את הביטוי שאתה מחפש בכותרות המאמרים
או במילות המפתח שנבחרו עבור המאמרים
אם ברצונך לחפש את הביטוי בגוף המאמרים לחץ כאן

<% set rs1=Server.CreateObject("adodb.recordset") if Request("klali")<>"" then call suball() if Request("klali2")<>"" then call suball2() subj=Request("nosei") if Request("nose")<>"" then subj=Request("nose") if Request("sub")<>"" then subj=Request("sub") rewiter=Request("writer") retitle=Request("title") if subj<>"" and rewiter<>"" and retitle<>"" then call subwrititl() if subj<>"" and rewiter<>"" and retitle="" then call subwri() if subj<>"" and rewiter="" and retitle<>"" then call subtitl() if subj<>"" and rewiter="" and retitle="" then call subject() if subj="" and rewiter<>"" and retitle<>"" then call writitl() if subj="" and rewiter<>"" and retitle="" then call writer() if subj="" and rewiter="" and retitle<>"" then call titl() if subj="" and rewiter="" and retitle="" and Request("klali")="" and Request("klali2")="" then call none() sub subwrititl() if Request("nose")="" then findstr1="select distinct url,title,author,name,summary from indx_index where name like"& "'"&"%"&subj&"%"& "' and author like"& "'"&"%"&rewiter&"%"& "' and title like"& "'"&"%"&retitle&"%"& "'order by name" if Request("nose")<>"" then findstr1="select distinct url,title,author,name,summary from indx_index where name='"&subj&"' and author like '%"&rewiter&"%' and title like "& "'"&"%"&retitle&"%"& "'" 'Response.Write(findstr1) rs1.Open findstr1 ,con,3,3 call show() end sub sub suball() klali=Request("klali") findstr1="select distinct url,title,author,summary from indx_index where name='"&klali&"' or author like '%"&klali&"%' or title like "& "'"&"%"&klali&"%"& "'" rs1.Open findstr1 ,con,3,3 call show3() end sub sub suball2() klali=Request("klali2") findstr1="select distinct url,title,author,summary from indx_index where name like '% " &klali& " %' or name like '%"&klali&"ים%' or name like ' %כ"&klali&" %' or name like ' %מ"&klali&" %' or name like 'מ"&klali&"%' or title like '% "&klali&" %'" Response.Write(findstr1) rs1.Open findstr1 ,con,3,3 call show3() end sub sub subwri() 'set rs1=Server.CreateObject("adodb.recordset") findstr1="select distinct url,title,author,name,summary from indx_index where name like"& "'"&"%"&subj&"%"& "' and author like "& "'"&"%"&rewiter&"%"& "' order by name" rs1.Open findstr1 ,con,3,3 call show() end sub sub subtitl() set rs1=Server.CreateObject("adodb.recordset") if Request("nose")="" then findstr1="select * from index where name like"& "'"&"%"&subj&"%"& "' and title like "& "'"&"%"&retitle&"%"& "' order by name" if Request("nose")<>"" then findstr1="select * from index where name='"&subj&"' and title like "& "'"&"%"&retitle&"%"& "' order by name" rs1.Open findstr1 ,con,3,3 call show() end sub sub writitl() set rs1=Server.CreateObject("adodb.recordset") findstr1="select distinct author, title, url, id, summary from index where author like"& "'"&"%"&rewiter&"%"& "' and title like "& "'"&"%"&retitle&"%"& "' order by author" rs1.Open findstr1 ,con,3,3 call show2() end sub sub subject() set rs1=Server.CreateObject("adodb.recordset") if Request("nose")="" then findstr1="select distinct url,title,author,name,summary from indx_index where name like"& "'"&"%"&subj&"%"& "' order by name" if Request("nose")<>"" then findstr1="select distinct url,title,author,name,summary from indx_index where name='"&subj&"' order by name" rs1.Open findstr1 ,con,3,3 call show() end sub sub writer() set rs1=Server.CreateObject("adodb.recordset") findstr1="select distinct author, title, url, id, summary from indx_index where author like"& "'"&"%"&rewiter&"%"& "' order by author" rs1.Open findstr1 ,con,3,3 call show2() end sub sub titl() set rs1=Server.CreateObject("adodb.recordset") findstr1="select distinct author, title, url, id, summary from indx_index where title like"& "'"&"%"&retitle&"%"& "' order by title" rs1.Open findstr1 ,con,3,3 call show2() end sub sub none() Response.Write("לא הכנסת פרמטרים לחיפוש. חזור לדף הקודם") Response.Write("

 

חזור") end sub sub show() Response.Write("") on error resume next rs1.movefirst if rs1.fields("url")="" then Response.Write("") end if do until rs1.EOF Response.Write("") rs1.movenext loop Response.Write("

"+"אין קבצים העונים על הנתונים שביקשת") Response.Write("   חזור

") response.write("") response.write(""&rs1.fields("name")&": ") if rs1.fields("author")<>"" then response.write(rs1.fields("author")&" / ") response.write(rs1.fields("title")) Response.Write("

") end sub sub show2() Response.Write("") on error resume next rs1.movefirst if rs1.fields("url")="" then Response.Write("") end if do until rs1.EOF Response.Write("") rs1.movenext loop Response.Write("

"+"אין קבצים העונים על הנתונים שביקשת") Response.Write("   back

") 'response.write(""&rs1.fields("subject")&": ") response.write("") if rs1.fields("author")<>"" then response.write(rs1.fields("author")&" / ") response.write(rs1.fields("title")) Response.Write("

") end sub sub show3() 'Response.Write("") 'on error resume next 'rs1.movefirst 'if rs1.fields("url")="" then ' Response.Write("") 'end if ' 'set rs2=Server.CreateObject("adodb.recordset") ' 'do until rs1.EOF ' findstr2="select name from indx_index where url ='" & rs1.fields("url") & "' and name like '%" & Request("klali") &"%'" ' rs2.Open findstr2 ,con,3,3 ' ' Response.Write("") ' rs1.movenext ' rs2.Close 'loop 'Response.Write("

"+"אין קבצים העונים על הנתונים שביקשת") ' Response.Write("   חזור

") ' rs2.MoveFirst ' if (not rs2.EOF) then ' Response.write(""&rs2.fields("name")&": ") ' end if ' response.write("") ' response.write(rs1.fields("title")) ' if rs1.fields("author")<>"" then response.write(" / "&rs1.fields("author")) ' response.write("") ' ' if rs1.fields("summary")<>"" then response.write(" "&rs1.fields("summary")&"") ' ' on error resume next ' Response.Write("

") Response.Write("") 'on error resume next if rs1.eof=false then rs1.movefirst if rs1.eof then Response.Write("") else ' set rs2=Server.CreateObject("adodb.recordset") do until rs1.EOF ' findstr2="select name from indx_index where url ='" & rs1.fields("url") & "' and name like '%" & Request("klali") &"%'" ' rs2.Open findstr2 ,con,3,3 Response.Write("") rs1.movenext ' rs2.Close loop 'set rs2=nothing end if Response.Write("

"+"אין קבצים העונים על הנתונים שביקשת") Response.Write("   חזור

") ' if rs2.eof=false then rs2.MoveFirst 'if instr(1,rs1.Fields("name"),klali)>0 then ' Response.write(""&rs1.fields("name")&": ") 'end if response.write("") response.write(rs1.fields("title")) if rs1.fields("author")<>"" then response.write(" / "&rs1.fields("author")) response.write("") if rs1.fields("summary")<>"" then response.write(" "&rs1.fields("summary")&"") on error resume next Response.Write("

") end sub con.Close set con=nothing %>