<%@ LANGUAGE="VBSCRIPT" %> <% sub pageSearch() pg = request.querystring("pg") if pg = vbnullstring then pg = 1 else searchinfo = request.querystring("key") end if if not isempty(request.form) then searchinfo = request.form("searchinfo") if searchinfo <> vbnullstring then searchinfo = replace(searchinfo, "'", "'") words = split(searchinfo, ",") searchinfo = replace(searchinfo, " ", "%") ' Page search sql = "select distinct pageID, pageSectionID from pageDetail where pageBody Like ('%" & searchinfo & "%') " for j = 1 to ubound(words) sql = sql & "or pageBody Like ('%" & words(j) & "%') " next set rs = conn.execute(sql) response.write("
") response.write("") response.write("") recCount = 0 if not rs.eof then n = 0 if pg > 1 then for j = 1 to (pg - 1) * THREAD_PER_PAGE rs.movenext recCount = recCount + 1 next end if skip = false do while not rs.eof sql = "select * from pageSection where pageSectionID = " & rs("pageSectionID") set rssect = conn.execute(sql) sql = "select * from pageCategory where pageCatID = " & rssect("pageSectionCatID") set rsCat = conn.execute(sql) if rsCat("pageCatPrivate") then if Session("memlevel") = LEVEL_MEMBER or Session("memlevel") = LEVEL_MODERATOR or Session("memlevel") = LEVEL_ADMIN then Display = true else Display = false end if else Display = true end if if Display = true then sql = "select * from pageDetail where pageID = " & rs("pageID") set rspage = conn.execute(sql) if not skip then response.write("") response.write("") end if recCount = recCount + 1 n = n + 1 if n = MESSAGE_PER_PAGE then skip = true end if rs.movenext loop end if response.write("

Section	Page
" & rssect("pageSectionName") & "	" & rspage("pageTitle") & "

") response.write("

" & recCount & " enregistrement(s) trouvé(s) pour Ť" & searchinfo & "ť

") response.write("

") c = recCount p = c \ MESSAGE_PER_PAGE if c mod MESSAGE_PER_PAGE > 0 then p = p + 1 if p > 1 then response.write("Pages :") for j = 1 to p if j = clng(pg) then response.write(" " & j & "") else response.write(" " & j & "") end if next end if response.write("

") else response.write("
") end if end sub %>